如果存在如下过程：
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】 。
