字典

Dictionary表示键与值的集合,俗称字典。

定义一个字典的语法是:

Dim 变量名 As New Dictionary(Of 键类型, 值类型)

例如:

Dim zd As New Dictionary(Of Integer, String)

表示定义了一个字典zd,键的类型是整数型(Integer),值的类型是字符型(String)。

键和值可以是任何类型,例如:

Dim zd As New Dictionary(Of String, Date)

字典的成员包括:

名称 类型 说明
Add 方法 将指定的键和值添加到字典中
Remove 方法 移除指定的键和值
Clear 方法 清除所有的键和值
ContainsKey 方法 判断是否包含指定的键
ContainsValue 方法 判断是否包括指定的值
Count 属性 返回字典中键/值对的数目
Keys 属性 返回键的集合
Values 属性 返回值的集合

示例

Dim zd As New Dictionary(Of Integer, String)
zd
.Add(1,"苹果")
zd
.Add(2,"香蕉")
zd
.Add(3,"波罗")
zd
.Add(4,"桔子")
zd
.Add(5,"桃子")
zd
.Remove(1) '移除键1及其对应的值
zd.Remove(
5) '移除键5及其对应的值
Output.Show(zd(
2)) '显示键2对应的值
Output.Show(zd(
3)) '显示键3对应的值
If
zd.ContainsKey(1) = False Then '是否存在键1
    zd.Add(1,"苹果")
End If
If
zd.ContainsValue("桃子") = False Then '是否存在值"桃子"
   
zd.Add(5,"桃子")
End If
For Each
k As Integer In zd.Keys '显示所有键及其对应的值
   
Output.Show(K & ":" & zd(k))
Next
For Each
v As String In zd.Values '显示所有值
   
Output.Show(v)
Next

zd.Clear
'清除所有的键和值


本页地址:http://www.foxtable.com/webhelp/topics/1945.htm