如果存在如下过程:   Private Function FMax(a( )As Integer)    Dim First As Integer,Last As Integer,i As Integer    First=LBound(A)Last=UB

admin2009-01-15  26

问题  如果存在如下过程:
  Private Function FMax(a( )As Integer)
   Dim First As Integer,Last As Integer,i As Integer
   First=LBound(A)Last=UBound(A)Max=a(First)
   For i=First To Last
    If a(i) > Max Then Max=a(i)
   Next i
   FMax=Max
  End Function
  在窗体上添加一个命令按钮,然后编写如下事件过程:
  Private Sub Command1 Click( )
    ReDim m(1 To 4) As Integer
    m(1)=20:m(2)=30:m(3)=50:m(4)=100
    c=FMax(m)
    Print c
  End Sub
  单击命令按钮,其输出结果为【  】。

选项

答案100

解析 在程序Sub中定义了一个含4个元素的数组,并且分别给它们赋值,数组上界是4,下界为1;将数组m作为实参调用Fmax事件过程,并将数组m的地址传递给数组a,即此时数组a与m用一个存储空间;将数组的上界和下界分别赋给变量Last和First,在赋值表达式中分别调用了Lbound()函数求数组下界,及Ubound()函数求数组的上界;在循环语句中,变量的初始值为数组的下界为1,终值为数组的上界为4,循环体是一个条件语句,如果a(I)中的值大于Max,那么就将a(I)的值赋给Max,当循环结束后,将Max作为函数的返回值,所以此事件过程的功能即为求数组中的最大值。
转载请注明原文地址:https://kaotiyun.com/show/Vp2p777K
0

最新回复(0)