问题
填空题
下面程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并在文本框Text1中输出该数组中各元素的最小值。请填空。
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= (13)
For i=2 To 8
If art1(i)＜Min Then (14)
Next i
Text1=Min
答案
参考答案：Min=arr1(i)
解析： 对于本题，需要把数组元素依次与最小值比较，如果比当前的最小值还小，则让这个数组元素成为新的最小值，然后继续比较，直至数组元素都比较一遍为止。由于比较的循环从2开始，显然是预先设置最小值为数组的第一个元素即arr1(1)；在比较循环内部如果符合If语句的条件，则让这个数组元素成为新的最小值，即Min=arr1(i)。