Option Strict On Public Module RandomizeStatement Public Sub Main() Dim number As Double = 1.0325 Rnd(-1) Randomize(number) ' Number is any Double For ctr As Integer = 1 to 10 Console.WriteLine(Rnd()) Next End Sub End Module
0.3610106 0.579608 0.2782471 0.05653632 0.2865489 0.33937 0.6398301 0.2991799 0.8264404 0.1662288