问题 单项选择题

下面程序段,运行后的结果是
Private Sub Command1_Click()
Dim b%(1 To 4),i%,t#
  For i=1 To 4
    b(i) =i
  Next
  t=Tof(b() )
  Print"t=";t,
End Sub
Function Tof(a() As Integer)
Dim t#,i%
  t=1
  For i=2 To UBound(

A.
  t=t*a(

答案

参考答案:B

解析: 程序调用循环语句对数组b()赋值,b(i)=i,且数组b的上下界分别为1和4,接着将数组b()作为对象,调用Tof过程。在Tof过程中,定义了两个变量t和i,i作为For循环的循环变量,初始值为2,终值为数组b的上界。循环体为“t=t+a(i)”,即将b(i)的值乘以t,然后再赋给t,当循环结束后,程序返回的就是数组b中除第一个元素以外所有元素值的乘积,本题为2×3×4=24,输出结果为t=24。

选择题
单项选择题