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