VB.NET二维数组的组合

本文介绍: 缘由https://bbs.csdn.net/topic s/397512167首先写了自上而下的查找，在此基础上再加逻辑控制以达到目标。 Sub 四维组合() Di m wei4 = {{4, 5, 6, 7}, {1, 2, 4, 8}, {9, 10, 11, 12}, {3, 13, 21, 22}} Dim j = 1, h = 0, f = 0, zc = wei4(0, f) Dim sc = “” While f &l.

缘由https://bbs.csdn.net/topics/397512167 首先写了自上而下的查找，在此基础上再加逻辑控制以达到目标。

    Sub 四维组合()
        Dim wei4 = {{4, 5, 6, 7}, {1, 2, 4, 8}, {9, 10, 11, 12}, {3, 13, 21, 22}}
        Dim j = 1, h = 0, f = 0, zc = wei4(0, f)
        Dim sc = ""
        While f &lt; 4
            If j &lt; 4 Then
                If zc &lt; wei4(j, h) Then
                    sc += zc.ToString + " "
                    zc = wei4(j, h)
                    If j = 3 Then
                        sc += zc.ToString + Chr(13) + Chr(10)
                    End If
                    j += 1
                    h = 0
                Else
                    h += 1
                End If
                If h &gt;= 4 Then
                    j += 1
                    h = 0
                End If
            Else
                j = 1
                f += 1
                zc = wei4(0, f)
            End If
        End While
    End Sub