Description:
Initializes the random-number generator.
Syntax:
Randomize [number]
Number that represents the seed
Note:
Randomize uses number to initialize the
Rnd function's random-number generator, giving it a new seed value. If you omit number, then the value returned by the system timer is used as the new seed value.
If
Randomize is not used, then the
Rnd function (with no arguments) uses the same number as a seed the first time it is called, and thereafter uses the last generated number as a seed value.
To repeat sequences of random numbers, call
Rnd with a negative parameter immediately before using
Randomize with a numeric argument. The usage of
Randomize with the same value for number does not repeat the previous sequence.
Example:
VBScriptSelect and copy to clipboard
Dim Response, nValue
Do
nValue = Int(6 * Rnd() + 1)
' Initialization of random-number generator
Response = MsgBox(nValue & " " & "Generate random value between 1 and 6", vbYesNo)
Loop While Response = vbYes