Random numbers [resolved]

[SmagO]

Ok then, I need help with VB code to generate six random unique numbers in the range of 1 thru 49 inclusive. I have my array declared and have tried to use the combination of Randomize and Rnd functions, which is working except that it's, at times, generating duplicate numbers......

[sciguyryan]

Try this:

Private Function MakeRandom(intLowest As Integer, intHighest As integer) As Long
    Ramdomize
    Din intTemp As Integer
    If intLowest > intHighest Then
        intTemp = intLowest
        intLowest = intHighest
        intHighest = intTemp
    End If
    MakeRandom = CLng((intHighest - intLowest + 1) * Rnd + intLowest)
End Function

Or, have a look here for some new functions that were develped for this job

Cheers,

RyanJ

[manavo11]

http://www.vbforums.com/showthread.php?t=281172