[填空题] 设有如下程序：Option Base 1Private Sub Command1_Click() Dim arr1 Dim Min As Integer, i As Integerarr1

17 查阅

[填空题] 设有如下程序：Option Base 1Private Sub Command1_Click() Dim arr1 Dim Min As Integer, i As Integerarr1 = Array(12, 435, 76, -24, 78, 54, 866, 43) Min = _________For i = 2 To 8If arr1(i) < Min Then _________Next Print "最小值是："; MinEnd Sub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。

参考答案:

arrA(A) , Min = arrA(i)

由于有 Option Base 1 语句，所以数组下标是从 1 开始。本题的功能是查找 8 个数中的最小值，首先使用 Array 语句给数组赋值，然后把第一个值赋值给最小值变量，及 Min = arr1(1)，然后从第二个数开始循环与最小值比较，如果比最小值小，则把这个值赋值给 Min，即 Min = arr1(i)。

计算机考试