问题
填空题
设有程序： Option Base 1 Private Sub Command1_Click() Dim arr1,Max as Integer arr1＝Array(12,435,76,24,78,54,866,43) 【12】 ＝arr1(1) For i＝1 To 8 If arr1(i)＞Max Then 【13】 Next i Print"最大值是:";Max End Sub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
答案
参考答案：[12] Max
解析：[13] Max＝arr1(i) 程序中用Array函数给变体变量 arr1赋了一组数，由于程序有Option Base 1语句，因此，数组元素的下标下界从1开始，接着把第一个数组元素赋给变量Max，这样为进行比较创造了条件，程序中的For循环控制比较次数，每次循环中，根据题目要求，若arr1(i)＞Max，则arr1(i)较大，应该用arr1(i)替代 Max，所以程序中[13]处应填语句Max＝arr1 (i)。
