Private Sub Form_Click() '单击窗体执行
a = 0
For i = 1 To 2 '循环1到2，共2次
For j = 1 To 4 '二级循环，1到4共4次
If j Mod 2 <> 0 Then '假如j除以2的余数不等于0则执行（就是不能被2整数）
a = a + 1 'a自加1
End If
a = a + 1
Next j
Next i
'第一次循环，j=1和3时不能整除，所以加了2，每次循环又自加了1次，所以共加了6
'第二次循环，变量j又重新开始，同上还是加了6
'6+6=12
Print a '输出a
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024