Visual Basic/词典

除了集合类提供的功能外，字典类还提供一些功能。字典是一系列键值对。与集合不同，只能通过 Microsoft Scripting Runtime 使用字典类，而该运行时的引用需要添加到项目中才能使用该类。

创建字典

  Set Dict = New Dictionary
  Set Dict = CreateObject("Scripting.Dictionary") 'An alternative

将键和项添加到字典

  Dict.Add "Key1", "Value1"
  Dict.Add "Key2", "Value2"
  Dict.Add Key:="Key3", Item:="Value3"

通过键访问项

  Value3 = MyDict.Item("Key3")

通过索引访问项

  Index = 2
  Counter = 1
  For Each Key In Dict.Keys
    If Counter = Index Then
      FoundKey = Key
      FoundValue = Dict.Item(Key)
      Exit For
    End If
    Counter = Counter + 1
  Next

遍历键

  For Each Key In Dict.Keys
    Value = Dict.Item(Key)
  Next

遍历值

  For Each Value In Dict.Items
    '...
  Next

移除项

  Dict.Remove "Key3"

移除所有项或清空

  Dict.RemoveAll

大小或元素数量

  Dict.Count

测试是否为空

  If Dict.Count = 0 Then
    '...
  End If

更改项的键

  Dict.Key("Key1") = "Key1a"

更改项的值

  Dict.Item("Key2") = "Value2a"

测试键是否存在

  If Dict.Exists("Key2") Then
    '..
  End If

将字典用作集合

将虚拟值 1 与集合的每个元素关联。

在添加项时，测试是否存在。

  Set DictSet = New Dictionary
  DictSet.Add "Item1", 1
  'DictSet.Add "Item1", 1 -- error: the item is already there
  If Not DictSet.Exists("Item1") Then
    DictSet.Add "Item1", 1
  End If
  DictSet.Remove "Item1"