using System;
using System.Collections;
using System.Collections.Generic;

class Sample {
  static void Main()
  {
    string[] arr = new string[] {"Charlie", "Dave", "Alice", "Eve", "Bob"};
    ArrayList al = new ArrayList(arr);
    List<string> l = new List<string>(arr);

    Console.WriteLine("[Array.Sort]");

    Print(arr);

    Array.Sort(arr);

    Print(arr);

    Console.WriteLine("[ArrayList.Sort]");

    Print(al);

    al.Sort();

    Print(al);

    Console.WriteLine("[List.Sort]");

    Print(l);

    l.Sort();

    Print(l);
  }

  static void Print(IEnumerable c)
  {
    foreach (string e in c) {
      Console.Write("{0}, ", e);
    }

    Console.WriteLine();
  }
}

Imports System
Imports System.Collections
Imports System.Collections.Generic

Class Sample
  Shared Sub Main()
    Dim arr() As String = New String() {"Charlie", "Dave", "Alice", "Eve", "Bob"}
    Dim al As New ArrayList(arr)
    Dim l As New List(Of String)(arr)

    Console.WriteLine("[Array.Sort]")

    Print(arr)

    Array.Sort(arr)

    Print(arr)

    Console.WriteLine("[ArrayList.Sort]")

    Print(al)

    al.Sort()

    Print(al)

    Console.WriteLine("[List.Sort]")

    Print(l)

    l.Sort()

    Print(l)
  End Sub

  Shared Sub Print(ByVal c As IEnumerable)
    For Each e As String In c
      Console.Write("{0}, ", e)
    Next

    Console.WriteLine()
  End Sub
End Class

using System;
using System.Collections;

class Account : IComparable {
  int id;
  string name;

  public Account(int id, string name)
  {
    this.id = id;
    this.name = name;
  }

  // IComparable.CompareToの実装
  public int CompareTo(object obj)
  {
    // 引数がnullの場合はArgumentNullExceptionをスローする
    if (obj == null) throw new ArgumentNullException();

    // 引数をAccountに型変換
    Account other = obj as Account;

    // 引数をAccountに型変換できなかった場合はArgumentExceptionをスローする
    if (other == null) throw new ArgumentException();

    // フィールドidの値の大小関係をCompareToの戻り値とする
    if (this.id < other.id) {
      // 現在のインスタンスは、引数よりも小さい
      return -1;
    }
    else if (this.id > other.id) {
      // 現在のインスタンスは、引数よりも大きい
      return 1;
    }
    else {
      // 現在のインスタンスは、引数よりは等しい
      return 0;
    }

    // より簡単に、以下のように記述することもできる
    //return this.id - other.id;
    // また、Integer.CompareToメソッドの結果を使用するように記述することもできる
    //return this.id.CompareTo(other.id);
  }

  public override string ToString()
  {
    return string.Format("{0}:{1}", id, name);
  }
}

class Sample {
  static void Main()
  {
    Account[] arr = new Account[] {
      new Account(1, "Eve"),
      new Account(4, "Dave"),
      new Account(2, "Alice"),
      new Account(0, "Charlie"),
      new Account(3, "Bob"),
    };

    Console.WriteLine("[before sort]");

    Print(arr);

    Console.WriteLine("[after sort]");

    Array.Sort(arr);

    Print(arr);
  }

  static void Print(IEnumerable c)
  {
    foreach (Account e in c) {
      Console.WriteLine(e);
    }
  }
}

Imports System
Imports System.Collections

Class Account
  Implements IComparable

  Dim id As Integer
  Dim name As String

  Public Sub New(ByVal id As Integer, ByVal name As String)
    MyClass.id = id
    MyClass.name = name
  End Sub

  ' IComparable.CompareToの実装
  Public Function CompareTo(ByVal obj As Object) As Integer Implements IComparable.CompareTo
    ' 引数がNothingの場合はArgumentNullExceptionをスローする
    If obj Is Nothing Then Throw New ArgumentNullException()

    ' 引数をAccountに型変換
    Dim other As Account = TryCast(obj, Account)

    ' 引数をAccountに型変換できなかった場合はArgumentExceptionをスローする
    If other Is Nothing Then Throw New ArgumentException()

    ' フィールドidの値の大小関係をCompareToの戻り値とする
    If MyClass.id < other.id Then
      ' 現在のインスタンスは、引数よりも小さい
      Return -1
    Else IF MyClass.id > other.id Then
      ' 現在のインスタンスは、引数よりも大きい
      Return 1
    Else
      ' 現在のインスタンスは、引数よりは等しい
      Return 0
    End If

    ' より簡単に、以下のように記述することもできる
    'Return MyClass.id - other.id
    ' また、Integer.CompareToメソッドの結果を使用するように記述することもできる
    'Return MyClass.id.CompareTo(other.id)
  End Function

  Public Overrides Function ToString() As String
    Return String.Format("{0}:{1}", id, name)
  End Function
End Class

Class Sample
  Shared Sub Main()
    Dim arr() As Account = New Account() { _
      New Account(1, "Eve"), _
      New Account(4, "Dave"), _
      New Account(2, "Alice"), _
      New Account(0, "Charlie"), _
      New Account(3, "Bob") _
    }

    Console.WriteLine("[before sort]")

    Print(arr)

    Console.WriteLine("[after sort]")

    Array.Sort(arr)

    Print(arr)
  End Sub

  Shared Sub Print(ByVal c As IEnumerable)
    For Each e As Account In c
      Console.WriteLine(e)
    Next
  End Sub
End Class

using System;
using System.Collections;

// intを昇順で並べ替えるIComparerの実装
class AscendingOrderComparer : IComparer {
  public int Compare(object x, object y)
  {
    int ix = (int)x;
    int iy = (int)y;

    return ix - iy;
    // 次のように記述することもできる
    //return ix.CompareTo(iy);
  }
}

// intを降順で並べ替えるIComparerの実装
class DescendingOrderComparer : IComparer {
  public int Compare(object x, object y)
  {
    int ix = (int)x;
    int iy = (int)y;

    return iy - ix;
    // 次のように記述することもできる
    //return iy.CompareTo(ix);
    //return -ix.CompareTo(iy);
  }
}

class Sample {
  static void Main()
  {
    int[] arr = new int[] {3, 4, 2, 0, 1};

    Console.WriteLine("[before sort]");

    Print(arr);

    // AscendingOrderComparerを使ってソート
    Console.WriteLine("[AscendingOrderComparer]");

    Array.Sort(arr, new AscendingOrderComparer());

    Print(arr);

    // DescendingOrderComparerを使ってソート
    Console.WriteLine("[DescendingOrderComparer]");

    Array.Sort(arr, new DescendingOrderComparer());

    Print(arr);

    // Array.SortメソッドとArray.Reverseメソッドを使ってソート
    Console.WriteLine("[Sort + Reverse]");

    Array.Sort(arr);

    Print(arr);

    Array.Reverse(arr);

    Print(arr);
  }

  static void Print(IEnumerable c)
  {
    foreach (int e in c) {
      Console.Write("{0}, ", e);
    }

    Console.WriteLine();
  }
}

Imports System
Imports System.Collections

' Integerを昇順で並べ替えるIComparerの実装
Class AscendingOrderComparer
  Implements IComparer

  Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare
    Dim ix As Integer = CInt(x)
    Dim iy As Integer = CInt(y)

    Return ix - iy
    ' 次のように記述することもできる
    'Return ix.CompareTo(iy)
  End Function
End Class

' Integerを降順で並べ替えるIComparerの実装
Class DescendingOrderComparer
  Implements IComparer

  Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare
    Dim ix As Integer = CInt(x)
    Dim iy As Integer = CInt(y)

    Return iy - ix
    ' 次のように記述することもできる
    'Return iy.CompareTo(ix)
    'Return -ix.CompareTo(iy)
  End Function
End Class

Class Sample
  Shared Sub Main()
    Dim arr() As Integer = New Integer() {3, 4, 2, 0, 1}

    Console.WriteLine("[before sort]")

    Print(arr)

    ' AscendingOrderComparerを使ってソート
    Console.WriteLine("[AscendingOrderComparer]")

    Array.Sort(arr, New AscendingOrderComparer())

    Print(arr)

    ' DescendingOrderComparerを使ってソート
    Console.WriteLine("[DescendingOrderComparer]")

    Array.Sort(arr, New DescendingOrderComparer())

    Print(arr)

    ' Array.SortメソッドとArray.Reverseメソッドを使ってソート
    Console.WriteLine("[Sort + Reverse]")

    Array.Sort(arr)

    Print(arr)

    Array.Reverse(arr)

    Print(arr)
  End Sub

  Shared Sub Print(ByVal c As IEnumerable)
    For Each e As Integer In c
      Console.Write("{0}, ", e)
    Next

    Console.WriteLine()
  End Sub
End Class

using System;
using System.Collections;

class Account {
  private int id;
  private string name;

  public int ID {
    get { return id; }
  }

  public string Name {
    get { return name; }
  }

  public Account(int id, string name)
  {
    this.id = id;
    this.name = name;
  }

  public override string ToString()
  {
    return string.Format("{0}:{1}", id, name);
  }
}

class AccountComparer : IComparer {
  public enum SortMode {
    ByID, // ID順でソート
    ByName, // 名前順でソート
  }

  public enum SortOrder : int {
    Ascending = +1, // 昇順でソート
    Descending = -1, // 降順でソート
  }

  private SortMode mode = SortMode.ByID;
  private SortOrder order = SortOrder.Ascending;

  public SortMode Mode {
    get { return mode; }
    set { mode = value; }
  }

  public SortOrder Order {
    get { return order; }
    set { order = value; }
  }

  public int Compare(object x, object y)
  {
    // 引数がnullの場合はArgumentNullExceptionをスローする
    if (x == null) throw new ArgumentNullException("x");
    if (y == null) throw new ArgumentNullException("y");

    Account ax = x as Account;
    Account ay = y as Account;

    // Accountクラスに型変換出来ない場合は、ArgumentExceptionをスローする
    if (ax == null) throw new ArgumentException();
    if (ay == null) throw new ArgumentException();

    switch (mode) {
      case SortMode.ByID:
        return (int)order * (ax.ID - ay.ID);

      case SortMode.ByName:
        return (int)order * string.Compare(ax.Name, ay.Name);

      default:
        throw new InvalidOperationException("未定義のSortMode");
    }
  }
}

class Sample {
  static void Main()
  {
    Account[] arr = new Account[] {
      new Account(1, "Eve"),
      new Account(4, "Dave"),
      new Account(2, "Alice"),
      new Account(0, "Charlie"),
      new Account(3, "Bob"),
    };

    AccountComparer comparer = new AccountComparer();

    Print(arr);

    Console.WriteLine("[{0} {1}]", comparer.Mode, comparer.Order);

    Array.Sort(arr, comparer);

    Print(arr);

    comparer.Mode = AccountComparer.SortMode.ByName;

    Console.WriteLine("[{0} {1}]", comparer.Mode, comparer.Order);

    Array.Sort(arr, comparer);

    Print(arr);

    comparer.Order = AccountComparer.SortOrder.Descending;

    Console.WriteLine("[{0} {1}]", comparer.Mode, comparer.Order);

    Array.Sort(arr, comparer);

    Print(arr);
  }

  static void Print(IEnumerable c)
  {
    foreach (Account e in c) {
      Console.WriteLine(e);
    }
  }
}

Imports System
Imports System.Collections

Class Account
  Private _id As Integer
  Private _name As String

  Public ReadOnly Property ID As Integer
    Get
      Return _id
    End Get
  End Property

  Public ReadOnly Property Name As String
    Get
      Return _name
    End Get
  End Property

  Public Sub New(ByVal id As Integer, ByVal name As String)
    _id = id
    _name = name
  End Sub

  Public Overrides Function ToString() As String
    Return String.Format("{0}:{1}", _id, _name)
  End Function
End Class

Class AccountComparer
  Implements IComparer

  Public Enum SortMode
    ByID ' ID順でソート
    ByName ' 名前順でソート
  End Enum

  Public Enum SortOrder As Integer
    Ascending = +1 ' 昇順でソート
    Descending = -1 ' 降順でソート
  End Enum

  Private _mode As SortMode = SortMode.ByID
  Private _order As SortOrder = SortOrder.Ascending

  Public Property Mode As SortMode
    Get
      Return _mode
    End Get
    Set(ByVal value As SortMode)
      _mode = value
    End Set
  End Property

  Public Property Order As SortOrder
    Get
      Return _order
    End Get
    Set(ByVal value As SortOrder)
      _order = value
    End Set
  End Property

  Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare
    ' 引数がNothingの場合はArgumentNullExceptionをスローする
    If x Is Nothing Then Throw New ArgumentNullException("x")
    If y Is Nothing Then Throw New ArgumentNullException("y")

    Dim ax As Account = TryCast(x, Account)
    Dim ay As Account = TryCast(y, Account)

    ' Accountクラスに型変換出来ない場合は、ArgumentExceptionをスローする
    If ax Is Nothing Then Throw New ArgumentException()
    If ay Is Nothing Then Throw New ArgumentException()

    Select Case _mode
      Case SortMode.ByID
        Return CInt(_order) * (ax.ID - ay.ID)

      Case SortMode.ByName
        Return CInt(_order) * string.Compare(ax.Name, ay.Name)

      Case Else
        Throw New InvalidOperationException("未定義のSortMode")
    End Select
  End Function
