UC知道在线等vb的
来源：百度知道 编辑：UC知道 时间：2024/06/01 16:35:22
Private Sub Form_Click()
Dim x As Integer, y As Integer, z As Integer
x = 3: y = 4: z = 15
For i = x To z Step y
i = i + 3
x = x + 3
y = y + 3
z = z + 3
Next i
Print "i="; i; "x="; x; "y="; y; "z="; z
End Sub
这个会循环几次啊？为什么不是4次啊？
Dim x As Integer, y As Integer, z As Integer
x = 3: y = 4: z = 15
For i = x To z Step y
i = i + 3
x = x + 3
y = y + 3
z = z + 3
Next i
Print "i="; i; "x="; x; "y="; y; "z="; z
End Sub
这个会循环几次啊？为什么不是4次啊？
共进行了 2 次循环
第 1 次循环前：i=3;x=3;y=4;z=15
第 1 次循环后：i=6;x=6;y=7;z=18
第 2 次循环后：i=13;x=9;y=10;z=21
第 3 次未循环：因为i=17，大于初始z值15
Dim x As Integer, y As Integer, z As Integer
x = 3: y = 4: z = 15
For i = x To z Step y ‘i=3 to 15 STEP 4
i = i + 3
x = x + 3
y = y + 3
z = z + 3
Next i
----
当i=3时，程序执行之后，i=6，x=6，y=7，z=18（注意这里xyz和循环条件的不是同一个意义了）
由于循环条件中只有i的值变化，其他的是不变的，所以下一个是
当i=6+4=10时，i=9，x=9，y=10，z=21
再下一个是
当i=10+4=14时，i=12，x=12，y=13，z=24
执行完之后，由于每次i都是+4，当i>15时，这时就不会符合循环的条件了，所以跳出，故有效的循环是3次了。
不是4次~有效循环是2次~因为你在循环的过程中i变量又多加了3
3次,有效循环是2次,第3次跳出。
For以后，每次循环判断的y，和上限Z的值是第一次的值，不会改变的，只有i是变化的。