如果存在如下过程： Private Function Fun( a( ) As

题目：

如果存在如下过程： Private Function Fun( 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 LastIf a(i)＞Max Then Max =a(i)NextFun=Max End Function 在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() ReDim m(1 To 4) As Integerm(1) =20: m(2) =30: m(3) =50: m(4) =100c =Fun(m)Print c End Sub 单击命令按钮，其输出结果为 【10】 。