题目内容:
在窗体上画1个命令按钮,其名称为commandl,然后编写如下事件过程:Private Sub Command l_Click()
Dim arr(1 T0 100)As Integer
For i=1 T0 100
arr(i)=Int(Rnd*1 000)
Next i
Max=arr(1)
Min=arr(1)
For i=1 T0 100
If【1】Then
Max=arr(i)
End If ”
If【2】Then
Min=arr(i)
End If
Next i
Print “Max=”;Max,”Min=”;Min
End Sub
程序运行后,单击命令按钮,将产生100个1000以内的随机整数,放人数组arr中,然后查找并输出这100个数中的最大值Max和最小值Min,请填空。
参考答案:
答案解析: