Randomize
I = 1
Do While I <= 10
Numeri(I) = Int((20 * Rnd) + 1)
Stringa = Stringa + Str(Numeri(I)) + ";"
Text1.Text = Stringa
I = I + 1
Loop
Allora, io ho questo pezzo di codice , con cui riempio un array in modo random, solo che dei numeri possono ripetersi, e io non voglio che cio acada, esiste una funzione specifica o dei passagi(se si scriveteli pls xD).
Aspetto le vostre risposte
ps:è vb 6
|