（7 ）在窗体上画 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 【 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 ，请填空。