Imports System

Public Module Module1

    Public Sub Main()

        ' declare variables

        dim randomclass as new random()

        dim dice as integer

        ' Declare array comprising 6 elements

        dim count(128) as integer

        for i = 1 to 128

            count(i) = 0

        next i

    ' NOW THROW THE DICE 120000 times

    for i = 1 to 120000

        dice = Randomclass.Next(1,129)

        count(dice) = count(dice) + 1

    next

' print out the results

For i = 1 to 128

console.writeline("count of " & i & " s = " & count(i))

next i

    End Sub

End Module

​

'array is a series of elements, 

'element is singular value

'an index is just a category