[填空題] 閱讀程序：Option Base 1Dim arr2() As IntegerPrtvate Function FindMax(a()As Integer)As Integer Dim Start As Integer Dim FlnlSh As Integer, i As Integer Start=LBound 【10】 Finish：UBound 【11】 Max＝ 【12】 For i=Start To Pinlsh If a (i)＞Max Then Max= 【13】 Next i FindMax=Max End Function Private Sub Commandl_Click() Dim arr1 arrl=Atray(12，435，76，24，78，54，866，43) b=UBound(arrl) Renm arr2( 【14】 )As Integer For i=1 TO barr2(i)＝CInt( 【15】 ) Next i M=FindMax(arr2()) Print"最大值是："：M End Sub 以上程序的功能是x在命令按鈕事件過(guò)程中定義一個(gè)數(shù)組，把這個(gè)數(shù)組作為參數(shù)傳送到通用過(guò)程PindMax，并返回該數(shù)組的最大值。請(qǐng)?zhí)羁铡?/p>正確答案：

[10](a)

[11](a)[12]a(Start)或a(1)[13]a(i) 在FindMax功能函數(shù)中的Start變量和Finish變量分別用來(lái)表示數(shù)組下標(biāo)的最小值和最大值。又Lbound函數(shù)、Ubound函數(shù)的格式為： Lbound(數(shù)組名[，維]) Ubound(數(shù)組名[，維]) 故[10]、[11]處應(yīng)均填(a)。變量Max是用來(lái)存放數(shù)組中最大值的。首先應(yīng)把數(shù)組的第一個(gè)元素初始化給Max，然后分別和剩下的元素進(jìn)行比較，如果哪個(gè)元素比它大，就交換把這個(gè)元素的值給Max，直到最后。這是經(jīng)常見(jiàn)到的求最值的方法。因?yàn)槌绦虻氖撞坑?Option Base 1，故數(shù)組的下標(biāo)從1開(kāi)始，[12]處可以填a(Start)或a(1)。根據(jù)if語(yǔ)句的條件表達(dá)式，可知[13]處應(yīng)填a(i)。[14]b[15]arrl(i)