Dictionary 对象的成员概要

CompareMode设定或返回键的字符串比较模式
Count 只读。返回Dictionary 里的键/条目对的数量
Item(key)设定或返回指定的键的条目值
Key(key)设定键值
方法和说明
Add(key,item)增加键/条目对到Dictionary
Exists(key)如果指定的键存在，返回True，否则返回False
Items()返回一个包含Dictionary 对象中所有条目的数组
Keys()返回一个包含Dictionary 对象中所有键的数组
Remove(key)删除一个指定的键/条目对
RemoveAll() 删除全部键/条目对

字典对象操作

Dim objD,item

Dim temp(3)

temp(1)="x"

temp(2)="y"

temp(3)="z"

Set bjD=CreateObject("scripting.dictionary")

objD.add "1","a"

objD.add "2","b"

objD.add "3","c"

'MsgBox objD.Count

i=1

for each key in objD

'MsgBox item

objD.item(key)=temp(i)

i=i+1

'MsgBox objD.Count

'MsgBox objD.Item(i)

Next

MsgBox objD.Item("1")&objD.Item("2")&objD.Item("3")