<-- Previous || Up || Next -->

Random Long Generator Sample Sub
Random Values Class

Private Sub RandomLongGeneratorSample()
    ' Print a sample of the RandomLongGenerator function.
    Dim avarNums() As Variant

    ' Note: The call to the Visual Basic Rnd function seeds the Visual Basic
    ' random number generator so that the sample results can be reproduced.
    ' There is generally no need to call the Rnd function within your programs
    ' since Entisoft Tools initializes the Visual Basic random number generator
    ' once with "Randomize" statement.
    Debug.Print Rnd(-1)
    Debug.Print RandomLongGenerator(avarNums, 1, 5, 5, False, True)
    Debug.Print IllustrateVariantVector(avarNums)

    Debug.Print RandomLongGenerator(avarNums, 1, 3, 5, True, True)
    Debug.Print IllustrateVariantVector(avarNums)
End Sub

Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.