问题
填空题
设有程序：
Option Base 1
Pfivme 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)＞MaxThen 【13】
Next i
Print"最大值是："；Max
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
答案
参考答案：[12] Max
[13] Max=arr1(i)
解析： 根据题意，先用Array函数为数组arr1赋值，然后令变量Max等于arr1(1)，相当于给Max赋了一个初始值。在For循环中，进行8次循环，逐一遍历比较arr1(i)值与 Max值的大小，如果arr1(i)＞Max，则令Max值等于此时的arr1(i)值。通过这个过程，求出arr1数组中的最大元素。故第12空填：Max。
根据上面的分析，第13空应该把arr1(i)赋给Max，故填：Max=arr1(i)。