[填空题] 设有如下程序 Option Base 1 Private Sub Command1_Click() Dim arrl Dim Min As Integer，i As Integ

[填空题] 设有如下程序
Option base 1
Private Sub Command1_Click()
Dim arrl
Dim Min As Integer，i As Integer
arrl=Array(12，435，76，-24，78，54， 866， 43)
Min=____
For i=2 To 8
If arrl(i)＜Min Then
Next i
Print “最小值是：”；Min
End Sub
以上程序的功能是：用Arcay函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。

参考答案：

arrl(1)或12 Min=arrl(i)

问题解析:

本题考查考生对简单算法的掌握。题目要求找出数组的最小值，利用一个For循环和条件语句来实现。首先应该给Min赋值，这里注意For循环是从i=2 To 8，并没有包含i=1，因此这里的初值应该是arrl(1)，也就是12。然后从数组的第2个元素开始和Min做比较，如果小于Min则应该将两者进行交换，即Min=arrl(i)。这样Min总是做过比较的元素的最小值，循环结束后，它也是整个数组的最小值。如果题目的For循环是Fori=1 To 8，那么 Min的初值可以是任意一个大于arrl最小值的数，而不一定是arr(1)。