[填空题] 下列程序的功能是：单击窗体时将求出随机生成的10个两位数中的最大数及其下标，请填空。Option Base 1Private Sub Form

[填空题] 下列程序的功能是：单击窗体时将求出随机生成的10个两位数中的最大数及其下标，请填空。 Option Base 1 Private Sub Form

[填空题] 下列程序的功能是：单击窗体时将求出随机生成的10个两位数中的最大数及其下标，请填空。

Option base 1

Private Sub Form_Click()

Dim a(10) As Integer，i As Integer

Dim max As Integer，max_i As Integer

Randomize

For i=1 To 10

a(i)= 【12】

Next i

max=a(1)：max_i=1

For i=1 To 10

If 【13】 Then

max=a(i)

max_i=i

End If

Next i

Print max,max_i

End Sub

正确答案：

[12]Int(90*Rnd)+10[13]max＜a(i)

参考解析：

本题通过一个循环给数组的各个元素赋一个两位随机数，两位数的范围为10～99， 产生的随机数公式是：Int((99-10+1)*Rnd)+10。求一维数组的最大值及其下标的方法是：首先认为第一个元素a(1)最大，并用一个表示最大值的变量max记下它，用一个表示最大值的下标变量max_i记下它的下标1。然后用最大值max和后面的每个元素比较，如果后面的元素值大，则用max记下它，用max_i记下它的下标。故[13]处应填“max＜a(i)”。