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

admin2009-03-15  15

问题 下面程序段,运行后的结果是      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

答案2

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

最新回复(0)