Unikátní náhodné číslov poli – Visual Basic – Fórum – Programujte.com

Ahoj, prosím o radu.

Mám pole proměnných o deseti proměnných a každá proměnná musí nabývat náhodné hodnoty.

Neznáte někdo elegantní řešení jak ošetřit, aby generátor náhodných čísel generoval vždy unikátní hodnoty v rozmezí 1 až deset? Zkrátka aby každá proměnná v tom poli měla jedinečnou hodnotu? Díky Honza

Obecně můžeš hrubě generovat čísla dokud nedostaneš takové, které ještě v poli nemáš.

Nebo elegantněji, a v tomhle případě se to vyloženě nabízí, můžeš to pole naplnit řadou hodnot a pak ho zamíchat. (Každý prvek prohodíš s náhodně vybraným prvkem ze zbytku.)

Ahoj.

Přesně jak uvádí gna.

Třeba nějak takto:

Option Explicit

Private Sub Command1_Click()
Const min As Long = 1   'prvni pole
Const max As Long = 10  'posledni pole
Dim pole(min To max) As Long
Dim index As Long
Dim i As Long
Dim hodnota As Long
'naplnění pole hodnotami
    For i = min To max
        pole(i) = i
    Next i
'seřazení pole
    For i = min To max - 1
        index = Int((max - i + 1) * Rnd + i)
        hodnota = pole(i)
        pole(i) = pole(index)
        pole(index) = hodnota
        Print pole(i);
    Next i
    Print pole(i)
End Sub

Private Sub Form_Load()
'Inicializace funkce RND
    Randomize
End Sub