以下过程的功能是从数组中寻找最大值: Private Sub FindMax(a()As Integer,ByRef Max As Integer) Dim s As Integer.f As Integer

admin2013-11-29  51

问题 以下过程的功能是从数组中寻找最大值:
    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=UBotlnd(a)
          Max=a(s)
         For i=s To f
             If a(i)>MaxThen 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选项的说法错误。
转载请注明原文地址:https://kaotiyun.com/show/fXQp777K
0

最新回复(0)