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

admin2010-03-30  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=";s2End SubFunction Factorial(a()As Integer)Dim t#,i%    t=1    For i=LBound(A)To UBound(A) t=t*a(i)    Next i    Factorial=tEnd Function

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

答案2

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

最新回复(0)