更多多维数组问题

Question

我正在尝试根据条件填充数组，似乎我的示例代码将值粘贴在错误的位置。我包括了它被改变的位置。我尝试做一些基本的 +1/-1 修复，但到目前为止，所有这些努力都放错了地方或返回了各种其他错误。

更清楚一点 - 问题是在 v 循环中，值被卡在 (o,0) 位置而不是 (o,v) 位置（覆盖之前的值）。

我认为我的结构方式会为每个循环执行 o 的条件，然后检查 v 的条件，然后当 v 将循环时，将在 v 位置输入等于 o 的当前值的值？

我显然遗漏了一些东西，任何正确方向的指针都将不胜感激

Dim Cbox(9, 1)

For o = LBound(Cbox, 1) To UBound(Cbox, 1)
    If LPDif2 = 0 Then
        Cbox(o, 0) = 0
    ElseIf LPDif2 < 3 And LPDif2 > 0 Then
        CCount = CCount + LPDif2
        Cbox(o, 0) = LPDif2
    Else
        CCount = CCount + 3
        Cbox(o, 0) = 3
        LPDif2 = CNLP - CCount
    End If

    LPDif2 = CNLP - CCount
    If CCount = CNLP Then BCount = BCount + 1
    WCount = WCount + CW
    If CCount < CNLP And CCount >= Round(CLng(CNLP) / 2 + 0.000001, 0) Then DCount = DCount + 1
    If CCount >= CNLP Then DCount = DCount + 2

    For v = LBound(Cbox, 2) To UBound(Cbox, 2)
        If CCount >= Round(CLng(CNLP) / 2 + 0.000001, 0) And DCount = 1 Then
            Cbox(o, v) = "Green"
            If CTCombo = "9 W" Then
                AXWCount = WCount / 2
                WH.Value = Ceiling(AXWCount, 9)
            Else
                WH.Value = WCount
            End If
        End If
    Next v
Next o

Answer 1

根据 cmets，只有当 v 的值为 1 时，内循环内部的代码才应该运行。它应该像完全消除内循环并硬编码值“1”一样简单：

For o = LBound(Cbox, 1) To UBound(Cbox, 1)
    '...
    If CCount >= Round(CLng(CNLP) / 2 + 0.000001, 0) And DCount = 1 Then
        Cbox(o, 1) = "Green"
        If CTCombo = "9 W" Then
            AXWCount = WCount / 2
            WH.Value = Ceiling(AXWCount, 9)
        Else
            WH.Value = WCount
        End If
    End If
Next o