在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_ Click()
Dim art(1 To 10) As Integer
For i = 1 To 10
Art(i) = Int (Rnd * 100)
Next i
Max = arr(1)
Min = arr(1)
For i = 2 To 10
If arr(i)＞ Max Then
______
End If
If arr(i) ＜ Min Then
______
End If
Next i
Print "Max = "; Max, "Min = "; Min
End Sub
以上程序的功能是，由程序产生10个100以内的随机整数，放入数组arr中，然后输出这10个数的最大值Max和最小值Min，请填空。