using System;
using System.Collections.Generic;

class Sample {
  // 二つのKeyValuePair<string, int>を比較するためのメソッド
  static int CompareKeyValuePair(KeyValuePair<string, int> x, KeyValuePair<string, int> y)
  {
    // Keyで比較した結果を返す
    return string.Compare(x.Key, y.Key);
  }

  static void Main()
  {
    // ソート対象のDictionary<string, int>
    var dict = new Dictionary<string, int>();

    dict.Add("Bob", 3);
    dict.Add("Dave", 1);
    dict.Add("Alice", 2);
    dict.Add("Charlie", 5);
    dict.Add("Eve", 4);

    // Dictionaryの内容をコピーして、List<KeyValuePair<string, int>>に変換
    var pairs = new List<KeyValuePair<string, int>>(dict);

    // List.Sortメソッドを使ってソート
    // (引数に比較方法を定義したメソッドを指定する)
    pairs.Sort(CompareKeyValuePair);

    foreach (var pair in pairs) {
      Console.WriteLine("{0} {1}", pair.Key, pair.Value);
    }
  }
}

Imports System
Imports System.Collections.Generic

Class Sample
  ' 二つのKeyValuePair(Of String, Integer)を比較するためのメソッド
  Shared Function CompareKeyValuePair(ByVal x As KeyValuePair(Of String, Integer), _
                                      ByVal y As KeyValuePair(Of String, Integer)) As Integer
    ' Keyで比較した結果を返す
    Return String.Compare(x.Key, y.Key)
  End Function

  Shared Sub Main()
    ' ソート対象のDictionary
    Dim dict As New Dictionary(Of String, Integer)()

    dict.Add("Bob", 3)
    dict.Add("Dave", 1)
    dict.Add("Alice", 2)
    dict.Add("Charlie", 5)
    dict.Add("Eve", 4)

    ' Dictionaryの内容をコピーして、List(Of KeyValuePair(Of String, Integer))に変換
    Dim pairs As New List(Of KeyValuePair(Of String, Integer))(dict)

    ' List.Sortメソッドを使ってソート
    ' (引数に比較方法を定義したメソッドを指定する)
    pairs.Sort(AddressOf CompareKeyValuePair)

    For Each pair As KeyValuePair(Of String, Integer) In pairs
      Console.WriteLine("{0} {1}", pair.Key, pair.Value)
    Next
  End Sub
End Class

// 二つのKeyValuePair<string, int>を比較するためのメソッド
static int CompareKeyValuePair(KeyValuePair<string, int> x, KeyValuePair<string, int> y)
{
  // Valueで比較した結果を返す
  return x.Value.CompareTo(y.Value);

  // 単に次のようにしても同じ
  // return x.Value - y.Value;
}

' 二つのKeyValuePair(Of String, Integer)を比較するためのメソッド
Shared Function CompareKeyValuePair(ByVal x As KeyValuePair(Of String, Integer), _
                                    ByVal y As KeyValuePair(Of String, Integer)) As Integer
  ' Valueで比較した結果を返す
  Return x.Value.CompareTo(b.Value)

  ' 単に次のようにしても同じ
  ' Return y.Value - b.Value
End Function

using System;
using System.Collections.Generic;

class Sample {
  static void Main()
  {
    // ソート対象のDictionary<string, int>
    var dict = new Dictionary<string, int>();

    dict.Add("Bob", 3);
    dict.Add("Dave", 1);
    dict.Add("Alice", 2);
    dict.Add("Charlie", 5);
    dict.Add("Eve", 4);

    // キーと値を格納する配列を作成し、Dictionaryの内容をコピー
    var sortedKeys = new string[dict.Count];
    var sortedValues = new int[dict.Count];

    dict.Keys.CopyTo(sortedKeys, 0);
    dict.Values.CopyTo(sortedValues, 0);

    // Array.Sort(Array, Array)メソッドを使ってソート
    Array.Sort(sortedKeys, sortedValues);

    for (var index = 0; index < sortedKeys.Length; index++) {
      Console.WriteLine("{0} {1}", sortedKeys[index], sortedValues[index]);
    }
  }
}

Imports System
Imports System.Collections.Generic

Class Sample
  Shared Sub Main()
    ' ソート対象のDictionary
    Dim dict As New Dictionary(Of String, Integer)()

    dict.Add("Bob", 3)
    dict.Add("Dave", 1)
    dict.Add("Alice", 2)
    dict.Add("Charlie", 5)
    dict.Add("Eve", 4)

    ' キーと値を格納する配列を作成し、Dictionaryの内容をコピー
    Dim sortedKeys(dict.Count - 1) As String
    Dim sortedValues(dict.Count - 1) As Integer

    dict.Keys.CopyTo(sortedKeys, 0)
    dict.Values.CopyTo(sortedValues, 0)

    ' Array.Sort(Array, Array)メソッドを使ってソート
    Array.Sort(sortedKeys, sortedValues)

    For index As Integer = 0 To sortedKeys.Length - 1
      Console.WriteLine("{0} {1}", sortedKeys(index), sortedValues(index))
    Next
  End Sub
End Class

    :
    :
