有下列程序,程序运行后单击命令按钮,则输出的结果为( )。 Private Sub Command1_Click() Dim a%(1 To 4), b%(3 To 6), i%, s1#, s2# For i= 1 To

admin2010-09-11  17

问题 有下列程序,程序运行后单击命令按钮,则输出的结果为(    )。    Private Sub Command1_Click()    Dim a%(1 To 4), b%(3 To 6), i%, s1#, s2#         For i= 1 To 4               a(i) = i         Next i         For i=3 To 6              b(i)=i         Next i              s1=Factorial (a)s2=Factorial (b)Print "s1="; s1; "s2="; s2   End Sub   Function Factorial(a() As Integer)   Dim t#, i%         t=1         For i=LBound(a)To UBound(a)t=t*a(i)         Next i         Factorial=t   End Function

选项 A、s1=360  s2=24
B、s1=24  s2=360
C、s1=24  s2=24
D、s1=360  s2=360

答案B

解析 Factorial函数的作用是计算参数数组a元素的累计乘积,即将数组a的元素从下界到上界循环相乘。在主调过程中,Factorial (a)、Factorial(b)分别传递数组a和b,计算结果分别赋给s1和s2。在定义子过程的参数时,如果在参数前加上ByVal,表示是“传值”参数,主调函数中参数的值不被改变,否则表示是“传地址”参数,参数值会被调用的子过程改变。
转载请注明原文地址:https://kaotiyun.com/show/DRmp777K
0

最新回复(0)