随机生成15个数，最小的在最下方。。。。。。。

Private Sub Command1_Click()
Cls
Font.Size = 20
Dim n As Integer
Dim A(15) As Integer
n = 1

While n <= 15

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

'开始排序
Dim swap As Integer
n = 1
While n <= 14
 
 
   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
'排序结束

n = 1
While n <= 15
Print A(n)
n = n + 1
Wend

End Sub