VB生成不重复的随机数

Private Sub Command1_Click()

Dim i As Integer, k As Integer, j As Integer

Dim n(10) As Integer

Dim m As Integer

Randomize

m = 0

Text1.Text = ""

k = Int(Rnd * 10)

n(0) = k

m = m + 1

k = Int(Rnd * 10)

n(1) = k

m = m + 1

Do

aaa:

For j = 0 To m - 2

If n(m - 1) = n(j) Then

    k = Int(Rnd * 10)

    n(m - 1) = k
     
    GoTo aaa

End If

Next j

m = m + 1

If m = 11 Then Exit Do

k = Int(Rnd * 10)

n(m - 1) = k

Loop


For i = 0 To 9

   Text1.Text = Text1.Text + CStr(n(i)) + "  "

Next i


End Sub

改进后去掉GoTo语句

Do

For j = 0 To m - 2

If n(m - 1) = n(j) Then

    k = Int(Rnd * 10)

    n(m - 1) = k    
    
    j = -1

End If

Next j

m = m + 1

If m = 11 Then Exit Do

k = Int(Rnd * 10)

n(m - 1) = k

Loop