for 循环问题

Question

Private Sub Command1_Click()
For i = 1 To 3
    x = 4
       For j = 1 To 2
         x = 3
         For k = 1 To 4
              x = x + 7
         Next k
       Next j
    Next i
    Print x
End Sub请问运行结果为什么是31啊 ？

Answer 1

你循环了半天，由于在内循环给X赋值，外循环等于白跑。实绩等同于以下代码        x = 3
        For k = 1 To 4
              x = x + 7
        Next k你说该等于几

Answer 2

Private Sub Command1_Click() 
For i = 1 To 3 
    x = 4             
      For j = 1 To 2 
        x = 3 
        For k = 1 To 4 
              x = x + 7 
              Print x  '加上这句就知道哪有问题
        Next k 
      Next j 
    Next i 
    Print x 
End Sub 

Answer 3

  你基本上的工作就是在做最里面的一个循环，外面的几个循环都没做事！！！就只是相当于做了：
   x=3
for k=1 to 4
 x=x+7
next k
你可以再添加一个变量!来统计它的总值!!

Answer 4

就是
x=3 
for k=1 to 4 
x=x+7 
next k别的都是干扰代码