以后记住

1.首先打开VB6.0

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

3.在窗体的适当位置创建一个textbox。

4.在窗体中双击“排序”，并在弹出的对话框中输入代码。

代码如下：

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

5.单击运行，查看效果。

特别注意：在输入代码的对话框中，应在通用一栏下输入 Option Base 1