VB 编程求助

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

这段代码能不能给我详细解释一下？

追问：我运行了一下a=4呀？a到底是怎么算出来的呢?

答案：嵌套循环，mod是一个取余函数，当j=1时，j mod 2 =1；即奇数时j mod 2<>0，偶数时j mod 2=0.
结果a=2
Private Sub Command1_Click()
a = 0  初始化a
For i = 1 To 2   外层循环
  For j = 1 To 4  内存循环
    If j Mod 2 <> 0 Then   判断j Mod 2是否为0，不为0时，执行then
    a = a - 1
    End If
  a = a + 1
  Next j
Next i
Print a   输出a
End Sub
当i=1，j=1时jmod2<>0成立a=0-1=-1,a=-1+1=0所以此时a=0
当i=1，j=2时jmod2<>0不成立a=0+1=1所以此时a=1
当i=1，j=3时jmod2<>0成立a=1-1=0,a=0+1=1所以此时a=1
当i=1，j=4时jmod2<>0不成立a=1+1=2所以此时a=2
当i=2，j=1时jmod2<>0成立a=2-1=1,a=1+1=2所以此时a=2
当i=2，j=2时jmod2<>0不成立a=2+1=3所以此时a=3
当i=2，j=3时jmod2<>0成立a=3-1=2,a=2+1=3所以此时a=3
当i=2，j=4时jmod2<>0不成立a=3+1=4所以此时a=4
循环结束，结果是4，明白了吧！Private Sub Command1_Click()  当你点击时执行
a = 0 变量a赋值为0
For i = 1 To 2 定义一个循环从1开始到2结束
  For j = 1 To 4定义一个循环从1开始到4结束

    If j Mod 2 <> 0 Then 如果j的余数不等于0时执行下一步
    a = a - 1 赋值a等于a本身减1
    End If 结束if
  a = a + 1赋值a等于a本身加1
  Next j 下一个循环
Next i下一个循环
Print a 打印出a的值
End Sub函数结束

上一个：vb 编程问题
下一个：vb 编程题、

更多图片编程知识: