Question

关于vb问题，要详细解答。。谢谢了（只要能详细解答，肯定给分）

第一题：private sub command1_click()
for i=1 to 4
x=4
for j=1 to 3
x=3
for k=1 to 2
x=x+6
next k
next j
next i
end sub
程序运行后，单击命令按钮，输出结果是？？

第二题： private sub command1_click
x=0
do until x= -1
a=inputbox("请输入a的值")
a=val(a)
b=inputbox("请输入b的值")
b=val(b)
x=inputbox("请输入x的值")
x=val(x)
a=a+b+x
loop
print a
end sub
程序运行后，单击命令按钮，依次在输入对话框输入5 4 3 2 1 -1 ，则输出结果是？？？

第三题：private sub command1_click()
a=0
for i= 1 to 2
for j= 1 to 4
if j mod 2<>0 then
a=a+1
end if
a=a+1
next j
next i
print a
end sub
程序运行后，单击命令按钮。输出结果是？？？

Answer 1

【1】答案是15.首先看到这道题时，不要被它的多重循环所吓倒。如果一开始就盲目一层一层的计算的话，会浪费很多时间，甚至可能算错。对于这道题，先分析一下它的循环结构，发现在i，j那两层循环会重新给x赋值，所以只需计算最后一次循环即可。i=4 j=3 x=3 for i=1 to 2 只剩下两次循环，所以x=3+6+6=15

【2】答案是2。首先看清题，最后要输入的6个数，实际上是两组数据，5、4、3是一组，2、1、-1是一组，它们分别对应输入的a、b、x。第一组没必要算，因为第二组中的x=-1，循环中止。这时a=2+1+(-1)=2.

【3】答案是12.首先mod是取余，j mod 2 <>0 就是指 j 为奇数。每次j循环a都自加1，如果j为奇数则a多加一次1。j循环从1到4共2个偶数，故一次i循环 a自加6. 一共有两个i循环，故a为12.

Answer 2

一 执行顺序为 四次(a=4, 三次(a=3, a=a+6, a=a+6)）
虽然有很多循环， 但是 i,j这两个外层循环开始的时候都重新给x赋值，实际结果跟没循环一样。 最终x=15.

二 执行顺序是， a=5, b=4, x=3, a=5+4+3, loop, a=2, b=1, x=-1, a=2+1-1, print a 结果是 2

三 mod 操作是取余数。 j mod 2 = 0 就是指 j 为偶数。即每次j循环a都自加1，如果j为偶数则a多加一次1.
j循环从1到4共2个偶数，故一次i循环 a自加6. 一共有两个i循环，故a为12.