2. 计算机
  3. 以下程序的功能是，产生10个0～1000之间的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。 Option Base 1 Private Sub Form Click() Dim Arr(10) As Integer Dim Max As In

以下程序的功能是，产生10个0～1000之间的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。 Option Base 1 Private Sub Form Click() Dim Arr(10) As Integer Dim Max As In

admin2009-07-23  35
问题 以下程序的功能是，产生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 10
Arr(i)  = Int (Rnd * 1000)
Next i
Max= ______
For i = 2 To 10
If______Then
Max = Arr(i)
End If
Next i
Print Max
End Sub
选项
答案Arr(1) , Arr(i) ＞ Max
解析
转载请注明原文地址:https://jikaoti.com/ti/7Pq0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)