[填空题] 阅读程序： Option Base 1 Dim arr2() As Integer Prtvate Function FindMax(a()As Integer)As Integer D

18 查阅

[填空题] 阅读程序：

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)

计算机考试