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
相关推荐
许泽宇的技术分享9 小时前
重新定义音频编程:SoundFlow如何以模块化设计革新.NET音频开发生态
.net·音视频
步步为营DotNet1 天前
5-2EFCore性能优化
数据库·性能优化·.net
SEO-狼术1 天前
.Net Forms Resize Crack
.net
许泽宇的技术分享1 天前
Text2Sql.Net架构深度解析:从自然语言到SQL的智能转换之道
sql·架构·.net
追逐时光者2 天前
一款基于 .NET 开源美观、功能丰富的串口调试工具
.net
瀚高PG实验室2 天前
外网获取瀚高.NET驱动dll方法和使用案例
.net·瀚高数据库
2501_926227942 天前
.Net程序员就业现状以及学习路线图(四)
学习·.net
喵叔哟2 天前
54.【.NET8 实战--孢子记账--从单体到微服务--转向微服务】--新增功能--实现手机邮箱注册
微服务·智能手机·.net