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)

R