Imports System

Public Module Module1

    Public Sub Main()

        Dim i As Integer

        Dim average As Double

        average = 0                     ' initialise average to 0

        For i = 0 To 100

            average += i                ' identical to average = average + i

        Next i

        average /= 101                  ' there are 101 numbers between 0 and 100

            Console.WriteLine(average)

    End Sub

End Module