Microsoft KB Archive/120587

= Randomize Statement Doesn't Re-initialize Rnd Function =

Article ID: 120587

Article Last Modified on 8/15/2005

-

APPLIES TO


 * Microsoft Excel 95 Standard Edition
 * Microsoft Excel 5.0c

-



This article was previously published under Q120587



SYMPTOMS
In Microsoft Excel, when you use the Randomize statement in a Visual Basic procedure to initialize the random-number generator, the Rnd function returns a different series of random numbers each time you use it in the procedure, even if you use the Randomize statement with the same number value before each Rnd function.



CAUSE
The Visual Basic documentation for the Randomize statement states that the Randomize statement uses the number argument to initialize a random-number generator, giving it a new seed value.

This information implies that the Randomize statement re-initializes the Rnd function, so that when you use the Randomize statement with the same number value preceding each Rnd function in a procedure, each Rnd function returns the same pattern of random numbers.

However, this is incorrect. The current functionality of the Randomize statement in Visual Basic, Applications Edition, is the same as in the Basic, Visual Basic, and QuickBasic languages. The Randomize statement does not reset the seed for the Rnd function.



WORKAROUND
To re-initialize the random-number generator, use the Rnd function with a value of -1 to re-initialize the Rnd function, and then use the Randomize statement with the value you want to use as the seed value for the Rnd function. The following is an example of using this method:

Microsoft provides examples of Visual Basic procedures for illustration only, without warranty either expressed or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose. This Visual Basic procedure is provided 'as is' and Microsoft does not guarantee that it can be used in all situations. Microsoft does not support modifications of this procedure to suit customer requirements for a particular purpose.

Sub Random_Numbers ' Define variable i as Integer type Dim i As Integer Workbooks.Add

' Initialize the random-number generator Rnd (-1) Randomize 10

' Insert random numbers in column A      For i = 1 To 100 Cells(i, 1) = Rnd Next

' Re-initialize the random-number generator Rnd (-1) Randomize 10

' Insert same series of random numbers in column B      For i = 1 To 100 Cells(i, 2) = Rnd Next

End Sub



STATUS
Microsoft has confirmed this to be a problem in the Microsoft products listed at the beginning of this article. We are researching this problem and will post new information here in the Microsoft Knowledge Base as it becomes available.



MORE INFORMATION
You can use the Randomize statement to create a seed value for the Rnd function, or initialize the Rnd function. If Randomize is not used, the same initial seed is always used to start the sequence.

