![[填空题] 以下程序的功能是，产生10个0～1000之间的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。 Option Base 1 Private Sub Form Click(),第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E4%BB%A5%E4%B8%8B%E7%A8%8B%E5%BA%8F%E7%9A%84%E5%8A%9F%E8%83%BD%E6%98%AF%EF%BC%8C%E4%BA%A7%E7%94%9F10%E4%B8%AA0%EF%BD%9E1000%E4%B9%8B%E9%97%B4%E7%9A%84%E9%9A%8F%E6%9C%BA%E6%95%B4%E6%95%B0%EF%BC%8C%E6%94%BE%E5%85%A5%E6%95%B0%E7%BB%84Arr%E4%B8%AD%EF%BC%8C%E7%84%B6%E5%90%8E%E8%BE%93%E5%87%BA%E5%85%B6%E4%B8%AD%E7%9A%84%E6%9C%80%E5%A4%A7%E5%80%BC%E3%80%82%E8%AF%B7%E5%A1%AB%E7%A9%BA%E3%80%82+Option+Base+1+Private+Sub+Form+Click%28%29.png "[填空题] 以下程序的功能是，产生10个0～1000之间的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。 Option Base 1 Private Sub Form Click(),第1张")
[填空题] 以下程序的功能是，产生10个0～1000之间的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。 Option base 1 Private Sub Form Click() Dim Arr(10) As Integer Dim Max As Integer Randomize For I = 1 To 10Arr(i) = Int (Rnd * 1000) Next iMax= ______For i = 2 To 10If______ Then Max = Arr(i)End If Next i Print Max End Sub
正确答案：Arr(1) Arr(i) ＞ Max
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）