|
Syntax
|
Rnd
[(number)]
|
|
Description
|
Returns a random
Single
number between 0 and 1.
|
|
Comments
|
If number is omitted, the next random number is returned. Otherwise, the number parameter has the following meaning:
|
|
|
If
|
Then
|
|
|
Number
< 0
|
Always returns the same number.
|
|
|
Number
= 0
|
Returns the last number generated.
|
|
|
Number
> 0
|
Returns the next random number.
|
|
Example
|
This example sets the randomize seed then generates six random numbers between 1 and 54 for the lottery.
Const crlf = Chr$(13) + Chr$(10)
Sub Main()
????Dim a%(5)
????Randomize??
????For x = 0 To 5
????????temp = Rnd(1) * 54 + 1
????????Elimininate duplicate numbers.
????????or y = 0 To 5
????????????If a(y) = temp Then found = true
????????Next
????????If found = false Then a(x) = temp Else ??x = x - 1
????????found = false
????Next ??
????ArraySort a
????msg1 = ""
????For x = 0 To 5
????????msg1 = msg1 & a(x) & crlf
????Next x??
????MsgBox "Today's winning lottery numbers are: " & crlf & crlf & msg1
End Sub
|
|
See Also
|
Randomize (statement); Random (function)
|
CIMPLICITY
