问题
填空题
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim arr(1 To 100)As Integer
For i=1 T0 100
arr(i)=Int(Rnd* (12) )
Next i
Max=arr(1)
Min=arr(1)
For i=1 To 100
If (13) Then
Max=arr(i)
End If
If (14) Then
Min=arr(i)
End If
Next i
MsgBox Max
MsgBox Min
End Sub
程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组arr中，然后查找并先后使用消息框输出这100个数中的最大值和最小值，请将程序补充完整。
答案
参考答案：arr(i)＜Min
解析： 在本题中，把首先产生的100个1000以内的随机整数放入数组arr中。由于Rnd函数可以产生(0，1)的随机数，所以将其乘以1000后就可以取到1000以内的随机数了。然后预先设置数组的第一个元素为最大值兼最小值，在循环中把数组元素依次与最大值和最小值比较，如果比当前的最大值大，则这个元素成为新的最大值；如果比当前的最小值小，则这个元素成为新的最小值，继续比较，直到所有元素都比较完为止。