字典
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