[填空題] 如果存在如下過程： Private Function FMax( a( ) As Integer) Dim First As Integer, Last As Integer, i As IntegerFirst = LBound(a)Last = UBound(a)Max = a(First)For i = First To Last If a (i)＞Max Then Max=a (i)NextFMax = Max End Function Private Sub Commandl Click( ) ReDim m (1 To 4) As Integerre(1) =20: m(2) =30: m(3) =50: m(4) =100 c = FMax(m)Print c End Sub 單擊命令按鈕，其輸出結(jié)果為 【13】 。

100

[命題目的] 考查考生對數(shù)組下標獲取函數(shù)的掌握情況。[解題要點] 在程序Sub中定義了一個含4個元素的數(shù)組，并且分別給它們賦值，數(shù)組上界是4，下界為1；將數(shù)組m作為實參調(diào)用Fmax事件過程，并將數(shù)組m的地址傳遞給數(shù)組d，即此時數(shù)組a與m用一個存儲空間；將數(shù)組的上界和下界分別賦給變量Last和First，在賦值表達式中分別調(diào)用了LBound()函數(shù)求數(shù)組下界，及UBound()函數(shù)求數(shù)組的上界；在循環(huán)語句中，變量的初始值為數(shù)組的下界為1，終值為數(shù)組的上界為4，循環(huán)體是一個條件語句，如果a(i)中的值大于Max，那么就將a(i)的值賦給Max，當循環(huán)結(jié)束后，將Max作為函數(shù)的返回值，所以此事件過程的功能即為求數(shù)組中的最大值。[考點鏈接] 數(shù)組的應(yīng)用。