http://demon.tw/copy-paste/vbs-scripting-dictionary-ksort.htmlOption ExplicitFunction fnCompare(key1, key2)    If CInt(key1) > CInt(key2) Then        fnCompare = 1    ElseIf CInt(key1) < CInt(key2) Then        fnCompare =  - 1    Else        fnCompare = 0    End IfEnd FunctionFunction Sort(dict)    Dim i,j, temp    Dim keys,items    Dim t ' 临时备份字典    Set t = WSH.CreateObject("Scripting.Dictionary")    keys = dict.Keys    items = dict.Items    ' 下面复制原字典到备份字典中    For i = 0 To  dict.Count - 1        t.Add keys(i),items(i)    Next    ' 下面交换键key数组    For i = 0 To  dict.Count - 1        For j = i + 1 To dict.Count - 1            If fnCompare(keys(i), keys(j)) > 0 Then                temp = keys(i)                keys(i) = keys(j)                keys(j) = temp            End If        Next    Next    dict.RemoveAll ' 清除原数组    ' 读取已经排好序的key数组    ' 并添加到清空后的目标字典中    For i = 0 To UBound(keys)        dict.Add keys(i), t.Item(keys(i))    Next    ' 销毁备份字典    t.RemoveAll    Set t = NothingEnd Function