[填空题] 设有如下程序 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 8If arrl(i)＜Min Then Next i Print “最小值是：”；Min End Sub 以上程序的功能是：用Arcay函数建立一个含有8个

参考答案：

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

● 参考解析

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

当前位置：IT认证＞BASIC题库

相关题目: