神人,这样也能提问.很马虎的一个人Private Sub Command1_Click()Dim i, n As IntegerFor i = 0 To 50i = i + 3n = n + 1 If i > 13 Then Exit For End IfNextText1.Text = Str(n)End Sub结果是4,请复制后再试
for循环i变量每次也要+1的也就是说i每次要+4