填空题如果存在如下过程：

　　Private Function FMax(a1As Integer)

　　　Dim First As Integer，Last As Integer，i As Integer

　　　First=LBound(A)

　　　Last=UBound(A)

　　　Max=a(First)

　　　For i=First To Last

　　　　If a(i) ＞ Max Then Max=a(i)

　　　Next i

　　　FMax=Max

　　End Function

　　在窗体上添加一个命令按钮，然后编写如下事件过程：

　　Private Sub Command1 Click2

　　　　ReDim m(1 To 4) As Integer

　　　　m(1)=20：m(2)=30：m(3)=50：m(4)=100

　　　　c=FMax(m)

　　　　Print c

　　End Sub

　　单击命令按钮，其输出结果为　【12】　。

1、

【正确答案】 1、{{*HTML*}}【12】100

【答案解析】解析：在程序Sub中定义了一个含4个元素的数组，并且分别给它们赋值，数组上界
是4，下界为1；将数组m作为实参调用Fmax事件过程，并将数组m的地址传递给数组
a，即此时数组a与m用一个存储空间；将数组的上界和下界分别赋给变量Last和First，
在赋值表达式中分别调用了Lbound---|||________|||---函数求数组下界，及Ubound---|||________|||---函数求数组的上界；
在循环语句中，变量的初始值为数组的下界为1，终值为数组的上界为4，循环体是一个
条件语句，如果a(I)中的值大于Max，那么就将a(I)的值赋给Max，当循环结束后，将
Max作为函数的返回值，所以此事件过程的功能即为求数组中的最大值。