Заполнить одномерный массив случайными числами таким образом, чтобы все его элементы были различны

Const n = 10
Dim i As Integer
Dim j As Integer
Dim a(1 To n) As Integer
Dim flag As Boolean
Private Sub Command1_Click()
Randomize
a(1) = Int(Rnd * n)
For i = 2 To n
flag = True
  Do Until flag
    a(i) = Int(Rnd * n)
    j = 1
        Do While flag And (j <= i - 1)
        flag = a(i) <> a(j)
        j = j + 1
        Loop
    Loop
Next i
For i = 1 To n
    Print a(i);
Next i
Print ,
End Sub

Const n = 10
Dim i As Integer
Dim j As Integer
Dim a(1 To n) As Byte
Dim m As Integer
Dim x As Integer
Dim f As Boolean
Private Sub Command1_Click()
Randomize
i = 1
Do While i <= n
    x = Int(Rnd * n)
    f = False
    For j = 1 To n
    If a(j) = x Then f = True
    If f = False Then
    a(i) = x
    i = i + 1
    End If
    Next j
Loop
For i = 1 To n
  Print a(i);
Next i
End Sub

Private Sub Command1_Click()
Randomize
Const n = 10
Dim i As Integer, A(1 To n) As Byte
    For i = 1 To n
        A(i) = i
    Next i
     Unsort A
    For i = 1 To n
       Print A(i);
    Next i
End Sub
 
Public Sub Unsort(A() As Byte)
Dim i As Long, pos As Long, tmp As Long, min As Integer, max As Integer
    min = LBound(A): max = UBound(A)
    For i = min To max - 1
        pos = Int((max - i + 1) * Rnd + i)
        tmp = A(pos)
        A(pos) = A(i)
        A(i) = tmp
    Next i
End Sub

Private Sub Command1_Click()
    Const n = 10
    Dim A(1 To n) As Byte
    Dim i As Integer, j As Integer
    Randomize
    Cls
    i = 1
    Do While i <= n
m:      A(i) = Int(Rnd * n)
        For j = 1 To i - 1
             If A(i) = A(j) Then GoTo m
        Next j
        i = i + 1
    Loop
    For i = 1 To n
         Print A(i);
    Next i
End Sub