首页 > 计算机 > 计算机考试 正文

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

时间:2021-07-20 17:40:53 解答: 78 次

[填空题] 下列程序的功能是:单击窗体时将求出随机生成的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 10a(i)= 【12】 Next i max=a(1):max_i=1 For i=1 To 10If 【13】 Then max=a(i) max_i=iEnd 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)”。

  • 相关题库

请充值VIP继续使用(未注册用户支付后会自动注册登录)

×

95元 29元

VIP截止日期:2025-01-02 00:19:35

←请使用支付宝扫码支付

95元 29元

VIP截止日期:2025-01-02 00:19:35

←请使用微信扫码支付