描述

语法

object 可以是“应用于”列表中列出的任何集合或对象的名称。

说明

Function ShowKeys Dim a, d, i s            '创建几个变量
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 '枚举数组
   s = s & a(i) & "<BR>" '创建返回字符串        
  Next
  ShowKeys = s
End Function