展开全部
使用字典很简单,但要运用自如,需要思考编写大量的实例来实现。
以下代码,简要说明字典的常见方法:
Sub Dic()
Dim oDic As Object'定义字典对象变量
Set oDic = CreateObject("Scripting.Dictionary") '创建字典对象
Dim arrKey
Dim arrItem
With oDic
.Add 1, "a" '添加键和项目(key,item),其中键不能重复,此语句中键为1,项目为a
.Add 2, "b"
if .Exists(2) then'判断2是否存在键中
.Item(2) = "d"'如果存在,将键为2的项目改为d(原来为a)
end if
arrKey = .keys'将键值赋予数组arrkey
arrItem = .items'将项目值赋予数组arritem
.RemoveAll'清空字典
End With
Set oDic = Nothing'释放字典对象,清空内存
End Sub
以下代码,简要说明字典的常见方法:
Sub Dic()
Dim oDic As Object'定义字典对象变量
Set oDic = CreateObject("Scripting.Dictionary") '创建字典对象
Dim arrKey
Dim arrItem
With oDic
.Add 1, "a" '添加键和项目(key,item),其中键不能重复,此语句中键为1,项目为a
.Add 2, "b"
if .Exists(2) then'判断2是否存在键中
.Item(2) = "d"'如果存在,将键为2的项目改为d(原来为a)
end if
arrKey = .keys'将键值赋予数组arrkey
arrItem = .items'将项目值赋予数组arritem
.RemoveAll'清空字典
End With
Set oDic = Nothing'释放字典对象,清空内存
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询