[填空題] 如果存在如下過(guò)程：　　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　　在窗體上添加一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程：　　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　　單擊命令按鈕，其輸出結(jié)果為【 】。

100

在程序Sub中定義了一個(gè)含4個(gè)元素的數(shù)組，并且分別給它們賦值，數(shù)組上界是4，下界為1；將數(shù)組m作為實(shí)參調(diào)用Fmax事件過(guò)程，并將數(shù)組m的地址傳遞給數(shù)組 a，即此時(shí)數(shù)組a與m用一個(gè)存儲(chǔ)空間；將數(shù)組的上界和下界分別賦給變量Last和First，在賦值表達(dá)式中分別調(diào)用了Lbound()函數(shù)求數(shù)組下界，及Ubound()函數(shù)求數(shù)組的上界；在循環(huán)語(yǔ)句中，變量的初始值為數(shù)組的下界為1，終值為數(shù)組的上界為4，循環(huán)體是一個(gè)條件語(yǔ)句，如果a(I)中的值大于Max，那么就將a(I)的值賦給Max，當(dāng)循環(huán)結(jié)束后，將 Max作為函數(shù)的返回值，所以此事件過(guò)程的功能即為求數(shù)組中的最大值。