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