Question

access中for...next循环

dim i,j,x
for i=i to 20 step 2
x=0
for j=i to 20 step 3
x=x+1
next j
next i
text1.value=str(x)
不知道第一个循环中 i 如何取值
为什么最后的答案是1
谢谢！！

Answer 1

dim i,j,x
for i=i to 20 step 2
x=0 --这个地方，i的循环每次执行后，X都会被重新赋值为0
for j=i to 20 step 3
x=x+1
next j
next i
text1.value=str(x)

 

怎么循环的不是重点，重点在注释那

dim i,j,x
x=0 
for i=i to 20 step 2

for j=i to 20 step 3
x=x+1
next j
next i
text1.value=str(x)

 

你看看第二个，情况应该就不同了

追问

可是在x重新被赋值为0后不是还要经过 j 的内循环么

追答

这个就是循环的含义

举个简单例子给你

Sub ss()
Dim i
For i = i To 20
Next i
Debug.Print i
End Sub

i到20的时候不会停止，这个最后输出结果是21，也就是说在循环里，只有大于了20后，21的时候，程序会判断为假，才会停止循环，这么说你懂吗？？

追问

晓得了，谢谢啦！！