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

admin2020-04-18  42

问题 以下过程的功能是从数组中寻找最大值:
    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
                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/5jx0FFFM
0

最新回复(0)