【VB.NET】配列やコレクション内の要素を並び替える

Module ArraySortExample
    Sub Main()
        ' 整数配列の並び替え
        Dim numbers() As Integer = {5, 2, 8, 1, 9}
        Array.Sort(numbers)
        
        Console.WriteLine("並び替え後の数字:")
        For Each num In numbers
            Console.Write(num & " ")
        Next
        Console.WriteLine()

        ' 文字列配列の並び替え
        Dim fruits() As String = {"バナナ", "リンゴ", "オレンジ", "ぶどう"}
        Array.Sort(fruits)
        
        Console.WriteLine("並び替え後の果物:")
        For Each fruit In fruits
            Console.Write(fruit & " ")
        Next
        Console.WriteLine()
    End Sub
End Module

Module CustomSortExample
    Class Person
        Public Property Name As String
        Public Property Age As Integer

        Public Sub New(name As String, age As Integer)
            Me.Name = name
            Me.Age = age
        End Sub
    End Class

    Sub Main()
        Dim people() As Person = {
            New Person("山田", 30),
            New Person("佐藤", 25),
            New Person("田中", 35)
        }

        ' 年齢で並び替え
        Array.Sort(people, Function(x, y) x.Age.CompareTo(y.Age))

        Console.WriteLine("年齢順:")
        For Each person In people
            Console.WriteLine($"{person.Name}: {person.Age}歳")
        Next
    End Sub
End Module

Imports System.Collections.Generic

Module ListSortExample
    Sub Main()
        Dim fruits As New List(Of String) From {"バナナ", "リンゴ", "オレンジ", "ぶどう"}

        ' 昇順に並び替え
        fruits.Sort()
        Console.WriteLine("昇順:")
        For Each fruit In fruits
            Console.Write(fruit & " ")
        Next
        Console.WriteLine()

        ' 降順に並び替え
        fruits.Sort(Function(x, y) y.CompareTo(x))
        Console.WriteLine("降順:")
        For Each fruit In fruits
            Console.Write(fruit & " ")
        Next
        Console.WriteLine()
    End Sub
End Module