Imports System

Public Module Module1

    Public Sub Main()

        Dim RandomClass As New Random()

        Dim dice as Integer

        Dim highest as Integer

        Dim lowest As Integer

        Dim count(6) As Integer

        For i = 1 to 6

        Count(i) = 0

        Next

    Highest = 0

    Lowest = 120

    For s = 1 to 120

    dice = RandomClass.Next(1,7)

​

    count(dice) = count(dice) + 1

​

    Next

    for i = 1 to 6

​

        If count (i) > Highest Then

            Highest = count(dice)

        End If      

​

        If count(i) < lowest Then

            lowest = count(i)

        End IF

​

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

​

    Next

Console.WriteLine("Highest: " & Highest)

Console.WriteLine("Lowest: " & Lowest)

Console.WriteLine("Range: " & Highest-Lowest)

​

​

    End Sub

End Module

​

'---------------------------------------------

' INTEGER: Dice, Count[6]

' 

' FOR i <-- 1 to 6

'   Count[i] = 0

' NEXT

'

' FOR s <-- 1 to 120

'   dice <-- Random Number between 1 & 6

' Count[Dice] = Count[Dice] + 1

'

' NEXT

'

' FOR i <-- 1 to 6

'   OUTPUT "Count of ", i, "s= ", Count[i]

' NEXT

'

'---------------------------------------------

​