UC知道VB试题,高手，来啊。 追加分喔.!~~~
来源：百度知道 编辑：UC知道 时间：2024/05/02 18:23:52
选择题:
Option base 1
Private Sub Command1_Click()
Dim a
S=0
A=Array(2,4,7,9,14)
For i=Lbound(a) to Ubound(a)
If I mod 2=0 then s=s+a(i)
Next i
Print s;i
End sub
程序运行后输出的结果是 ( )
A:23 6
B:13 6
C:23 5D
D:13 5
Option base 1
Private Sub Command1_Click()
Dim a
S=0
A=Array(2,4,7,9,14)
For i=Lbound(a) to Ubound(a)
If I mod 2=0 then s=s+a(i)
Next i
Print s;i
End sub
程序运行后输出的结果是 ( )
A:23 6
B:13 6
C:23 5D
D:13 5
B
因为有Option base 1
所以,数组下标是从1~5
2,4,7,9,14
即:A(1)=2
A(2)=4
a(3)=7
a(4)=9
a(5)=14
If I mod 2=0 then s=s+a(i) '这个是对偶数下标进行累加
所以是4+9=13
i到Ubound(A)
所以,循环到的i的最大值为5,Next变成6后跳出循环
因此,最后是13 6,答案为B
c
B
如果没有Option base 1这一句的话
就是C了
肯定是C,我已经求证了的