以下过程的功能是从数组中寻找最大值: Private SUb FindMax(aO As Integer,ByRef Max As Integer) Dim S As Integer,fAs Integer Dim i As Integer S=LBoun

admin2015-12-09  19

问题 以下过程的功能是从数组中寻找最大值:
Private SUb FindMax(aO As Integer,ByRef Max As Integer)
Dim S As Integer,fAs Integer Dim i As Integer
S=LBound(a:f=UBound(aMax===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://jikaoti.com/ti/JtJ0FFFM
0

最新回复(0)