• Home
 · 
• Miscellaneous
 · 
• Random Numbers Generator. Return array of not duplicated integers.

Random Numbers Generator. Return array of not duplicated integers.

Random Numbers Generator. Return array of not duplicated integers.

Rate Random Numbers Generator. Return array of not duplicated integers.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim ArraySize       As Integer
    Dim arrNumbers()    As Integer
    Dim i As Integer, j As Integer
    If HighNumber - LowNumber < HowManyNumbers Then Exit Function
    If LowNumber >= HighNumber Then Exit Function
    ArraySize = HowManyNumbers - 1
    Randomize
    ReDim arrNumbers(ArraySize)
    For i = 0 To ArraySize
        '--generate new random number--
        arrNumbers(i) = Int((HighNumber - LowNumber + 1) * Rnd + LowNumber)
        '--check when next random number generated--
        If i > 0 Then
            '--compare new generated number with all generated numbers--
            For j = 0 To i - 1
                If arrNumbers(j) = arrNumbers(i) Then
                    '--generate new number--
                    Do Until arrNumbers(i) <> arrNumbers(j)
                        arrNumbers(i) = Int((HighNumber - LowNumber + 1) * Rnd + LowNumber)
                        '--set counter to 0 for compare new generated number with all others--
                        j = 0
                    Loop
                End If
            Next
        End If
    Next
    GetRandomNumbers = arrNumbers
End Function