用集合替代数组

尽管集合最常用来处理对象，不过也可用它处理任何数据类型。在某些情况下，将项目存储在集合中可能比存储在数组中效率更高。

如果处理较小的、动态的项目集时，可能希望使用集合。下列代码片段演示了如何使用集合来保存和显示 URL 地址列表。

'模块级集合。
Public colURLHistory As New Collection

'将指定的 URL地址添加到
'集合中的代码。
Private Sub SaveURLHistory(URLAddress As String)
   colURLHistory.Add URLAddress
End Sub

'在立即窗口中
'显示 URL 地址的代码列表。
Private Sub PrintURLHistory()
   Dim URLAddress As Variant
   For Each URLAddress in colURLHistory
      Debug.Print URLAddress
   Next URLAddress
End Sub

详细信息 关于使用集合的详细信息，请参阅“用对象编程”中的“用自己的对象编程”，关于数组的详细信息，请参阅“编程基础”中的“数组”。