如果存在如下过程： Private Function FMaxla() 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 Command_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 单击命令按钮，其输出结果为 (8) 。