Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim max As Integer
Dim myarray(7) As Integer
Dim mystr As String
a = 2
b = 12
mystr = ""
For i = 0 To 7
myarray(i) = Int(Rnd() * 1000 + 5)
mystr = mystr + Str(myarray(i))
Next i
Print "待查询的循环数是:"
Print mystr
If a > b Then
max = a
Else
max = b
End If
For i = 0 To 7
If myarray(i) > max Then
max = myarray(i)
End If
Next i
Print "查询结果是:"
Print max
End Sub