Question

Private Sub Command1_Click() Dim i, n As Integer For i = 0 To 50 i = i + 3 n = n + 1 If i > 13 Then

exit for
next
text1.text=str(n)
end sub
为什么文本框最后的结果是3而不是4

Answer 1

神人,这样也能提问.很马虎的一个人

Private Sub Command1_Click()
Dim i, n As Integer
For i = 0 To 50
i = i + 3
n = n + 1
If i > 13 Then
Exit For
End If
Next
Text1.Text = Str(n)
End Sub

结果是4,请复制后再试

追问

不是，我弄错了，是if>10

我不懂不是运行了4次循环吗

追答

第一次 i=3 n=1
第二次 i=7 n=2
第三次 i=11 n=3
i已大于10,退出

for中的每一次next默认为+1,即i为3时过了next就是4了,第二次时4+3就是7了

Answer 2

for循环i变量每次也要+1的
也就是说i每次要+4