求救啊～～～～～～VB不会，急需～～

来源：百度知道 编辑：UC知道 时间：2024/05/11 17:07:50
设计一个自定义过程Sort，含一个传址形参，形参类型为整型，其功能为将形参从小到大排序。再设计一个命令按钮单击事件过程Command1_Click，其功能是定义一个其初值为100至200的随机整数的数组，数组含10个元素，然后调用Sort过程排序，最后将排序后的数组用Print方法显示在窗体上，相邻的数之间空两格。
这个程序该如何写？请高手帮手～～～～

Option Base 1
Private Sub Form_Click()
Dim a(10) As Integer, b
For i = 1 To 10
Randomize

Do
a(i) = Int(Rnd * 200)

Loop Until a(i) > 100
Next

Call Sort(a)
End Sub

Sub Sort(z() As Integer)
Dim k

For i = LBound(z) To UBound(z)
For j = LBound(z) To UBound(z)
If z(i) > z(j) Then '按小排
k = z(i)
z(i) = z(j)
z(j) = k
End If
Next

Next
For t = LBound(z) To UBound(z)
Form1.Print z(t)
Next

End Sub