Keys 方法 |
|
object 应为 Dictionary 对象的名称。
Function DicDemo 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 '循环使用数组 s = s & a(i) & "<BR>" '返回结果 Next DicDemo = s End Function