[填空題] 如果存在如下過程：

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) 。

100

在程序Sub中定義了一個含4個元素的數組，并且分別給它們賦值，數組上界是4，下界為1；將數組m作為實參調用Max事件過程，并將數組m的地址傳遞給數組a，即此時數組a與m共用一個存儲空間；將數組的上界和下界分別賦給變量Last和First，在賦值表達式中分別調用了LBound()函數求數組下界及UBound()函數求數組的上界；在循環(huán)語句中，變量的初始值為數組的下界為1，終值為數組的上界為4，循環(huán)體是一個條件語句，如果a (i)中的值大于Max，就將a(i)的值賦給Max，當循環(huán)結束后，將Max作為函數的返回值，所以此事件過程的功能即為求數組中的最大值。