[单项选择题] 以下过程的功能是从数组中寻找最大值： Private Sub FindMax(a() As Integer, ByRef Max As Integer) Dim s As Integ

[单项选择题] 以下过程的功能是从数组中寻找最大值：

Private Sub FindMax(a() As Integer, ByRef Max As Integer)

Dim s As Integer, f As Integer

Dim i As Integer

s = LBound(a)

f = UBound(a)

Max =a(s)

For i = s To f

If a(i) ＞ Max Then Max = a(i)

Next

End Sub

以下关于上述过程的叙述中，错误的是( )。

A． 语句Call FindMax(a，m)可以调用该过程，其中的a是数组，m是Integer类型变量

B． For循环次数等于a数组的元素数

C． 过程末尾应该增加一条返回最大值的语句FindMax=Max

D． 参数Max用于存放找到的最大值

C

过程定义语句中第1个参数是数组，调用是实参应该是一个数组变量或元素，第2个参数是整型变量。过程中LBound函数获取了数组下标的下限，UBound函数获取了数组下标的上限，在For i=s to f语句的循环中就可以访问数组中的各个元素。本过程是用Sub定义的过程不需要返回值。程序中找到的最大值由参数Max返回，因为它是按址传递的参数，它的值会带给实参。因此C选项的说法错误。