Private Sub Command1_Click()
Randomize
Dim a(9) As Integer
Dim min As Integer, minI As Integer
For i = 0 To 9
a(i) = Int(Rnd() * (100 - 60 + 1)) + 60
If min < a(i) Then
min = a(i)
minI = i
End If
Next
Print "数组下标为" & minI; "的数字最小，为:" & min
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除!