[单项选择题] 下面程序段，运行后的结果是 Private Sub Command1_Click() Dim b%(1 To 4) ,i%, t# For i = 1 To 4b(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．

参考答案： B

● 参考解析

程序调用循环语句对数组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。

相关题目:

[填空题] 软件开发环境是全面支持软件开发全过程的【4】集合。
[填空题] 关系模型的完整性规则是对关系的某种约束条件，包括实体完整性、【5】和自定义完整性。
[填空题] 软件工程的出现是由于【2】。
[填空题] 软件结构是以【3】为基础而组成的一种控制层次结构。
[填空题] 算法的基本特征是可行性、确定性、【1】和拥有足够的情报。

微信端

推荐题目

● [单项选择题] 下述语句的运行结...
● [填空题] 在先左后右的原则下，根...
● [单项选择题] 在下列各式中，运算...
● [单项选择题] 函数InputBox返回...
● [填空题] 数据库系统中实现各种...
● [填空题] 把一个磁盘文件的内容...
● [填空题] 下面程序用来计算： ...
● [单项选择题] 以下过程的功能是...

当前位置：IT认证＞BASIC题库

[单项选择题] 下面程序段，运行后的结果是 Private Sub Command1_Click() Dim b%(1 To 4) ,i%, t# For i = 1 To 4b(i) =i Next t =Tof(b() ) Print &quot;t =&quot;; t, End Sub Function Tof(a() As Integer) Dim t#, i% t=1 For i =2 To UBound(

相关题目:

[单项选择题] 下面程序段，运行后的结果是 Private Sub Command1_Click() Dim b%(1 To 4) ,i%, t# For i = 1 To 4b(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(