Distribution of Random Numbers
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