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

admin2010-09-11  29

问题 若有以下程序,当程序运行后,单击命令按钮,则输出的结果为(    )。    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

答案2

解析 Factorial函数的作用是计算参数数组a元素的累计乘积,即将数组a的元素从下界到上界循环相乘。在主调过程中,Factorial (A)、Factorial (B)分别传递数组a和b,计算结果分别赋给s1和s2。
转载请注明原文地址:https://jikaoti.com/ti/Zhg0FFFM
0

最新回复(0)