缘由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 < 4If j < 4 ThenIf zc < wei4(j, h) Thensc += zc.ToString + " "zc = wei4(j, h)If j = 3 Thensc += zc.ToString + Chr(13) + Chr(10)End Ifj += 1h = 0Elseh += 1End IfIf h >= 4 Thenj += 1h = 0End IfElsej = 1f += 1zc = wei4(0, f)End IfEnd WhileEnd Sub