设有如下程序
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)。