问题
单项选择题
设执行以下程序段时依次输入2，4，6执行结果为 Dim a(4) As Integer,b(4) As Integer For k =0 To 2 a(k + 1) = Val(InputBox( "Enter data:" ) ) b(3 - k) =a(k + 1) Next Print b(k)
A．2
B．4
C．6
D．0
答案
参考答案：A
解析： 此程序段开始声明了两个整型数组a和b，其长度均为4。 程序通过For…Next语句为其赋值，a(k+1)=Val (InputBox("Enter data："))，b(3-k)=a(k+1)。 当k=0时，输入2，a(1)二b(3)：2； 当k=1时，输入4，a(2)；b(2)：4； 当k=2时，输入4，a(3)二b(1)：6； 当L=3时，中断循环，执行Print语句，即要求输出 b(k)的值，而k的当前值为3，即要输出的值是b(3)，其值为2。