随机产生 10 个 [30,100] 内的整数,求最大值及所对应的下标(使用数组) Dim a(1 To 10) As Integer, max%,maxi% For i = 1 To 10 a(i) =_____1_____ Next i max = ____2_____ maxi = _____3_____ For i = 2 To 10 If _____4______ Then max = a(i) _____5_____ End If Next i MsgBox ("最大值:" & max) MsgBox ("最大值下标:" & maxi)