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

        Next i

​

        for i = 1 to 6

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

        Next 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

​