End Class

Class Sample
  Shared Sub Main()
    Dim arr() As Account = New Account() { _
      New Account(1, "Eve"), _
      New Account(4, "Dave"), _
      New Account(2, "Alice"), _
      New Account(0, "Charlie"), _
      New Account(3, "Bob") _
    }

    Dim comparer As New AccountComparer()

    Print(arr)

    Console.WriteLine("[{0} {1}]", comparer.Mode, comparer.Order)

    Array.Sort(arr, comparer)

    Print(arr)

    comparer.Mode = AccountComparer.SortMode.ByName

    Console.WriteLine("[{0} {1}]", comparer.Mode, comparer.Order)

    Array.Sort(arr, comparer)

    Print(arr)

    comparer.Order = AccountComparer.SortOrder.Descending

    Console.WriteLine("[{0} {1}]", comparer.Mode, comparer.Order)

    Array.Sort(arr, comparer)

    Print(arr)
  End Sub

  Shared Sub Print(ByVal c As IEnumerable)
    For Each e As Account In c
      Console.WriteLine(e)
    Next
  End Sub
End Class

using System;
using System.Collections.Generic;

class Account : IComparable<Account> {
  int id;
  string name;

  public Account(int id, string name)
  {
    this.id = id;
    this.name = name;
  }

  // IComparable<Account>.CompareToの実装
  public int CompareTo(Account other)
  {
    // 引数がnullの場合はArgumentNullExceptionをスローする
    if (other == null) throw new ArgumentNullException("other");

    // フィールドidの値の大小関係をCompareToの戻り値とする
    return this.id - other.id;
  }

  public override string ToString()
  {
    return string.Format("{0}:{1}", id, name);
  }
}

class Sample {
  static void Main()
  {
    Account[] arr = new Account[] {
      new Account(1, "Eve"),
      new Account(4, "Dave"),
      new Account(2, "Alice"),
      new Account(0, "Charlie"),
      new Account(3, "Bob"),
    };

    Console.WriteLine("[before sort]");

    Print(arr);

    Console.WriteLine("[after sort]");

    Array.Sort(arr);

    Print(arr);
  }

  static void Print(IEnumerable<Account> c)
  {
    foreach (Account e in c) {
      Console.WriteLine(e);
    }
  }
}

Imports System
Imports System.Collections.Generic

Class Account
  Implements IComparable(Of Account)

  Dim id As Integer
  Dim name As String

  Public Sub New(ByVal id As Integer, ByVal name As String)
    MyClass.id = id
    MyClass.name = name
  End Sub

  ' IComparable(Of Account).CompareToの実装
  Public Function CompareTo(ByVal other As Account) As Integer Implements IComparable(Of Account).CompareTo
    ' 引数がNothingの場合はArgumentNullExceptionをスローする
    If other Is Nothing Then Throw New ArgumentNullException("other")

    ' フィールドidの値の大小関係をCompareToの戻り値とする
    Return MyClass.id - other.id
  End Function

  Public Overrides Function ToString() As String
    Return String.Format("{0}:{1}", id, name)
  End Function
End Class

Class Sample
  Shared Sub Main()
    Dim arr() As Account = New Account() { _
      New Account(1, "Eve"), _
      New Account(4, "Dave"), _
      New Account(2, "Alice"), _
      New Account(0, "Charlie"), _
      New Account(3, "Bob") _
    }

    Console.WriteLine("[before sort]")

    Print(arr)

    Console.WriteLine("[after sort]")

    Array.Sort(arr)

    Print(arr)
  End Sub

  Shared Sub Print(ByVal c As IEnumerable(Of Account))
    For Each e As Account In c
      Console.WriteLine(e)
    Next
  End Sub
End Class

using System;

class Account : IComparable<Account>, IComparable<int>, IComparable<string> {
  // IComparable<Account>.CompareToの実装
  public int CompareTo(Account other)
  {
    // Accountとの比較処理
  }

  // IComparable<int>.CompareToの実装
  public int CompareTo(int other)
  {
    // intとの比較処理
  }
  // IComparable<string>.CompareToの実装
  public int CompareTo(string other)
  {
    // stringとの比較処理
  }
}

