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
原文：http://www.cnblogs.com/lbnnbs/p/4784958.html