采用 LinQ 替代 SortedDictionary 

 1         Dim FDictionary As New Dictionary(Of Integer, Integer)
 2 
 3         FDictionary.Add(3001, 1)
 4 
 5         FDictionary.Add(3002, 5)
 6 
 7         FDictionary.Add(3003, 3)
 8 
 9         FDictionary.Add(4003, 2)
10 
11         FDictionary.Add(5003, 3)
12 
13 
14 
15         Dim SortedItems = From KeyValuePair In FDictionary Select ID = KeyValuePair.Key, Score = KeyValuePair.Value Order By Score
16 
17         For Each Item In SortedItems
18 
19             Console.WriteLine("ID: " & Item.ID)
20 
21         Next

 

posted @ 2013-12-26 13:50  朋友博客集  阅读(205)  评论(0)  编辑  收藏  举报