Using counter-controlled repetition : While « Statements « VB.Net Tutorial

1. VB.Net Tutorial
2. Statements
3. While

Module modAverage

    Sub Main()
        Dim total As Integer         
        Dim gradeCounter As Integer  
        Dim grade As Integer         
        Dim average As Double        

        total = 0                    
        gradeCounter = 1             

        While gradeCounter <= 10
            grade = 12

            total += grade    

            gradeCounter += 1 
        End While

        average = total / 10

        Console.WriteLine("Class average is {0}", average)

    End Sub 

End Module

Class average is 12