通用过程的定义与调用vb代码

来源：百度知道 编辑：UC知道 时间：2024/07/08 00:12:09
要求按下“第一组”按钮：产生18个10-99之间的数，控制9个数显示一行共俩行，排序后打印数组元素

放一个command1，代码如下：

Dim a(18) As Integer
Private Sub Command1_Click()
Call Uz
End Sub
Private Sub Form_Load()
Command1.Caption = "第一组"
Form1.AutoRedraw = True
End Sub
Private Sub Uz()
Dim I As Integer, J As Integer
Randomize
For I = 1 To 18
a(I) = Int(Rnd * 90 + 10)
Next
For I = 1 To 17
For J = I + 1 To 18
If a(I) > a(J) Then
a(0) = a(I)
a(I) = a(J)
a(J) = a(0)
End If
Next
Next
Print "产生的18个数字是："
For I = 1 To 18
Print a(I);
If I Mod 9 = 0 Then Print
Next
End Sub