有如下事件过程,单击命令按钮扣,输出结果是   Private Sub Command1 Click( )    Dim b% (1 To4) ,j%, t#    For j=1 To 4      b(j) =j    Next j    t=Tax(

admin2009-01-15  29

问题 有如下事件过程,单击命令按钮扣,输出结果是   Private Sub Command1 Click( )    Dim b% (1 To4) ,j%, t#    For j=1 To 4      b(j) =j    Next j    t=Tax(b( ) )    Print "t="; t,   End Sub   Function Tax (a( ) As Integer)    Dim t#, i%    t=1    For i=2 To UBound (A)t=t * a(i)      Next i      Tax=t   End Function

选项 A、t=18
B、t=24
C、t=30
D、t=32

答案2

解析 程序开始调用循环语句对数组b( )赋值,b(j)=j,且数组b的上下界分别为1和4;接着将数组b( )作为对象,调用Tax过程,在Tax过程中,定义了两个变量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/Pe2p777K
0

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