vb多重循环试题For i= 1 to 3 for j= 1to i for k= j to 3 a=a+1 next

答案不可能是18,是不是程序哪里错了,按你现在的程序说一下:
1. 当i=1时,第2重循环1次,j只取1,第3重循环3次,此时a=3
2. 当i=2时,第2重循环2次(j=1和j=2),j=1时第3重循环3次a再加3,a=6;j=2时,第3重循环2次,a再加2,此时a=8
3. 当i=3时,第2重循环3次,j=1,j=2,j=3,第3重循环分别循环3,2,1,次,即a又被加了3+2+1=6次,第2步时a是8,所以此时a=8+6=14
所以最终结果是14,已经在VB里验证过
补充:如果要答案是18,就是for k= j to 3要改成for k= 1 to 3