填空题 在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click1 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 2 Then Max = arr(i) End If If 3 Then Min = arr(i) End If Next i Print "Max="; Max, "Min="; Min End Sub 程序运行后，单击命令按钮，将产生100个1000以内的随机整数，加入数组arr中，然后 查找并输出这100个数中的最大值Max和最小值Min，请填空。