（ 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 ，请填空。