循环vb.net时出错 clustMember（0,0）=“1,2,3,4，” clustMember（0，1）=无 clustMember（0,2）=“5,6,7,8,9，” clustMember（0，3）=无 clustMember（1,0）=“1,2,3,4，” clustMember（1,1）=“5,6,7,8,9，” clustMember（1，2）=无 clustMember（1，3）=无 clustMember（2,0）=“1,2,3,4,6,9，” 俱乐部成员（2,1）=“5,7,8，” clustMember（2，2）=无 clustMember（2，3）=无 clustMember（3，0）=无 clustMember（3,1）=“1,2,3,4,5,6,8，” 俱乐部成员（3,2）=“7,9，” clustMember（3，3）=无 pmax=3 xini=3 对于i，作为整数=1到pmax-1 对于j，整数=0到xini-1 如果clustMember（i，j）什么都没有，那么 lastSolution（i，j）=clustMember（i-1，j） 如果结束 下一个 下一个

我在尝试将数据从clustMemBer传送到lastSolution时遇到问题。当j的值为0和1时，工作正常。但当j的值为2时，该值为clustMember不能移动到lastSolution。当我跟踪代码时，我发现当j的值为2时，会出现类似这样的警告：“此表达式的值可能不正确。无法对其求值，因为未声明j。由于其保护级别，它可能无法访问。”

有人知道如何解决这个问题吗

---

谢谢你

你的第一个问题是你在

i=1

而不是

i=0

开始外循环，因此你跳过了

如果clustMember（i，j）Nothing然后

前四项的条件：

    clustMember(0, 0) = "1,2,3,4,"
    clustMember(0, 1) = Nothing
    clustMember(0, 2) = "5,6,7,8,9,"
    clustMember(0, 3) = Nothing
    clustMember(1, 0) = "1,2,3,4,"
    clustMember(1, 1) = "5,6,7,8,9,"
    clustMember(1, 2) = Nothing
    clustMember(1, 3) = Nothing
    clustMember(2, 0) = "1,2,3,4,6,9,"
    clustMember(2, 1) = "5,7,8,"
    clustMember(2, 2) = Nothing
    clustMember(2, 3) = Nothing
    clustMember(3, 0) = Nothing
    clustMember(3, 1) = "1,2,3,4,5,6,8,"
    clustMember(3, 2) = "7,9,"
    clustMember(3, 3) = Nothing

    pmax = 3
    xini = 3

    For i As Integer = 1 To pmax - 1
        For j As Integer = 0 To xini - 1
            If clustMember(i, j) <> Nothing Then
                lastSolution(i, j) = clustMember(i - 1, j)
            End If
        Next
    Next

其次，如果您不在第一个项目上，则只能向后移动一个项目，因此请将代码更改为以下内容，以检查这是否是第一次通过外部循环：

clustMember(0, 0) = "1,2,3,4,"
clustMember(0, 1) = Nothing
clustMember(0, 2) = "5,6,7,8,9,"
clustMember(0, 3) = Nothing

对于i作为整数=0到pmax-1
对于j，整数=0到xini-1
如果clustMember（i，j）什么都没有，那么
如果i>0，那么
lastSolution（i，j）=clustMember（i-1，j）
其他的
lastSolution（i，j）=clustMember（i，j）
如果结束
如果结束
下一个
下一个

您的第一个问题是，您在

i=1

而不是

i=0

处开始外循环，因此您跳过了

如果clustMember（i，j）Nothing的条件，然后

针对前四项：

    clustMember(0, 0) = "1,2,3,4,"
    clustMember(0, 1) = Nothing
    clustMember(0, 2) = "5,6,7,8,9,"
    clustMember(0, 3) = Nothing
    clustMember(1, 0) = "1,2,3,4,"
    clustMember(1, 1) = "5,6,7,8,9,"
    clustMember(1, 2) = Nothing
    clustMember(1, 3) = Nothing
    clustMember(2, 0) = "1,2,3,4,6,9,"
    clustMember(2, 1) = "5,7,8,"
    clustMember(2, 2) = Nothing
    clustMember(2, 3) = Nothing
    clustMember(3, 0) = Nothing
    clustMember(3, 1) = "1,2,3,4,5,6,8,"
    clustMember(3, 2) = "7,9,"
    clustMember(3, 3) = Nothing

    pmax = 3
    xini = 3

    For i As Integer = 1 To pmax - 1
        For j As Integer = 0 To xini - 1
            If clustMember(i, j) <> Nothing Then
                lastSolution(i, j) = clustMember(i - 1, j)
            End If
        Next
    Next

其次，如果您不在第一个项目上，则只能向后移动一个项目，因此请将代码更改为以下内容，以检查这是否是第一次通过外部循环：

clustMember(0, 0) = "1,2,3,4,"
clustMember(0, 1) = Nothing
clustMember(0, 2) = "5,6,7,8,9,"
clustMember(0, 3) = Nothing

对于i作为整数=0到pmax-1
对于j，整数=0到xini-1
如果clustMember（i，j）什么都没有，那么
如果i>0，那么
lastSolution（i，j）=clustMember（i-1，j）
其他的
lastSolution（i，j）=clustMember（i，j）
如果结束
如果结束
下一个
下一个

实际上，我打算跳过lastSolution中的前四个数组，因为我已经用其他值填充了它。我将尝试第二个答案，我希望它能很好地工作。。感谢您的关注。实际上，我打算跳过lastSolution中的前四个数组，因为我已经用其他值填充了它。我将尝试第二个答案，我希望它能很好地工作。。谢谢你的关照。。