Imports System

Class Account
  Implements IComparable(Of Account)
  Implements IComparable(Of Integer)
  Implements IComparable(Of String)

  ' IComparable(Of Account).CompareToの実装
  Public Function CompareTo(ByVal other As Account) As Integer Implements IComparable(Of Account).CompareTo
    ' Accountとの比較処理
  End Function

  ' IComparable(Of Integer).CompareToの実装
  Public Function CompareTo(ByVal other As Integer) As Integer Implements IComparable(Of Integer).CompareTo
    ' Integerとの比較処理
  End Function

  ' IComparable(Of String).CompareToの実装
  Public Function CompareTo(ByVal other As String) As Integer Implements IComparable(Of String).CompareTo
    ' Stringとの比較処理
  End Function
End Class

using System;
using System.Collections.Generic;

// 昇順で並べ替えるIComparer<int>の実装
class AscendingOrderComparer : IComparer<int> {
  public int Compare(int x, int y)
  {
    return x - y;
  }
}

// 降順で並べ替えるIComparer<int>の実装
class DescendingOrderComparer : IComparer<int> {
  public int Compare(int x, int y)
  {
    return y - x;
  }
}

class Sample {
  static void Main()
  {
    int[] arr = new int[] {3, 4, 2, 0, 1};

    Console.WriteLine("[before sort]");

    Print(arr);

    // AscendingOrderComparerを使ってソート
    Console.WriteLine("[AscendingOrderComparer]");

    Array.Sort(arr, new AscendingOrderComparer());

    Print(arr);

    // DescendingOrderComparerを使ってソート
    Console.WriteLine("[DescendingOrderComparer]");

    Array.Sort(arr, new DescendingOrderComparer());

    Print(arr);
  }

  static void Print(IEnumerable<int> c)
  {
    foreach (int e in c) {
      Console.Write("{0}, ", e);
    }

    Console.WriteLine();
  }
}

Imports System
Imports System.Collections.Generic

' 昇順で並べ替えるIComparer(Of Integer)の実装
Class AscendingOrderComparer
  Implements IComparer(Of Integer)

  Public Function Compare(ByVal x As Integer, ByVal y As Integer) As Integer Implements IComparer(Of Integer).Compare
    Return x - y
  End Function
End Class

' 降順で並べ替えるIComparer(Of Integer)の実装
Class DescendingOrderComparer
  Implements IComparer(Of Integer)

  Public Function Compare(ByVal x As Integer, ByVal y As Integer) As Integer Implements IComparer(Of Integer).Compare
    Return y - x
  End Function
End Class

Class Sample
  Shared Sub Main()
    Dim arr() As Integer = New Integer() {3, 4, 2, 0, 1}

    Console.WriteLine("[before sort]")

    Print(arr)

    ' AscendingOrderComparerを使ってソート
    Console.WriteLine("[AscendingOrderComparer]")

    Array.Sort(arr, New AscendingOrderComparer())

    Print(arr)

    ' DescendingOrderComparerを使ってソート
    Console.WriteLine("[DescendingOrderComparer]")

    Array.Sort(arr, New DescendingOrderComparer())

    Print(arr)
  End Sub

  Shared Sub Print(ByVal c As IEnumerable(Of Integer))
    For Each e As Integer In c
      Console.Write("{0}, ", e)
    Next

    Console.WriteLine()
  End Sub
End Class

using System;
using System.Collections.Generic;

class Sample {
  // int型の値を降順で比較するメソッド
  static int CompareDescendingOrder(int x, int y)
  {
    return y - x;
  }

  static void Main()
  {
    int[] arr = new int[] {3, 4, 2, 0, 1};

    Console.WriteLine("[before sort]");

    Print(arr);

    // Comparison<int>を指定せずにソート
    Console.WriteLine("[Sort]");

    Array.Sort(arr);

    Print(arr);

    // Comparison<int>を指定してソート
    Comparison<int> comparison = CompareDescendingOrder;

    Console.WriteLine("[Sort + Comparison<int>]");

    Array.Sort(arr, comparison);

    // 単に次のように記述することも出来る
    //Array.Sort(arr, CompareDescendingOrder);
    // 匿名メソッドを使った場合は次のように記述出来る
    //Array.Sort(arr, delegate(int x, int y) {
    //  return y, x
    //});
    // ラムダ式を使った場合は次のように記述出来る
    //Array.Sort(arr, (x, y) => y - x);

    Print(arr);
  }

