• Home
 · 
• Math/Dates
 · 
• Generates unique non repeating random numbers within a range

Generates unique non repeating random numbers within a range

Generates unique non repeating random numbers within a range

Rate Generates unique non repeating random numbers within a range

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

button.  Unique random numbers between 1 and 15 will be displayed.
--------------------------------------------------------------------------------

Private Sub cmdDisplay_Click()
Static count As Integer
Dim intNum As Integer

ReDim Preserve arrNum15(1 To 15) As Integer
count = count + 1
Randomize
intNum = Int((15 * Rnd) + 1) ' a random number between 1
                             ' and 15 is generated
                             
If count <> 1 Then

'This loop compares all the previous random numbers to the currently
'generated one to see whether it already exists.  if so a new one is generated.

    For i = 1 To count - 1
        Do Until arrNum15(i) <> intNum
            If arrNum15(i) = intNum Then
                intNum = Int((15 * Rnd) + 1)
                i = 1 'to start checking from array element 1
            End If
        Loop
    Next i
End If
arrNum15(count) = intNum ' assign value to the appropriate array element
If count = 15 Then
    count = 0
    Print "*************"
    Exit Sub
End If
Print intNum ' to print the numbers on the form
End Sub