如果存在如下过程： PrivateFunctionFMax（a（）AsInteger） DimFirstAsInteger,LastAsInteg

如果存在如下过程：

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

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