用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)
ElseIf a(i) End IfNextFor i = 1 To 32
Print 序号： & Format(i,00) & 数字： & Format(a(i),00) & ;
If i Mod 7 = 0 Then
PrintEnd IfNextPrintPrint 最大数： & Max & 序列：; x
Print 最小数： & Min & 序列：; y
End Sub