2. 计算机
  3. 在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim arr(1 To 100)As Integer For i=1 To 100 arr(i)=Int(Rnd*1000

在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim arr(1 To 100)As Integer For i=1 To 100 arr(i)=Int(Rnd*1000

admin2009-03-15  56
问题 在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim arr(1 To 100)As Integer
For i=1 To 100
arr(i)=Int(Rnd*1000)
Next i
Max=arr(1)
Min=arr(1)
For i=1 To 100
If【  】Then
Max=arr(i)
End If
If【  】Then
Min=arr(i)
End If
Next i
Print "Max="；Max，"Min="；Min
End Sub
程序运行后，单击命令按钮，将产生100个1000以内的随机整数，加入数组arr中，然后查找并输出这100个数中的最大值Max和最小值Min，请填空。
选项
答案 Max＜arr(i) , Min＞art(i)
解析 本题的基本思路是通过二个中间变量Max及Min来记录当前已比较数值中的最大值及最小值，如果待比较的数大于Max，则将当前值赋值给Max，如果当前待比较值小于Min，则将当前数赋值给Min，当比较结束时，Max、Min分别为这组数中的最大值及最小值。故第7空应填Max＜arr(i)或其等效形式，第二空应填 Min＞arr(i)或其等效形式。
转载请注明原文地址:https://www.kaotiyun.com/show/xt1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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