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

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

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 Last

If a(i)＞Max Then Max =a(i)

Next

Fun=Max

End Function

在窗体上添加一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

ReDim m(1 To 4) As Integer

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

c =Fun(m)

Print c

End Sub

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