排序 在text框中输入将要排序的数字个数

在窗体的适当位置创建一个commandbutton，并在其属性窗口中将caption改为“排序”。在窗体的适当位置创建一个textbox。

Option Base 1（此句话要在通用条件下）

Private Sub Command1_Click()
Cls
Dim n As Integer
Dim size As Integer
size = Int(Val(Me.Text1.Text))
Dim wzs() As Integer

ReDim wzs(size)


n = LBound(wzs)
While n <= UBound(wzs)
wzs(n) = Int(Rnd * 1000)
n = n + 1
Wend

Dim swap As Integer
m = LBound(wzs)
While m <= UBound(wzs) - 1
n = LBound(wzs)
While n <= UBound(wzs) - m
If wzs(n) < wzs(n + 1) Then
swap = wzs(n)
wzs(n) = wzs(n + 1)
wzs(n + 1) = swap
End If
n = n + 1
Wend
m = m + 1
Wend

n = LBound(wzs)
While n <= UBound(wzs)
Print wzs(n)
n = n + 1
Wend
End Sub