Imports System

Public Module Module1

    Public Sub Main()

        Dim RandomClass as New Random()

        Dim Dice as Integer

        'Declares array comprising of 6 elements

        Dim Count(128) As Integer

        'Initialises the array

        For i = 1 to 128

            count (i) = 0

        Next i

        'Now throw dice 120000 times

        For i = 1 to 120000

            Dice = RandomClass.Next(1,129)

            Count(Dice) = Count(Dice) + 1 

        Next i

        'Print out the results

        For i = 1 to 128

            Console.WriteLine("Count of " & i & "s = " & Count(i))

        Next i 

    End Sub

End Module