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

admin2020-01-02  26

问题 以下过程的功能是从数组中寻找最大值:
    Private Sub FindMax(a() As Integer,ByRef Max As Integer)
    Dim S As Integer,fAs Integer:Dim i As 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/g2Tp777K
0

最新回复(0)