Private Sub Form_Click()
Randomize
Dim a(1 To 10) As Integer, i As Integer
Dim j As Integer, max As Integer
For i = 1 To 10
a(i) = Int(Rnd * (99 - 10 + 1) + 10)
Print a(i)
Next i
Print
max = 1
For i = 1 To 10
If a(i) > a(max) Then max = i
Next i
Print "æ大çæ°æ¯ï¼"; a(max), "æ¯ç¬¬"; max; "个æ°"
End Sub
温馨提示:答案为网友推荐,仅供参考