2024年4月19日发(作者：)
Dictionary 字典对象
Dictionary对象与 PERL 关联数组是等价的。项目（可以是任何形式的数据）被保存在
数组中。每项都与唯一的键相关联。键值用于检索单个项目，通常是整数或字符串，但不能
为数组。
Dictionary对象的属性：
CompareMode（compare）：设置并返回在Dictionary对象中比较字符串关键字的比较模式。
Compare：可选项。vbBinaryCompare（0）：执行二进制比较（不区分大小写）
.
vbTextCompare（1）：执行文本比较（区分大小写）
实例：Dim d
Set d = CreateObject("nary")
eMode = vbTextCompare’使用文本比较
"a", "Athens" ' 增加一些键和项目。
"b", "Belgrade"
"c", "Cairo"
"B", "Baltimore" ' 在此行添加方法失败因为
' 字母 b 已经在 Dictionary 中存在。
Count：返回一个集合或Dictionary对象包含的项目数。
实例：Set d = CreateObject("nary")
"a", "Athens" ' 添加一些键和项目。
"b", "Belgrade"
"c", "Cairo"
i = '获取项目数。
注：i的值为3
HashVal：无资料
Item：设置或返回Dictionary对象中指定的key对应的 Item，或返回集合中基于指定的
key的 Item。可读写。
实例1（返回项目值）：
Dim d '创建变量.
Set d = CreateObject("nary")
"a", "Athens" '添加键和项目对.
"b", "Belgrade"
"c", "Cairo"
ItemDemo = d. Item ("c") '得到项目.
注：itemdemo存储的是Cairo
实例2（设置项目值）：
Dim d '创建变量.
Set d = CreateObject("nary")
"a", "Athens" '添加键和项目对.
"b", "Belgrade"
"c", "Cairo"
("c")="hello"‘修改项目值
itemdemo= ("c") '得到项目.
注：itemdemo存储的是hello
Key(key)：设置在 Dictionary 对象中的关键字。
Key（参数）：要改变的Key值。
实例：Dim d '创建变量。
Set d = CreateObject("nary")
"a", "Athens" '添加键和项目对。
"b", "Belgrade"
"c", "Cairo"
("c") = "d" '将"c"的键设置为"d"。
Dictionary对象的方法：
：向Dictionary对象添加键和项目对
语法：, item
实例：Set d = CreateObject("nary")
"a", "Athens" '添加一些键和项目。
"b", "Belgrade"
"c", "Cairo"
注：无
：检查指定键指定键是否存在，存在：返回True；不存在：返回False。
语法： （key）
实例：Dim d, msg '创建一些变量。
Set d = CreateObject("nary")
"a", "Athens" '添加一些键和项目。
"b", "Belgrade"
"c", "Cairo"
If ("c") Then
msg = "指定的键存在。"
Else
msg = "指定的键不存在。"
End If
注：无
：返回一个数组，其中包含有Dictionary对象中的所有项目。
语法：
object
.items
实例：Dim a,d,I,s '创建一些变量
Set d = CreateObject("nary")
发布评论