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 'This sets the random seed.
'Omitting this line will cause the random numbers to be
'identical each time the sample is run.
For x = 0 To 5
temp = Rnd(1) * 54 + 1
'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
|