任意数字的排列

Option Base 1

Private Sub Command1_Click()

Cls

Font.size = 20
Dim n As Integer
Dim size As Integer
size = Int(Val(Me.Text1.Text))
Dim xier() As Integer
ReDim xier(size)
 n = LBound(xier)
 While n <= UBound(xier)
     xier(n) = Int(Rnd * 1000)
     n = n + 1
    Wend
Dim swap As Integer
m = LBound(xier)
 While m <= UBound(xier) - 1
 n = LBound(xier)
 While n <= UBound(xier) - m
      If xier(n) < xier(n + 1) Then
       swap = xier(n)
      xier(n) = xier(n + 1)
      xier(n + 1) = swap
      End If
      n = n + 1
      Wend
      m = m + 1
      Wend
      n = 1
      While n <= UBound(xier)
      Print xier(n)
      n = n + 1
      Wend   
End Sub

  

  需要注意的是 应从1开始 option base 1  表示从1开始     计算机只能 是1 或者 0

option 的 输入 

   2.LBound(xier)  表示 数值的下限  

   UBound(xier) 表示 数值的上限

3.

4.每次都要注意的一点 不要 陷入 死循环 n=n+1