Imports System
Public Module Module1
Public Sub Main()
Dim RandomClass as New Random()
Dim Dice as Integer
Dim Count(6) as Integer
For i = 1 to 6
Count(i) = 0
Next i
For i = 1 to 120
Dice = RandomClass.Next(1, 7)
Count(Dice) = Count(Dice) + 1
for i = 1 to 6
Console.WriteLine("Count of " & i & "s = " & Count(i))
End Sub
End Module
'INTEGER: Dice, Count(6)
'Initialise counts
'FOR i <-- 1 to 6
'Count(i) = 0
'NEXT
'FOR i <-- 1 TO 120
'Dice <-- Random Number between 1 & 6
'Count(Dice) <-- Count(Dice) + 1
'NEXT i
'FOR i = 1 to 6
'OUTPUT"Count of", i , "s = ", Counti(i)
'NEXTi