  static void Print(IEnumerable<int> c)
  {
    foreach (int e in c) {
      Console.Write("{0}, ", e);
    }

    Console.WriteLine();
  }
}

Imports System
Imports System.Collections.Generic

Class Sample
  ' Integer型の値を降順で比較するメソッド
  Shared Function CompareDescendingOrder(ByVal x As Integer, ByVal y As Integer) As Integer
    Return y - x
  End Function

  Shared Sub Main()
    Dim arr() As Integer = New Integer() {3, 4, 2, 0, 1}

    Console.WriteLine("[before sort]")

    Print(arr)

    ' Comparison(Of Integer)を指定せずにソート
    Console.WriteLine("[Sort]")

    Array.Sort(arr)

    Print(arr)

    ' Comparison(Of Integer)を指定してソート
    Dim comparison As Comparison(Of Integer) = AddressOf CompareDescendingOrder

    Console.WriteLine("[Sort + Comparison(Of Integer)]")

    Array.Sort(arr, comparison)
    ' 単に次のように記述することも出来る
    'Array.Sort(arr, AddressOf CompareDescendingOrder)
    ' ラムダ式を使った場合は次のように記述出来る
    'Array.Sort(arr, Function(x, y) y - x)

    Print(arr)
  End Sub

  Shared Sub Print(ByVal c As IEnumerable(Of Integer))
    For Each e As Integer In c
      Console.Write("{0}, ", e)
    Next

    Console.WriteLine()
  End Sub
End Class

using System;
using System.Collections;
using System.Collections.Generic;

// int型の値を降順で並べ替えるComparer
class DescendingOrderComparer : Comparer<int> {
  public override int Compare(int x, int y)
  {
    return y - x;
  }
}

class Sample {
  static void Main()
  {
    ArrayList al = new ArrayList(new object[] {3, null, 4, 2, 0, 1});

    Console.WriteLine("[before sort]");

    Print(al);

    Console.WriteLine("[after sort]");

    al.Sort(new DescendingOrderComparer());

    Print(al);
  }

  static void Print(IEnumerable c)
  {
    foreach (object e in c) {
      Console.Write("{0}, ", e);
    }

    Console.WriteLine();
  }
}

Imports System
Imports System.Collections
Imports System.Collections.Generic

' Integer型の値を降順で並べ替えるComparer
Class DescendingOrderComparer
  Inherits Comparer(Of Integer)

  Public Overrides Function Compare(ByVal x As Integer, ByVal y As Integer) As Integer
    Return y - x
  End Function
End Class

Class Sample
  Shared Sub Main()
    Dim al As New ArrayList(New Object() {3, Nothing, 4, 2, 0, 1})

    Console.WriteLine("[before sort]")

    Print(al)

    Console.WriteLine("[after sort]")

    al.Sort(New DescendingOrderComparer())

    Print(al)
  End Sub

  Shared Sub Print(ByVal c As IEnumerable)
    For Each e As Object In c
      Console.Write("{0}, ", e)
    Next

    Console.WriteLine()
  End Sub
End Class

using System;

class Sample {
  static void Main()
  {
    string[] arr = new string[] {"亜", "絵", "井", "尾", "宇"};

    Print(arr);

    Console.WriteLine("[StringComparer.CurrentCulture]");

    Array.Sort(arr, StringComparer.CurrentCulture);

    Print(arr);

    Console.WriteLine("[StringComparer.InvariantCulture]");

    Array.Sort(arr, StringComparer.InvariantCulture);

    Print(arr);
  }

  static void Print(string[] arr)
  {
    foreach (string e in arr) {
      Console.Write("{0}, ", e);
    }

    Console.WriteLine();
  }
}

Imports System

Class Sample
  Shared Sub Main()
    Dim arr() As String = New String() {"亜", "絵", "井", "尾", "宇"}

    Print(arr)

    Console.WriteLine("[StringComparer.CurrentCulture]")

    Array.Sort(arr, StringComparer.CurrentCulture)

    Print(arr)

    Console.WriteLine("[StringComparer.InvariantCulture]")

    Array.Sort(arr, StringComparer.InvariantCulture)

    Print(arr)
  End Sub

  Shared Sub Print(ByVal arr() As String)
    For Each e As Object In arr
      Console.Write("{0}, ", e)
    Next

    Console.WriteLine()
  End Sub
End Class