填空题 如果存在如下过程:   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   单击命令按钮,其输出结果为 【12】 
  • 1、
【正确答案】 1、【12】100    
【答案解析】解析:在程序Sub中定义了一个含4个元素的数组,并且分别给它们赋值,数组上界 是4,下界为1;将数组m作为实参调用Fmax事件过程,并将数组m的地址传递给数组 a,即此时数组a与m用一个存储空间;将数组的上界和下界分别赋给变量Last和First, 在赋值表达式中分别调用了Lbound()函数求数组下界,及Ubound()函数求数组的上界; 在循环语句中,变量的初始值为数组的下界为1,终值为数组的上界为4,循环体是一个 条件语句,如果a(I)中的值大于Max,那么就将a(I)的值赋给Max,当循环结束后,将 Max作为函数的返回值,所以此事件过程的功能即为求数组中的最大值。