描述

语法

object 应为 Dictionary 对象的名称。

说明

Function DicDemo 
  Dim a,d,I,s             '创建一些变量
Set d = CreateObject("Scripting.Dictionary")
d.Add "a","Athens"     '添加键和项目
d.Add "b","Belgrade"
d.Add "c","Cairo"
a = d.Items             '获取项目
For i = 0 To d.Count -1 '循环使用数组

s = s & a(i) & "<BR>" '创建返回字符串
  Next
  DicDemo = s
End Function