(14)有下列程序,程序运行后单击命令按钮,则输出的结果是 Private Sub Command1_Click() Dim a%(1

（14）有下列程序，程序运行后单击命令按钮，则输出的结果是 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 Factorial 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。