采用 LinQ 替代 SortedDictionary

        Dim FDictionary As New Dictionary(Of Integer, Integer)

        FDictionary.Add(3001, 1)

        FDictionary.Add(3002, 5)

        FDictionary.Add(3003, 3)

        FDictionary.Add(4003, 2)

        FDictionary.Add(5003, 3)



        Dim SortedItems = From KeyValuePair In FDictionary Select ID = KeyValuePair.Key, Score = KeyValuePair.Value Order By Score

        For Each Item In SortedItems

            Console.WriteLine("ID: " & Item.ID)

        Next