在窗体上画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  22

问题 在窗体上画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://kaotiyun.com/show/xt1p777K
0

最新回复(0)