最近遇到好多要生成 sign 的接口，要求使用URL键值对的格式（即key1=value1&key2=value2…）拼接成字符串，最后拼接上key进行MD5加密。

　　规则:

1. .    ◆ 参数名ASCII码从小到大排序（字典序）；
2. .    ◆ 如果参数的值为空不参与签名；
3. .    ◆ 参数名区分大小写；
4. .    ◆ 参数名Sign 、Key 不参与拼接字符串；

　　发现VB6.0 的资料很少，特此整理一份网上的代码。

　　转自:　 

'说明：Dictionary排序'参数：'   objDict:Dictionary对象'   intSort: 1 根据key排序; 2 根据value排序Function SortDictionary(objDict, intSort)  ' declare our variables  Dim strDict()  Dim objKey  Dim strKey, strItem  Dim X, Y, Z  ' get the dictionary count  Z = objDict.Count  ' we need more than one item to warrant sorting  If Z > 1 Then    ' create an array to store dictionary information    ReDim strDict(Z, 2)    X = 0    ' populate the string array    For Each objKey In objDict        strDict(X, 1) = CStr(objKey)        strDict(X, 2) = CStr(objDict(objKey))        X = X + 1    Next    ' perform a a shell sort of the string array    For X = 0 To (Z - 2)      For Y = X To (Z - 1)        If StrComp(strDict(X, intSort), strDict(Y, intSort), vbTextCompare) > 0 Then            strKey = strDict(X, 1)            strItem = strDict(X, 2)            strDict(X, 1) = strDict(Y, 1)            strDict(X, 2) = strDict(Y, 2)            strDict(Y, 1) = strKey            strDict(Y, 2) = strItem        End If      Next    Next    ' erase the contents of the dictionary object    objDict.RemoveAll    ' repopulate the dictionary with the sorted information    For X = 0 To (Z - 1)        If LCase(strDict(X, 1)) <> "sign" And LCase(strDict(X, 1)) <> "key" And strDict(X, 2) <> "" Then            objDict.Add strDict(X, 1), strDict(X, 2)        End If    Next  End IfEnd Function

 　　使用方法：

Dim dict As Dictionary    Dim item    Dim Return as String         Set dict = New Dictionary        dict.Add "aaa", "094959"    dict.Add "ccc", "0000000000"    dict.Add "fff", "20180912"      SortDictionary dict, 1 '排序    For Each item In dict        Return = Return & item & "=" & dict(item) & "&"    Next 　　 Return = Return & "key=keyvalue" 　　 Debug.Print Return