在嵌套排序列表vb.net中分组

Imports System.Linq

Public Class Program
    Public Shared Sub Main()
        ' 嵌套排序列表
        Dim nestedList As New List(Of List(Of Integer))()
        nestedList.Add(New List(Of Integer)() From {1, 2, 3})
        nestedList.Add(New List(Of Integer)() From {4, 5, 6})
        nestedList.Add(New List(Of Integer)() From {7, 8, 9})

        ' 分组操作
        Dim groupedLists = From sublist In nestedList
                           Group sublist By Key = sublist(0) Mod 2 Into Group
                           Select Group.ToList()

        ' 输出结果
        For Each group In groupedLists
            Console.WriteLine("Group:")
            For Each sublist In group
                Console.WriteLine(String.Join(", ", sublist))
            Next
            Console.WriteLine()
        Next
    End Sub
End Class