n个随机数排列

 

Option Base 1
Private Sub Command1_Click()
    Cls
    Dim x As Integer
    x = Int(Val(Me.Text1.Text))
    Dim n As Integer
    Dim A() As Integer
    ReDim A(x)
   
    n = LBound(A)
    While n <= UBound(A)
    A(n) = Int(Rnd * 1000)
    n = n + 1
    Wend
    Dim B As Integer, M As Integer
    M = LBound(A)
    While M <= UBound(A) - 1
    n = LBound(A)
    While n <= UBound(A) - M
    If A(n) < A(n + 1) Then
    B = A(n): A(n) = A(n + 1): A(n + 1) = B
    End If
    n = n + 1
    Wend
    M = M + 1
    Wend
n = LBound(A)
While n <= UBound(A)
Print A(n)
n = n + 1

Wend
End Sub