如果存在如下过程： 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】 。