Set dic=CreateObject("Scripting.Dictionary")
dic.Add "a",1
dic.Add "b",2
dic.Add "c",3
If dic.Exists("b") Then
msgbox dic("b")
End If
转载于:https://www.cnblogs.com/testerZH/archive/2011/10/31/2230298.html
Set dic=CreateObject("Scripting.Dictionary")
dic.Add "a",1
dic.Add "b",2
dic.Add "c",3
If dic.Exists("b") Then
msgbox dic("b")
End If
转载于:https://www.cnblogs.com/testerZH/archive/2011/10/31/2230298.html