设有程序：
Option Base 1
Private Sub Command1_Click()
Dim arr1,Max as Integer
arr1=Array(12,435,76,24,78,54,866,43)
(14) =arr1(1)
For i=1 To 8
If arr1(i)＞Max Then (15)
Next i
Print"最大值是：";Max
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。