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
相关推荐
Aevget6 小时前
DevExpress WPF中文教程:Data Grid - 如何使用虚拟源?(二)
.net·wpf·界面控件·devexpress·ui开发·数据网格
从孑开始9 小时前
ManySpeech.MoonshineAsr 使用指南
人工智能·ai·c#·.net·私有化部署·语音识别·onnx·asr·moonshine
玩泥巴的16 小时前
.NET驾驭Word之力:基于规则自动生成及排版Word文档
c#·word·.net·com互操作
专注VB编程开发20年16 小时前
VB.NET多线程排序算法实现:LINQ与正则表达式方法
排序算法·.net·linq
EQ-雪梨蛋花汤21 小时前
【踩坑记录】从“正在还原所需的工具包”说起:一次 .NET 工程包还原失败的完整排查实录
.net
喵叔哟1 天前
63.【.NET8 实战--孢子记账--从单体到微服务--转向微服务】--新增功能--预算告警
运维·微服务·.net
专注VB编程开发20年1 天前
VB.NET2003和VB2008可以导入VB6项目
.net·vb.net·vb6·vb2008
喵叔哟1 天前
62.【.NET8 实战--孢子记账--从单体到微服务--转向微服务】--新增功能--自训练ML模型
微服务·架构·.net
追逐时光者1 天前
将 EasySQLite 解决方案文件格式从 .sln 升级为更简洁的 .slnx
后端·.net
专注VB编程开发20年2 天前
C#,VB.NET数组去重复,提取键名和重复键和非重复键
c#·.net·linq·取唯一键·去重复·重复数量