2. 计算机
  3. 下面程序段，运行后的结果是 Private Sub Command1_Click() Dim b%(1 To 4)，i%，t# 　　For i=1 To 4 　　　　b(i) =i 　　Next 　　t=Tof(b()

下面程序段，运行后的结果是 Private Sub Command1_Click() Dim b%(1 To 4)，i%，t# 　　For i=1 To 4 　　　　b(i) =i 　　Next 　　t=Tof(b()

admin2012-03-22  61
问题 下面程序段，运行后的结果是    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(i)    　　Next    　　Tof=t    End Function   
选项 A、t=18
B、t=24  
C、t=30
D、t=32
答案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。
转载请注明原文地址:https://kaotiyun.com/show/82hp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)