如果存在如下过程:
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 i
FMax=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=FMax(m)
Print c
End Sub
单击命令按钮,其输出结果为【 】。