下面代码示范如何创建 Dictionary 对象:
Dim d '创建一个变量 Set d = CreateObject("Scripting.Dictionary") d.Add "a", "Athens" '添加键和项目 d.Add "b", "Belgrade" d.Add "c", "Cairo" ...