Anonymní profil Luboš – Programujte.com

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