Items 方法

[code]Function DicDemo   Dim a,d,I,s            [/code]      [code]'[/code]创建一些变量[code]Set d = CreateObject("Scripting.Dictionary")[/code][code]d.Add "a","Athens"    [/code]      [code]'[/code]添加键和项目[code]d.Add "b","Belgrade"[/code][code]d.Add "c","Cairo"[/code][code]a = d[b].Items[/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] [/code][code] Next[/code][code]  DicDemo = s[/code][code]End Function[/code]