[填空题] 设有程序： Option Base 1 Private Sub Command1_Click() Dim arrl, Max As Integ

[填空题] 设有程序：

Option Base 1

Private Sub Command1_Click()

Dim arrl, Max As Integer

arrl=Array(12, 435, 76, 24, 78, 54, 866, 43)

【8】 =arrl(1)

For i=1 To 8

If arrl(i)＞Max Then 【9】

Next i

Print "最大值是:" ; Max

End Sub

以上程序的功能是，用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。

[8]Max [9]Max=arrl(i)解析：[分析]： 当定义变量Max以后，系统自动给其赋初值为0。将数组第一个元素值赋值给Max，再将它与其他各数组元素逐个进行比较。若某个元素值比Max大，就将其赋值给Max，从而保证Max中始终是最大的值。