随机生成N个数，并从大到小排序。。。。。。。

搞了半天，敲来敲去，还是没懂。

弄着这些代码。虽然没心力交瘁，也有点身心疲惫吧啊。

不过也算弄出来了。

看样子，一切不懂都源于不看书。

Option Base 1

Private Sub Command1_Click()
Cls
Font.Size = 20
Size = Int(Val(Me.Text1.Text))
Dim n As Integer
Dim A() As Integer
ReDim A(Size)

n = LBound(A)

While n <= UBound(A)

  A(n) = Int(Rnd * 1000)
  n = n + 1
Wend

'开始排序
Dim swap 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
    swap = A(n)
    A(n) = A(n + 1)
    A(n + 1) = swap
   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