以下过程的功能是从数组中寻找最大值: Private SUb FindMax(a() As Integer,ByRefMax As Integer) Dim SAs Integer,fAs IntegerDim iAs Integer S=LBound(a

admin2019-03-08  23

问题 以下过程的功能是从数组中寻找最大值:
Private SUb FindMax(a() As Integer,ByRefMax As Integer)
Dim SAs Integer,fAs IntegerDim iAs Integer
S=LBound(a:f=UBound(a)
Max=a(s)
For i=S To f
Ifa(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

解析 本题中定义了一个子过程FindMax,第一个形参是一个数组,第二个形参是一个整型值,所以调用此过程的实参也应该是一个数组和一个整型变量;在过程中遍历整个数组,首先让数组的第一个元素为最大值,然后依次用数组元素和Max进行比较,若其比Max大则令其成为新的最大值,所以For循环次数等于a数组的元素数,参数Max用于存放找到的最大值:子过程没有返回值,也无需增加一条返回最大值的语句FindMax=Max。
转载请注明原文地址:https://kaotiyun.com/show/ViFp777K
0

最新回复(0)