Module Example
Public Sub Main()
Dim frequency(9) As Integer
Dim number As Double
Dim rnd As New Random()
For ctr As Integer = 0 To 99
number = rnd.NextDouble()
frequency(CInt(Math.Floor(number*10))) += 1
Next
For ctr As Integer = frequency.GetLowerBound(0) To frequency.GetUpperBound(0)
Console.WriteLine(frequency(ctr))
Next
End Sub
End Module