[填空题] 设有如下程序：Option Base 1Private Sub Commandl Click()Dim arrlDim Min As Integer，i As Integerarrl=Ar

19 查阅

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

参考答案:

arrl(1)；Min=arrl(i)

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

计算机考试