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
'Print out the results
Console.WriteLine("Count of " & i & "s = " & Count(i))
End Sub
End Module
