如何快速判断一个元素是否包含于某个集合？

Question

如何快速判断一个元素是否包含于某个集合？
Dim iPai as  Collection
dim intX as integer
Set iPai = New Collection
如何用一句就能判断intX是否包含于集合iPai?

Answer 1

for each 枚举每一个出来找

Answer 2

Collection一般用来存储对象的引用
可以用Key来找到一个元素

Answer 3

用枚举麻烦了，用KEY如何找？是不是也要历遍每个元素？
有没有类似 In(集合) 就能返回是否在集合里的语句？

Answer 4

添加到Collection的时候必须指定元素的key

Answer 5

Function isexist(ByVal ipai As Collection, ByVal intx As Integer) As Boolean
On Error Resume Next
isexist = Not IsNull(ipai(CStr(intx)))
End Function

Answer 6

测试:
Private Sub Command1_Click()
Dim ipai As New Collection
Dim i As Integer
For i = 1 To 10
ipai.Add i, CStr(i)
NextFor i = 0 To 15
Debug.Print "集合ipai存在元素" & i & vbTab & isexist(ipai, i)
Next
End Sub返回:集合ipai存在元素0   False
集合ipai存在元素1   True
集合ipai存在元素2   True
集合ipai存在元素3   True
集合ipai存在元素4   True
集合ipai存在元素5   True
集合ipai存在元素6   True
集合ipai存在元素7   True
集合ipai存在元素8   True
集合ipai存在元素9   True
集合ipai存在元素10  True
集合ipai存在元素11  False
集合ipai存在元素12  False
集合ipai存在元素13  False
集合ipai存在元素14  False
集合ipai存在元素15  False