VB数组中的While 循环问题，while循环为什么只执行一次呢？？？

Question

N = 3
For i = 3 To UBound(avCAALData, 1)
If avCAALData(i, 4) = "" Or avCAALData(i, 4) = " " Then
Exit For
End If
N = N + 1
Next
i = 3: J = 0: K = 0
NextI:
While (i > 2 And i < N - 2 - K)
If avCAALData(i, 2) = avCAALData(i + 1, 2) And avCAALData(i, 3) = avCAALData(i + 1, 3) Then
avCAALData(i, 4) = Asc(avCAALData(i, 4)) + Asc(avCAALData(i + 1, 4))
For J = i + 1 To N - K
avCAALData(J, 1) = avCAALData(J + 1, 1)
avCAALData(J, 2) = avCAALData(J + 1, 2)
avCAALData(J, 3) = avCAALData(J + 1, 3)
avCAALData(J, 4) = avCAALData(J + 1, 4)
K = K + 1
Next
GoTo NextI
End If
i = i + 1
Wend

Answer 1

没看太明白楼主的意图，把完整的代码贴上来。
现有的代码关键在avCAALData数组，他的一维上限值UBound(avCAALData, 1)决定了N的值，而While入口的条件就在于第二个条件了，因为第一个条件i>2是肯定成立的，上面给赋值了i=3.第二个条件i<N-2-K，因为在While循环了没有改变N的值，所有条件成立与否在于K的值。
再有，如果While里的if条件不成立，则while就可能成为死循环了，建议在循环里加上DoEvents.
希望对你有帮助

追问

完整代码太多了，贴不了，主要就是while里面的循环问题，测试时只执行力一次循环，我把i赋值为3就是为了保证循环能进行下去，K是用来保证执行循环时，不用把后面的不要的项继续执行循环，

追答

关键还在N和K的值为多少，我理解代码里N的值就是UBound(avCAALData, 1)的值,
要进入While循环，N最小要=4，然而循环里的
For J = i + 1 To N - K 中N-K以及For J循环里的K=K+1决定了K的值，如果N=6,则For J 循环完成后，K=3, 则While循环的入口条件i < N - 2 - K 带入值为3<6-2-3,条件不成立，所以While循环只执行了一次；
如果N=7，则K=4，i < N - 2 - K 带入值为3<7-2-4,条件不成立，while循环还是执行一次，所以不过N值怎么变化，只有进入While循环了，只能执行一次。

希望你看明白了吧

关键还在N和K的值为多少，我理解代码里N的值就是UBound(avCAALData, 1)的值,
要进入While循环，N最小要=4，然而循环里的
For J = i + 1 To N - K 中N-K以及For J循环里的K=K+1决定了K的值，如果N=6,则For J 循环完成后，K=3, 则While循环的入口条件i < N - 2 - K 带入值为3<6-2-3,条件不成立，所以While循环只执行了一次；
如果N=7，则K=4，i < N - 2 - K 带入值为3<7-2-4,条件不成立，while循环还是执行一次，所以不过N值怎么变化，只要进入While循环了，只能执行一次。

希望你看明白了吧