Keys 方法

[code] Function DicDemo Dim a,d,i           [/code]   [code] [/code]         [code]'[/code]创建一些变量。[code]Set d = CreateObject("Scripting.Dictionary")[/code][code]d.Add "a","Athens"   [/code]   [code] [/code]         [code]'[/code]添加键和项目。[code]d.Add "b","Belgrade"[/code][code]d.Add "c","Cairo"[/code][code]a = d[b].Keys[/b]             [/code]         [code]'[/code]获取键。[code]For i = 0 To d.Count -1 [/code]         [code]'[/code]循环使用数组。[code]s = s & a(i) & "<BR>" [/code]         [code]'[/code]返回结果。[code]  Next[/code][code]  DicDemo = s[/code][code]End Function[/code]