by Ilia Zverev (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 28th October 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Random Numbers Generator. Return array of not duplicated integers.
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
No comments have been posted about Random Numbers Generator. Return array of not duplicated integers.. Why not be the first to post a comment about Random Numbers Generator. Return array of not duplicated integers..