pazi, da ne izbacuje ponekad iste rezultate algoritam ne bi bio random, zar ne? (tj pseudo-random, u ovom slucaju) pod random se podrazumeva da moze da vrati
bilo koji broj.
ako sam razumeo sta hoces, tebi u stvari treba niz brojeva koji je nasumicno izmesan (shuffle-ovan), to mesanje radis otprilike ovako (mozda ne proradi iz prve, odavno nisam nista radio u vb):
Code:
Sub ShuffleArray(ByRef numbers() AS Long)
Dim min As Long
Dim max As Long
Dim tmp As Long
Dim i As Long
Dim k As Long
min = LBound(numbers)
max = UBound(numbers)
For i = min To max
k = Int((max - min + 1) * Rnd) + min
tmp = numbers(k)
numbers(k) = numbers(i)
numbers(i) = tmp
Next
End Sub
samo prosledis niz ovoj metodi i ona ce da ga promesa, posle iz tog niza vadis brojeve pomocu nekog brojaca koji ide od LBound do UBound tog niza, kad dodjes do kraja, mozes da promesas ponovo niz, ili da generises novi...
Potpis