VBA 及 VB6 及Access中均會(huì)用到集合 Collection的常用代碼集

VBA 及 VB6  及Access中均會(huì)用到集合 Collection ，下面是集合用到的常用代碼

Sub test()
'    Dim s As Collection '定義s變量為集合對(duì)象
'    Set s = New Collection '初始化集合對(duì)象s (否則無(wú)法使用)

    Dim s As New Collection '推薦這句代碼，直接初始化，可以不用再Set了

    '集合s中添加元素的方法
    For i = 1 To 10
        s.Add i '對(duì)于集合s，用Add方法可以加入集合元素
            '當(dāng)然事實(shí)上你可以添加任意內(nèi)容來(lái)代替本例中的i
    Next


    '讀取集合中元素的方法    
    For i = 1 To s.Count '可以用Count屬性返回集合中元素總個(gè)數(shù)
        t = s(i) '讀取集合s中第i個(gè)變量存入臨時(shí)變量t中
        t = s.Item(i) '正規(guī)的代碼寫法應(yīng)該是這樣子(效果一樣，推薦用上一句更簡(jiǎn)明)
        Debug.Print s(i) '在立即窗口中觀察s(i)的值
    Next
    
    '下面是集合s中元素刪除的方法
    For i = 1 To s.Count '遍歷集合元素
        s.Remove (1) '每次刪去第1個(gè)……直至全部刪除完畢 或直接簡(jiǎn)寫為： s.Remove 1
'        s.Remove (s.Count) '或者每次刪除最后一個(gè)，直至全部刪除完畢(推薦用上一句，不容易錯(cuò))
'        或簡(jiǎn)寫為 s.Remove s.Count       
        Debug.Print s.Count '在立即窗口中觀察集合s中剩余元素個(gè)數(shù)
    Next
    
End Sub