[填空题] 如果存在如下过程： Private Function FMax( a( ) As Integer) Dim First As Integer, Last As Integer, i A

[填空题] 如果存在如下过程： Private Function FMax( a( ) As Integer) Dim First As Integer, Last As Integer, i As IntegerFirst = LBound(a)Last = UBound(a)Max = a(First)For i = First To Last If a (i)＞Max Then Max=a (i)NextFMax = Max End Function Private Sub Commandl Click( ) ReDim m (1 To 4) As Integerre(1) =20: m(2) =30: m(3) =50: m(4) =100 c = FMax(m)Print c End Sub 单击命令按钮，其输出结果为 【13】 。

100

[命题目的] 考查考生对数组下标获取函数的掌握情况。[解题要点] 在程序Sub中定义了一个含4个元素的数组，并且分别给它们赋值，数组上界是4，下界为1；将数组m作为实参调用Fmax事件过程，并将数组m的地址传递给数组d，即此时数组a与m用一个存储空间；将数组的上界和下界分别赋给变量Last和First，在赋值表达式中分别调用了LBound()函数求数组下界，及UBound()函数求数组的上界；在循环语句中，变量的初始值为数组的下界为1，终值为数组的上界为4，循环体是一个条件语句，如果a(i)中的值大于Max，那么就将a(i)的值赋给Max，当循环结束后，将Max作为函数的返回值，所以此事件过程的功能即为求数组中的最大值。[考点链接] 数组的应用。