VB程序题一道

来源：百度知道 编辑：UC知道 时间：2024/06/14 21:08:32
private sub command1_click()
dim a(5)
for i=0to 4
a(i)=i+1
t=i+1
if t=3 then
print a(i);
a(t-1)=a(i-2)
else
a(t)=a(i)
end if
if i=3 then a(i+1)=a(t-4)
a(4)=1
print a(i);
next i
end sub
程序运行后，输出结果是（）
请分析一下这个程序时怎样执行的，怎样读它

1.定义了一个一维数组
2.a(0)=1,t=1
t不为3，所以a(1)=a(0)=1,i不为3，打印 1

3.a(1)=2,t=2
t不为3，所以a(1)=a(0)=2,i不为3，打印 2

4.a(2)=3,t=3,
t=3，所以打印a(2)=3,然后关键一步,不能结束,a(2)=a(0)=1,然后打印a(i)=1
这里打印了2个值 3 1

5.a(3)=4,t=4
不达到条件，所以a(4)=a(3)=4,满足i=3，所以a(4)=a(0)=1,打印a(3)=4
4
6.a(4)=5,t=5
不达到条件，所以a(5)=a(4)=5,不满足i=3,注意下面又有关键一步
a(4)=1(程序有的)
所以打印 1

答案是123141

就不打草稿了，咱们一起看吧。
1.定义了一个一维数组
2.a(0)=1,t=1
不达到条件，所以a(1)=a(0)=1,不达到条件，结束。
3.a(1)=2,t=2
不达到条件，所以a(2)=a(1)=2,不达到条件，结束。
4.a(2)=3,t=3,
达到条件，所以打印a(2)=3,不结束
5.a(3)=4,t=4
不达到条件，所以a(4)=a(3)=4,满足i=3，所以a(4)=a(0)=1,打印a(3)=4
6.（省略）不达到条件，结束。
所以输出就是a(2)=3，
a(3)=4
有换行

∨ZERO∧对了！

注