问题
填空题
在窗体上画一个命令按钮，其名称为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 j=1 To 100
If (7) Then
Max=arr(i)
End If
If (8) Then
Min=arr(i)
End If
Next i
Print "Max="; Max, "Min="; Min
End Sub
程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组arr中，然后查找并输出这100个数中的最大值Max和最小值Min，请填空。
答案
参考答案：(7)Max＜arr(i) (8)Min＞arr(i)
解析： 程序为了查找并输出100个数中最大值Max和最小值Min，先假定arr(1)中的值就是最大值，同时也就是最小值。接下来用数组中剩下的数一一跟Max和Min比较，如果发现有比Max更大的数，则把新的更大的数作为当前发现的最大数存入到Max中，等到把数组中剩下的所有数都比较完后，Max中的值就是要找的最大值；同理可找最小值。第[7]空所在的if条件语句用于获得最大值Max，因此此处应填写Max＜arr(i)；第[8]空所在的if条件语句用于获得最小值Min，因此此处应填写Min＞arr(i)。