[VB .NET] array random

[deviato]

Salve, ho un problemino.. devo creare un array di valori random tutti differenti inclusi in un certo range.
Il codice che ho pensato è il seguente


regist(0) = rnd.Next(1, number(0) + 1)
For i = 1 To 4
regist(i) = rnd.Next(1, number(0) + 1)
For j = i To 0
If (regist(i) - regist(j) = 0) Then
regist(i) = rnd.Next(1, number(0) + 1)
j = i
End If
Next
Next

Però mi restituisce un array con alcuni valori duplicati, qualcuno può aiutarmi?:muro:

[deviato]

Risolto.. :D


regist(0) = rnd.Next(1, number(0) + 1)
For i = 1 To 4
regist(i) = rnd.Next(1, number(0) + 1)
a = i - 1
While (a >= 0)
If (regist(i) = regist(a)) Then
regist(i) = rnd.Next(1, number(0) + 1)
a = i - 1
Else
a = a - 1
End If
End While
Next