设执行以下程序段时依次输入:1、3、5,执行结果为( )。 Dim a(4)As Integer Dim b(4)As Integer For K=0 To 2 a(K+1)=Val(InputBox("请输入数据:"

admin2021-09-06  38

问题 设执行以下程序段时依次输入:1、3、5,执行结果为(    )。
    Dim a(4)As Integer
    Dim b(4)As Integer
    For K=0 To 2
    a(K+1)=Val(InputBox("请输入数据:"))    b(3-K)=a(K+1)  Next K
    Debug.Print b(K)

选项 A、1
B、3
C、5
D、0

答案A

解析 本题考查For循环语句,计算数组b(K)的值。在程序中,首先定义了两个数组a(4)、b(4),之后执行For循环。当K=0时,进入第一次循环,将输入的1赋值给a(1),即a(1)=1,b(3)=a(1)=1;之后K=1,进入第二次循环,将输入的3赋值给a(2),即a(2)=3,b(2)=a(2)=3;之后K=2,进入第三次循环,将输入的5赋值给a(3),即a(3)=5,b(1)=a(3)=5,之后K=3,不满足循环条件,结束循环。输出b(3),值为1。
转载请注明原文地址:https://jikaoti.com/ti/vn90FFFM
0

随机试题
最新回复(0)