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

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

Private Function FMax( a( ) As 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

FMax = Max

End Function

Private Sub Commandl Click( )

ReDim m (1 To 4) As Integer

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

c = FMax(m)

Print c

End Sub

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