字典的建立:
Set d = CreateObject("Scripting.Dictionay")
賦值可以使用add或者=,但是Add只在首次可以,重復會報錯,=可以多次,例如:
d.Add?"x",?2?'會報錯,壹個鍵只允許添加壹次
d("x")?=?1?'會成功,沒有x鍵會i自動Add
d("x")?=?2?'會成功,修改鍵x的值為2