- Dim dict
- ' 创建Dictionary
- Set dict = CreateObject("Scripting.Dictionary")
- ' 增加项目
- dict.Add "A", 300
- dict.Add "B", 400
- dict.Add "C", 500
- ' 统计项目数
- n = dict.Count
- ' 删除项目
- dict.Remove ("A")
- ' 判断字典中是否包含关键字
- dict.exists ("B")
- ' 取关键字对应的值,注意在使用前需要判断是否存在key,否则dict中会多出一条记录
- Value = dict.Item("B")
- ' 修改关键字对应的值,如不存在则创建新的项目
- dict.Item("B") = 1000
- dict.Item("D") = 800
- ' 对字典进行循环
- k = dict.keys
- v = dict.Items
- For i = 0 To dict.Count - 1
- key = k(i)
- Value = v(i)
- MsgBox key & Value
- Next
- ' 删除所有项目
- dict.Removeall