问题
填空题
在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click() Dim arr(1 To 100) As Integer For i = 1 To 100arr(i) = Int(Rnd * 1000) Next i Max = arr(1) Min = arr(1)For i = 1 To 100If _________ ThenMax = arr(i) End If If _________ ThenMin = arr(i) End If Next iPrint "Max="; Max, "Min="; MinEnd Sub程序运行后，单击命令按钮，将产生100个1000以内的随机整数，加入数组arr中，然后 查找并输出这100个数中的最大值Max和最小值Min，请填空。
答案
参考答案：Max < arr(i) , Min > arr(i)
解析：本题的基本思路是通过二个中间变量 Max 及 Min 来记录当前已比较数值中的最大值及最小值，如果 待比较的数大于 Max，则将当前值赋值给 Max，如果当前待比较值小于 Min，则将当前数赋值给 Min，当 比较结束时，Max、Min 分别为这组数中的最大值及最小值。故第７空应填 Maxarr(i)或其等效形式。