dict.Keys.CopyTo(sortedKeys, 0);
dict.Values.CopyTo(sortedValues, 0);

// Array.Sort(Array, Array)メソッドを使ってソート
Array.Sort(sortedValues, sortedKeys);
    :
    :

    :
    :
dict.Keys.CopyTo(sortedKeys, 0)
dict.Values.CopyTo(sortedValues, 0)

' Array.Sort(Array, Array)メソッドを使ってソート
Array.Sort(sortedValues, sortedKeys)
    :
    :

using System;
using System.Linq;

class Sample {
  static void Main()
  {
    // ソート対象の配列
    var arr = new int[] {5, 2, 3, 1, 4};

    // ソート
    IOrderedEnumerable<int> sorted = arr.OrderBy(val => val);

    // ソート後の結果を列挙して表示
    foreach (var val in sorted) {
      Console.Write("{0}, ", val);
    }
    Console.WriteLine();
  }
}

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

class Sample {
  static void Main()
  {
    // ソート対象のList<int>
    List<int> list = new List<int>(new int[] {5, 2, 3, 1, 4});

    // ソート
    IOrderedEnumerable<int> sorted = list.OrderBy(val => val);

    // ソート後の結果を列挙して表示
    foreach (int val in sorted) {
      Console.Write("{0}, ", val);
    }
    Console.WriteLine();
  }
}

Imports System
Imports System.Linq

Class Sample
  Shared Sub Main()
    ' ソート対象の配列
    Dim arr() As Integer = New Integer() {5, 2, 3, 1, 4}

    ' ソート
    Dim sorted As IOrderedEnumerable(Of Integer) = arr.OrderBy(Function(val) val)

    ' ソート後の結果を列挙して表示
    For Each val As Integer In sorted
      Console.Write("{0}, ", val)
    Next
    Console.WriteLine()
  End Sub
End Class

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

Class Sample
  Shared Sub Main()
    ' ソート対象のList(Of Integer)
    Dim list As New List(Of Integer)(New Integer() {5, 2, 3, 1, 4})

    ' ソート
    Dim sorted As IOrderedEnumerable(Of Integer) = list.OrderBy(Function(val) val)

    ' ソート後の結果を列挙して表示
    For Each val As Integer In sorted
      Console.Write("{0}, ", val)
    Next
    Console.WriteLine()
  End Sub
End Class

using System;
using System.Linq;

class Sample {
  // ソートの際に使用するキーを選択するメソッド
  static int KeySelector(int val)
  {
    // 要素の値そのものをソートの際のキーとする
    return val;
  }

  static void Main()
  {
    // ソート対象の配列
    var arr = new int[] {5, 2, 3, 1, 4};

    // ソート
    IOrderedEnumerable<int> sorted = arr.OrderBy(KeySelector);

    foreach (var val in sorted) {
      Console.Write("{0}, ", val);
    }
    Console.WriteLine();
  }
}

Imports System
Imports System.Linq

Class Sample
  ' ソートの際に使用するキーを選択するメソッド
  Shared Function KeySelector(ByVal val As Integer) As Integer
    ' 要素の値そのものをソートの際のキーとする
    Return val
  End Function

  Shared Sub Main()
    ' ソート対象の配列
    Dim arr() As Integer = New Integer() {5, 2, 3, 1, 4}

    ' ソート
    Dim sorted As IOrderedEnumerable(Of Integer) = arr.OrderBy(AddressOf KeySelector)

    For Each val As Integer In sorted
      Console.Write("{0}, ", val)
    Next
    Console.WriteLine()
  End Sub
End Class

// Accountクラスのソートの際に使用するキーを選択するメソッド
static string KeySelector(Account val)
{
  // Account.Nameプロパティの値をソートの際のキーとする
  return val.Name;
}

' Accountクラスのソートの際に使用するキーを選択するメソッド
Shared Function KeySelector(ByVal val As Account) As String
  ' Account.Nameプロパティの値をソートの際のキーとする
  Return val.Name
End Function

static int KeySelector(int val)
{
  return val;
}

Shared Function KeySelector(ByVal val As Integer) As Integer
  Return val
End Function

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

class Sample {
  static void Main()
  {
    var list = new List<int>(new int[] {
      3, 1, 2,
    });

    // ソート(この時点では結果が確定していない点に注意)
    IOrderedEnumerable<int> sorted = list.OrderBy(val => val);

    // 元になったリストに変更を加える
    list.Add(5);
    list.Add(4);

    // 列挙して結果を表示
    foreach (var val in sorted) {
      Console.Write("{0} ", val);
    }
    Console.WriteLine();
  }
}

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

Class Sample
  Shared Sub Main()
    Dim list As New List(Of Integer)(New Integer() { _
      3, 1, 2 _
    })

    ' ソート(この時点では結果が確定していない点に注意)
    Dim sorted As IOrderedEnumerable(Of Integer) = list.OrderBy(Function(val) val)

    ' 元になったリストに変更を加える
    list.Add(5)
    list.Add(4)

    ' 列挙して結果を表示
    For Each val As Integer In sorted
      Console.Write("{0} ", val)
    Next
    Console.WriteLine()
  End Sub
End Class