![[填空题] 设有以下程序： Option Base 1 Private Sub Command1_Click( ) Dim arr1 ,Max as Integer art1 = Array(](http://www.mshxw.com/aiimages/31/250436.png "[填空题] 设有以下程序： Option Base 1 Private Sub Command1_Click( ) Dim arr1 ,Max as Integer art1 = Array(")
[填空题] 设有以下程序： Option base 1 Private Sub Command1_Click( ) Dim arr1 ,Max as Integer art1 = Array(12,435,76,24,78,54,866,43) 【14】 = arr1(1) For i = 1 To 8 If arrl(i)＞Max Then 【15】 Next i Print "最大值："； Max End Sub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。
参考答案：
[14]Max [15] Max＝arr1(i)问题解析:
Max＝arr1(1)是先将第1个元素设为最大值，然后在循环中逐一和数组元素arr1(i)进行比较，如果比当前的Max值大，则更新Max。
