阅读程序： Option Base 1 Dim arr2() As Integer

问题填空题

阅读程序：
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在命令按钮事件过程中定义一个数组，把这个数组作为参数传送到通用过程PindMax，并返回该数组的最大值。请填空。

答案

参考答案：[10](a)
[11](a)
[12]a(Start)或a(1)
[13]a(i)

解析：在FindMax功能函数中的Start变量和Finish变量分别用来表示数组下标的最小值和最大值。又Lbound函数、Ubound函数的格式为：
Lbound(数组名[，维])
Ubound(数组名[，维])
故[10]、[11]处应均填(a)。变量Max是用来存放数组中最大值的。首先应把数组的第一个元素初始化给Max，然后分别和剩下的元素进行比较，如果哪个元素比它大，就交换把这个元素的值给Max，直到最后。这是经常见到的求最值的方法。因为程序的首部有 Option Base 1，故数组的下标从1开始，[12]处可以填a(Start)或a(1)。根据if语句的条件表达式，可知[13]处应填a(i)。
[14]b
[15]arrl(i)