VB6.0的一个循环,来看看哪有毛病

来源:百度知道 编辑:UC知道 时间:2024/06/07 22:03:16
Classifiers是个量词数组,NumNature和NumNetwork是同长度的数组
Cla是Classifiers长度.

i = 0
j = 0
z = 0
Do While i <= NNat
Do While j <= NNet
m = NumNature(i)
n = NumNetwork(j)

Do While z <= Cla
class = Classifiers(z)
m = m & class
n = n & class
txtOutput.Text = Replace(txtOutput.Text, m, n)
z = z + 1
Loop

i = i + 1
j = j + 1
Loop
Loop
运行结果不对,Classifiers这数组里的元素只有第一个用上了,其余的都没用上.

1.Do While i <= NNat
Do While j <= NNet
在i第一次循环时,j的循环就用完了,这时候j不满足条件了,i的后续循环都没有执行j里面的循环。
2.同样,在j的第一次循环时,z的循环就全部做完了,m,n就是一样的,每次z的循环就是同样的m,n,也就是会覆盖前一次的内容,最后只有最初的m,n文件。