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