Question

VB循环语句问题！困惑中！！！！！求解

Private Sub Form_Click()
s = 5
For i = 2.6 To 4.9 Step 0.6
s = s + 1

Next i
Print s
End Sub

为什么不运行到i=5时结束？
而是4.4时
而
Private Sub Command1_Click()
x = 0
Do While x < 50
x = (x + 2) * (x + 3)
n = n + 1
Loop
Text2.Text = Str(x)
Text1.Text = Str(n)
End Sub
却明明设置x<50
为什么要执行2次呢？
不是6 1

Answer 1

第一个的原因明显的，因为它是先给I赋值然后检查I值，因而不可能执行到I=5。
第二个，虽然设置了x < 50，执行两次是正常的，因为第一次时X=0，满足条件。
第二次是执行前检查X值，不是执行后检查。因而虽然第二次执行后X=72只是保证不会执行第三次。

Answer 2

第1个程序，for循环，先判断i的值是否超过上限，然后再运算， i = 5时将结束循环，不计算i=5的值
第2个程序，x=0 循环一次，x变成了6，继续循环一次，x变成了72，结束循环