Syntax

Random(min,max)

Description

Returns a Long value greater than or equal to min and less than or equal to max.

Comments

Both the min and max parameters are rounded to Long. A runtime error is generated if min is greater than max.

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 = Random(1,54)

    'Elimininate duplicate numbers.
    For 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