在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Priv

问题：

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim arr(1 To 100)As Integer
For i＝1 To 100
arr(i)＝Int(Rnd*______)
Next i
Max＝arr(1)
Min＝arr(1)
For i＝1 To 100
If______Then
Max＝arr(i)
End If
If______Then
Min＝arr(i)
End If
Next i
MsgBox Max
MsgBox Min
End Sub
程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组arr中，然后查找并先后使用消息框输出这100个数中的最大值Max和最小值Min。请依据上述功能将程序补充完整。