问题详情

如果存在如下过程:

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

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