[填空題] 閱讀程序：

Option Base 1

Dim arr2() As Integer

Prtvate 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 b

arr2(i)＝CInt( 【15】 )

Next i

M=FindMax(arr2())

Print"最大值是："：M

End Sub

以上程序的功能是x在命令按鈕事件過程中定義一個(gè)數(shù)組，把這個(gè)數(shù)組作為參數(shù)傳送到通用過程PindMax，并返回該數(shù)組的最大值。請?zhí)羁铡?/p>正確答案：

[10](a)[11](a)[12]a(Start)或a(1)[13]a(i)

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