Dictionary 字典的使用

Dim a, d, i             '创建几个变量
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"     '添加键和项目
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
a = d.Keys              '获取键
For i = 0 To d.Count -1 '枚举数组
    Print a(i)          '打印键
Next