填空题
设有如下程序：
Option Base 1
Private Sub Command1_Click1 Dim arr1
Dim Min As Integer, i As Integer
arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43) Min = 2
For i = 2 To 8
If arr1(i) < Min Then 3
Next
Print "最小值是："; Min
End Sub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组 中各元素的最小值。请填空。
1、
【正确答案】
1、arr1(1) , Min = arr1(i)
【答案解析】由于有 Option Base 1 语句，所以数组下标是从 1 开始。本题的功能是查找 8 个数中的最小值，首先 使用 Array 语句给数组赋值，然后把第一个值赋值给最小值变量，及 Min = arr1(1)，然后从第二个数开始循 环与最小值比较，如果比最小值小，则把这个值赋值给 Min，即 Min = arr1(i)。