Question

VB 先循环给二维数组赋值 ，然后让二维数组中每行元素出现有0值为准，怎么达到目的？

VB 先循环给二维数组H(V,J)赋值 ，然后判断二维数组中每行元素是否都大于0，大于则该行所有值都减1，直到有0值为准，怎么实现 ？ 我的是读的excel表格数据，然后再输入到表格里， 就此块没有解决，求助一下。ii定义的是布尔型

ii = False
For v = ks To js '枕数的循环

For j = 1 To arrpq1(i, 4) '每枕扣件循环
If H(v, j) = 0 Then '叠加后的值都大于1时，需要归零把 此值放到预设超高里

ii = True
End If
Next j

Next v
Next i
If ii = False Then
For v = ks To js '枕数的循环

For j = 1 To arrpq1(i, 4) '每枕扣件循环

H_OUT(v, j) = H_OUT(v, j) - 1
Next j
Next v

Next i
End If
结果不对 不该减1的也减了。
next i 忘记删掉了 就是原来每行元素中有0值得 它也都减1了，正确应该怎么处理 ？

Answer 1

你试一下：
For v = ks To js '枕数的循环
ii = False
For j = 1 To arrpq1(i, 4) '每枕扣件循环
If H(v, j) = 0 Then '叠加后的值都大于1时，需要归零把 此值放到预设超高里
ii = True
End If
Next j
while ii = False
For j = 1 To arrpq1(i, 4) '每枕扣件循环
H_OUT(v, j) = H_OUT(v, j) - 1
If H(v, j) = 0 Then ii = True
Next j
Wend
Next v

追问

你试验了没有 ？系统体质 第二个next j 找不到 for ....

追答

我没法试 啊，你没有将代码全部贴上来，这里的变量、数组都没有，怎么试啊？配对情况如上图，怎么会找不到for？

追问

你上面 if ...then 之后没有 end if ,不过 按照这个思路我搞定了 ，谢谢！

追答

If H(v,j)=0 Then ii=True
你说的是这一行吗？你看，我上面都是标出了的，这一行我会疏漏吗？当If...Then...在一行上完成时，是不需要End If的。