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本文共 250 字，大约阅读时间需要 1 分钟。
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转载于:https://www.cnblogs.com/lbnnbs/p/4784958.html