[填空题] 设有如下程序，查找并输出该数组中的最小值，请在空白处填上合适的代码，将程序补充完整。Option Base 1Private Sub Command1

[填空题] 设有如下程序，查找并输出该数组中的最小值，请在空白处填上合适的代码，将程序补充完整。 Option Base 1 Private Sub Command1

[填空题] 设有如下程序，查找并输出该数组中的最小值，请在空白处填上合适的代码，将程序补充完整。

Option base 1

Private Sub Command1_Click()

Dim arr1

Dim Min As Integer, i As Integer

arr1=Array(12, 435, 76, -24, 78, 54, 866, 43)

Min = arr1(l)’

For i=2 To 8

If arr1(i) ＜ Min Then

Next i

Print "最小值是:"; Min

End Sub

正确答案：

Min=arr1(i)

参考解析：

题目要求输出数组中的最小值，分析程序可知，本程序求数组最小值的算法是：假设最小的值是第一个数组元素，并把它存在Min变量中，然后从数组的第二个元素开始逐个与Min变量对比，如果有比Mim更小的数，则赋值给Min，这样对比到数组最后一个元素时，就能找到最小的元素，且它存储在Min变量中，因此最后只要输出Min变量值即可。