在窗体中添加一个命令按钮(其Name属性为Command1),然后编写如下代码:
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(2,4,6,8)
j=1
For i=4 To 1 Step-2
s=s+a(i)*j
j=j*10
Next i
Print 3
End Sub
运行上面的程序,单击命令按钮,其输出结果是 ( )
A.2
B.4
C.8
D.48
参考答案:D
解析: 由于语句Option Base 1的存在,则数组下标的下界是1。Array函数是用来给数组元素赋初值的,它要求数组必须是一个变体变量名。题中语句
Dim a
a=Array(2,4,6,8)
是将2赋给a(1),将4赋给a(2),将6赋给。a(3),将8赋给a(4)。
分析For循环语句,可知循环一共执行了两次。
i=4时,执行语句s=s+a(i)*j相当于s =0+a(4)*1(s未被初始化,则默认为0)得s的值为8。接着执行语句j=j*10相当于j=1 *10,得j的值为10。
i=2时,执行语句s=s+a(i)*j相当于s=8+a(2)*10(此次循环中的s和j均为上次循环所得结果值)得s的值为48。然后再执行语句j=j*l0。
最后执行的语句Prints,故最后的输出结果为s的值48。