用vb 中循环结构显示32个随机数,按照一行7个数字来显示,同时显示数字出现的序号,然后将这组数字中最大和最小的数字显示

Private Sub Form_click()
Randomize
Dim a(1 To 32) As Long
Dim Max As Integer,Min As Integer
Dim x As Integer,y As Integer
For i = 1 To 32
a(i) = Int(Rnd * 100)
If a(i) > Max Then Max = a(i):x = i
If i = 1 Then
Min = a(i)
Else
If a(i) < Min Then Min = a(i):y = i
End If
Next
For i = 1 To 32
Print "序号：" & Format(i,"00") & " 数字：" & Format(a(i),"00") & " ";
If i Mod 7 = 0 Then
Print
End If
Next
Print
Print "最大数：" & Max & " 序列："; x
Print "最小数：" & Min & " 序列："; y
End Su