Mega Code Archive

 

Categories / VB.Net / Development

 

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