[填空题] 设有如下程序 Option Base 1 Private Sub Command1_Click() Dim arrl Dim Min A

[填空题] 设有如下程序

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)。