VB.NET二维数组的组合

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

vbnet 复制代码
    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 < 4
            If j < 4 Then
                If zc < 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 >= 4 Then
                    j += 1
                    h = 0
                End If
            Else
                j = 1
                f += 1
                zc = wei4(0, f)
            End If
        End While
    End Sub
相关推荐
唐青枫1 小时前
C#.NET 数据库开发提速秘籍:SqlSugar 实战详解
c#·.net
追逐时光者10 小时前
精选 4 款基于 .NET 开源、功能强大的 Windows 系统优化工具
后端·.net
mudtools17 小时前
.NET驾驭Word之力:理解Word对象模型核心 (Application, Document, Range)
c#·.net
唐青枫1 天前
从入门到进阶:C#.NET Stopwatch 计时与性能测量全攻略
c#·.net
私人珍藏库1 天前
[Windows] 微软 .Net 运行库离线安装包 | Microsoft .Net Packages AIO_v09.09.25
microsoft·.net·运行库
追逐时光者1 天前
C#/.NET/.NET Core技术前沿周刊 | 第 54 期(2025年9.8-9.14)
后端·.net
追逐时光者1 天前
C#/.NET/.NET Core编程技巧练习集,配套详细的文章教程讲解!
后端·.net
咕白m6252 天前
C# Excel 读取入门教程:免费实现方法
c#·.net
唐青枫2 天前
FluentData 从入门到精通:C#.NET 数据访问最佳实践
c#·.net
余衫马3 天前
开发指南:使用 MQTTNet 库构建 .Net 物联网 MQTT 应用程序
物联网·mqtt·.net