Visual Basic While循环不工作

Question

我有一个Visual Basic 2013应用程序，它包含一个double while循环，试图从二维数组中删除数组行。但它无法正常工作。它应该处理一个大约290行的数组，并且根据条件找不到要删除的行，因为数组已经使用基于相同条件的另一种方法处理，并且输出数据看起来正确。 double while循环中的代码只返回14行。有人可以看看代码，看看是否有任何逻辑错误。

以下是代码：

    i = 1
    While i <= array_count
        j = i + 1
        While j <= array_count
            matches_count = 0
            For k = 1 To 5
                For l = 1 To 5
                    If array (i, k) = array (j, l) Then
                        matches_count += 1
                    End If
                Next
            Next

            If matches_count > 2 Then
                For k = j To (array_count - 1)
                    For l = 1 To 5
                        array (k, l) = array (k + 1, l)
                    Next
                Next
                j -= 1
                array_count -= 1
            End If
            j += 1
        End While
        i += 1
    End While