目录: 标题| 题干| 答案| 搜索| 相关
问题

若有以下程序,当程序运行后,单击命令按钮,则输出的结果为( )。 Priva


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

  • As1=360 s2=24
  • Bs1=24 s2=360
  • Cs1=24 s2=24
  • Ds1=360 s2=360
参考答案
参考解析:

解析:Factorial函数的作用是计算参数数组a元素的累计乘积,即将数组a的元素从下界到上界循环相乘。在主调过程中,Factorial (A)、Factorial (B)分别传递数组a和b,计算结果分别赋给s1和s2。

分类:其他