Imports System

Public Module Module1

    Public Sub Main()

        Dim gen as Random = new Random()

        Dim Count as integer = 1000

        Dim sum as double = 0

        Dim average as double = 0

        For intx as integer = 1 to count

        Sum += gen.next(0,101)

    Next

    Average = Sum / Count

Console.Writeline(Average.Tostring("##,00"))

    End Sub

End Module