Imports System

Public Module Module1

    Public Sub Main()

        Dim i As Integer

        Dim average As Double

        Dim MyIntegers(100) As Integer

        For i = 0 To 100

            MyIntegers(i) = i

        Next i

    average = MyIntegers.Average        'Get average

        Console.WriteLine(average)

    End Sub

End Module