vb编程,帮忙做一下

来源：百度知道 编辑：UC知道 时间：2024/05/14 10:05:17
题目是这样的:
定义一个大小为100的数组,编写3个过程并调用它们完成如下功能:用随机函数给数组中所有元素赋值;将所有数组元素按由小到大的顺序排序;将所有数组元素10个一行输出.

'==================================
'赋值过程
'===================================
Private Sub creatN(a() As Integer)
Randomize
For i = LBound(a()) To UBound(a())
a(i) = Int(Rnd * 90 + 10)
Next
End Sub

'==================================
'排序过程
'===================================

Private Sub rank(a() As Integer)
For i = LBound(a()) To UBound(a())
For j = i + 1 To 100
If a(j) < a(i) Then
t = a(j)
a(j) = a(i)
a(i) = t
End If
Next j
Next i
End Sub

'==================================
'输出过程
'===================================

Private Sub output(a() As Integer)

For i = LBound(a()) To UBound(a())
Print a(i) & " ";
Next i
End Sub

'==================================
'调用以上过程
'===================================
Private Sub Command1_