第三章 面向?qū)ο蠹夹g(shù)

1、北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)面向?qū)ο螅∣bject Oriented）的基本概念Q什么是對(duì)象(Object)？Q什么是類(Class)Q類和對(duì)象區(qū)別與聯(lián)系北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)什么是對(duì)象？Q“對(duì)象”是事物Q對(duì)象有一個(gè)身份，該身份用屬性定義Q對(duì)象還可以做事情，對(duì)象所能做的事情稱為對(duì)象的行為Q對(duì)象可以是真實(shí)世界的事物，也可以是概念性的事物北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)什么是類Q將事物分類進(jìn)行研究，是人類常用的一種思維方式。Q類通過(guò)設(shè)定該類中每個(gè)對(duì)象將具有的屬性和行為來(lái)提供對(duì)象的定義。北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)類和對(duì)象區(qū)別

2、與聯(lián)系北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)對(duì)象之間的關(guān)系 對(duì)象的三種基本關(guān)系（relationship） 依賴（dependency）關(guān)系 泛化（generalization 繼承、父子）關(guān)系 關(guān)聯(lián)（association）關(guān)系北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)依賴關(guān)系汽車$小強(qiáng)使用依賴（Dependency）是一種使用關(guān)系，它描述了一個(gè)對(duì)象的規(guī)格說(shuō)明的變化可能會(huì)影響到使用它的另一個(gè)對(duì)象，但反之不然。北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)泛化關(guān)系天花病毒流感病毒SARS病毒病毒RNA復(fù)制侵害肌體傳染性疫苗泛化（Generalization）描述了一般對(duì)象和較特殊的

3、對(duì)象之間的關(guān)系。北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)關(guān)聯(lián)關(guān)系關(guān)聯(lián)（Dependency）是一種結(jié)構(gòu)關(guān)系，它描述了一個(gè)對(duì)象與另一個(gè)對(duì)象相聯(lián)系北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)面向?qū)ο笙到y(tǒng)的基本元素Q抽象（Abstraction）Q封裝（Encapsulation）Q繼承（Inheritance）Q多態(tài)（Polymorphism）北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)抽象（Abstraction） 過(guò)濾掉對(duì)象的一部分特性和操作直到只剩下你所需要的屬性和操作。 通過(guò)抽象，可以將精力集中在應(yīng)用程序?qū)ο笊隙皇?實(shí)現(xiàn)上。使用戶和領(lǐng)域?qū)＜夷軌蛘嬲齾⑴c到設(shè)計(jì)中來(lái)關(guān)注重點(diǎn)北航可靠

4、性工程研究所 2005, 軟件技術(shù)基礎(chǔ)封裝（Encapsulation） 當(dāng)一個(gè)對(duì)象執(zhí)行自己的操作時(shí)，它對(duì)外界隱藏了操作的細(xì)節(jié)。 接口（Interface）對(duì)象總要提供一個(gè)“接口”與外部世界建立聯(lián)系 封裝通過(guò)隱藏對(duì)象的內(nèi)部實(shí)現(xiàn)來(lái)幫助抽象，即可以使用一個(gè)對(duì)象而不必理解對(duì)象類是如何實(shí)現(xiàn)的隱藏私有北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)繼承（Inheritance）Q通過(guò)使用繼承性可以消除冗余屬性和行為并獲得再利用。Q兩類基本的繼承：實(shí)現(xiàn)繼承，屬于子類的任意對(duì)象自動(dòng)再利用父類的全部屬性和行為（VB6.0以下版本不支持）接口繼承，提供了一個(gè)接口（屬性、行為）的再利用，允許這些屬性和行為以不同的方

5、式實(shí)現(xiàn)（VB6.0支持）再利用北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)多態(tài)（Polymorphism）兩個(gè)或多個(gè)類可以有名字相同、基本目的相同但實(shí)現(xiàn)方式不同的行為VB6利用公共接口來(lái)實(shí)現(xiàn)多態(tài)同名行為，不同實(shí)現(xiàn)北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)思考Q對(duì)汽車思考面向?qū)ο蟮母拍睿ǔ橄?、封裝、繼承、多態(tài)各舉一例）Q考慮過(guò)去是如何分析和設(shè)計(jì)程序的，試著用對(duì)象和類去具體化你的一個(gè)應(yīng)用程序Q考察在食堂打飯的過(guò)程（用飯卡），描述相關(guān)對(duì)象的屬性和行為，以及這些對(duì)象之間的關(guān)系北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)VB6語(yǔ)言面向?qū)ο蟮奶卣鳎ㄒ唬㏎在類模塊中定義類 Q用Property過(guò)程提

6、供公共訪問(wèn)Q定義多態(tài)性方法Q生成事件Q封裝類常量Q用Object Browser瀏覽類Q創(chuàng)建對(duì)象北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)VB6語(yǔ)言面向?qū)ο蟮奶卣鳎ǘ㏎將窗體用作對(duì)象Q使用多組對(duì)象Q定義多個(gè)接口Q用ActiveX組件說(shuō)明對(duì)象Q開發(fā)基于Web的應(yīng)用程序Q創(chuàng)建C/S應(yīng)用程序北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)VB6中類與集合的應(yīng)用Q創(chuàng)建一個(gè)類Q使用一個(gè)類的實(shí)例Q窗體類的使用Q定義類中的常量Q生成和響應(yīng)事件Q定義集合Q使用集合北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)創(chuàng)建一個(gè)類Q插入一個(gè)類模塊Q定義類的屬性Q創(chuàng)建類的方法Q響應(yīng)類事件Q文檔化類北航可靠性工程研究所

7、2005, 軟件技術(shù)基礎(chǔ)插入一個(gè)類模塊Q啟動(dòng)一個(gè)新的工程Q從工程菜單選擇添加類模塊Q設(shè)定類名稱Q窗體也是一個(gè)類Q工具箱中的控件也是一個(gè)類北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)定義類的屬性類屬性定義由一個(gè)類創(chuàng)建的全部對(duì)象的屬性Q聲明一個(gè)公共變量簡(jiǎn)單數(shù)據(jù)類型(Integer、String)抽象類型(Object)用戶定義的類型(UDT)不能定義為公共變量最簡(jiǎn)單，不推薦使用Q先聲明一個(gè)私有變量，然后創(chuàng)建Property過(guò)程以顯露屬性 Property過(guò)程允許一個(gè)類中的屬性被聲明為私有變量并由公共過(guò)程顯露北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)創(chuàng)建Property（一）Q聲明一個(gè)私有變量

8、Private mvar*注意是 Private 而不是Dim只有類內(nèi)部的過(guò)程可以更改變量值，對(duì)應(yīng)用程序的其它部分隱藏Q創(chuàng)建Property過(guò)程Property Get 獲取或讀入屬性值Property Let 設(shè)置String、Integer等簡(jiǎn)單數(shù)據(jù)類型的屬性值Property Set 設(shè)置對(duì)象數(shù)據(jù)類型的屬性值北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)創(chuàng)建Property（二）Q多數(shù)情況下，類的每個(gè)屬性有一對(duì)Property過(guò)程Private mvarDescription As StringPublic Property Let Description(ByVal vData As

9、String)向?qū)傩灾概芍禃r(shí)使用，位于賦值語(yǔ)句的左邊。Syntax: X.Description = 5mvarDescription = vDataEnd PropertyPublic Property Get Description() As String檢索屬性值時(shí)使用，位于賦值語(yǔ)句的右邊。Syntax: Debug.Print X.DescriptionDescription = mvarDescriptionEnd Property北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)創(chuàng)建Property（二）Q只使用Property Get限制屬性為只讀Q只使用Property Let或P

10、roperty Set限制屬性為只寫Q Property過(guò)程可以包含有效性驗(yàn)證、格式化或其它處理過(guò)程Friend Property Let Priority(ByVal vData As Integer)if vData4 thenvData=0end ifmvarPriority = vDataEnd PropertyFriend Property Get Priority() As IntegerPriority = mvarPriorityEnd Property北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)使用Property的益處Q封裝格式化、數(shù)據(jù)有效性或其它處理過(guò)程Q只讀Q維護(hù)可以

11、只更改Property過(guò)程的代碼而不更改使用該屬性的代碼北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)創(chuàng)建方法類方法定義由一個(gè)類創(chuàng)建的全部對(duì)象的方法QPrivate方法在類的內(nèi)部訪問(wèn)QPublic方法在類的外部訪問(wèn)返回值Function不返回值SubQ類方法按正常的Sub或Function過(guò)程實(shí)現(xiàn)北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)響應(yīng)事件 兩個(gè)內(nèi)置響應(yīng)事件 Initialize提供了執(zhí)行由類創(chuàng)建的對(duì)象初始化的機(jī)會(huì) Terminate提供了執(zhí)行任何清除處理的場(chǎng)所北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)Initialize 當(dāng)由一個(gè)類創(chuàng)建對(duì)象時(shí)，就觸發(fā)了Initialize事件，

12、所以可用于是首批代碼的執(zhí)行Private Sub Class_Initialize()InitA為只讀屬性，將初始值設(shè)為1mvarInitA = 1MsgBox A的初始值 & InitA End Sub北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)Terminate 當(dāng)釋放一個(gè)對(duì)象時(shí)，觸發(fā)Terminate事件可以向Terminate事件中添加代碼以解除與此對(duì)象相關(guān)聯(lián)的相關(guān)對(duì)象，或在對(duì)象被破壞時(shí)應(yīng)該執(zhí)行的過(guò)程Private Sub Class_Terminate()MsgBox 對(duì)象被釋放End Sub北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)文檔化類 從“工具”菜單中選擇 “過(guò)

13、程屬性” 從“工程”菜單中選擇 “添加文件”北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)使用對(duì)象瀏覽器北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)創(chuàng)建和使用一個(gè)類實(shí)例（對(duì)象）Q聲明對(duì)象變量Q創(chuàng)建對(duì)象Q使用對(duì)象屬性和方法Q釋放對(duì)象北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)聲明對(duì)象變量 聲明一個(gè)數(shù)據(jù)類型為對(duì)象類的變量Private m_Xq as CStudent 使用New關(guān)鍵字聲明一個(gè)數(shù)據(jù)類型為對(duì)象類的變量 Private m_Xq as new CStudent 利用定義為對(duì)象的數(shù)據(jù)類型去聲明一個(gè)變量 Private m_Xq as Object北航可靠性工程研究所 2005, 軟件

14、技術(shù)基礎(chǔ)創(chuàng)建對(duì)象 通過(guò)使用帶有New關(guān)鍵字的Set語(yǔ)句顯式地創(chuàng)建對(duì)象 set m_Xq = new CStudent 通過(guò)使用對(duì)象而隱式地創(chuàng)建對(duì)象 m_Xq.Study 通過(guò)使用CreateObject函數(shù)創(chuàng)建對(duì)象北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)設(shè)定、獲取對(duì)象屬性 舉例說(shuō)明北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)釋放對(duì)象的引用 Set Xobject=Nothing北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)定義類中的常量 避免幻數(shù) 定義局部常量（Const） 使用Enum語(yǔ)句(枚舉變量 ) 定義全局長(zhǎng)整型常量 定義字符串常量北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)

15、集合Q 集合提供了一種把一組相關(guān)的對(duì)象和一個(gè)“包含”它們的對(duì)象連接起來(lái)的方法 Q 集合本身是一個(gè)對(duì)象，并由類來(lái)創(chuàng)建，該類稱為集合類Q 通過(guò)將私有的集合對(duì)象包裝到類模塊中，可實(shí)現(xiàn)部件的對(duì)象模型的集合，這樣就定義了一個(gè)集合類 北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)Collection 對(duì)象示例 Q聲明Collection對(duì)象QCount 屬性 QAdd 方法添加成員 QRemove 方法刪除成員 QItem 方法返回特定成員 QFor Each.Next枚舉集合Q舉例北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)在VB6.0中創(chuàng)建集合類Q在類模塊中定義類 （CStudents）Q創(chuàng)建集合對(duì)

16、象實(shí)例Q向集合類中添加屬性和方法Q使用集合類北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)創(chuàng)建集合對(duì)象實(shí)例Private mColStudents As CollectionPrivate Sub Class_Initialize() 創(chuàng)建集合對(duì)象 Set mColStudents = New CollectionEnd SubPrivate Sub Class_Terminate() Set mColStudents = NothingEnd Sub北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)集合類中添加屬性和方法Q與Collection類似，集合類必須提供添加（ Add ）、刪除（Rem

17、ove）成員以及返回（Item）特定成員的功能北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)Add方法Public Function Add(StudentName As String, Sex As Integer, Optional sKey As String) As Student 創(chuàng)建新對(duì)象 Dim objNewMember As Student Set objNewMember = New Student 設(shè)置傳入方法的屬性 objNewMember.StudentName = StudentName objNewMember.Sex = Sex If Len(sKey) = 0

18、Then mColStudents.Add objNewMember Else mColStudents.Add objNewMember, sKey End If 返回已創(chuàng)建的對(duì)象 Set Add = objNewMember Set objNewMember = NothingEnd Function北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)Remove方法Public Sub Remove(vntIndexKey As Variant) 刪除集合中的元素時(shí)使用。 vntIndexKey 包含索引或關(guān)鍵字，這是為什么要聲明為 Variant 的原因 語(yǔ)法：x.Remove(xyz) m

19、ColStudents.Remove vntIndexKeyEnd Sub北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)Item方法Public Property Get Item(vntIndexKey As Variant) As CStudent 引用集合中的一個(gè)元素時(shí)使用。 vntIndexKey 包含集合的索引或關(guān)鍵字， 這是為什么要聲明為 Variant 的原因 語(yǔ)法：Set foo = x.Item(xyz) or Set foo = x.Item(5) Set Item = mColStudents(vntIndexKey)End Property北航可靠性工程研究所 2005

20、, 軟件技術(shù)基礎(chǔ)使 For Each . Next 有效 NewEnum 必須返回一個(gè)集合的枚舉算子的 IUnknown 接口。 Public Function NewEnum() As IUnknown Set NewEnum = mcolEmployees._NewEnum End Function 委派給 Collection 對(duì)象的最重要的東西是它的枚舉算子。枚舉算子是一個(gè)小對(duì)象，該對(duì)象知道如何遍歷集合中的各項(xiàng)。不能用 Visual Basic 來(lái)書寫枚舉算子對(duì)象，因?yàn)?Employees 類是基于 Collection 對(duì)象的，可以返回 Collection 對(duì)象的枚舉算子它自然知道

21、如何枚舉 Collection 對(duì)象所保存的各項(xiàng)。 包圍 Collection 對(duì)象的 _NewEnum 方法的方括號(hào)是必要的，這是因?yàn)榉椒懊娴南聞澗€。前面的這個(gè)下劃線是一個(gè)約定，它指明該方法是隱藏在類型庫(kù)中的。不能把自己的方法命名為 _NewEnum，但是可以把它隱藏在類型庫(kù)中，并將 For Each . Next 所需要的過(guò)程 ID 賦給它。北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)隱藏 NewEnum在“工具”菜單上，單擊“過(guò)程屬性”，打開“過(guò)程屬性”對(duì)話框，在“名稱”框中，選擇 NewEnum 方法。單擊“高級(jí)”，顯示一些高級(jí)功能。選中“隱藏該成員”，使 NewEnum 隱藏在

22、類型庫(kù)中。在“過(guò)程標(biāo)識(shí)符”框中，鍵入 -4，將 For Each . Next 所需要的過(guò)程標(biāo)識(shí)符賦給 NewEnum。單擊“確定”。 北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)其它Public Property Get Count() As Long 檢索集合中的元素?cái)?shù)時(shí)使用。語(yǔ)法：Debug.Print x.Count Count = mColStudents.CountEnd PropertyPublic Sub Clear() Set mColStudents = New CollectionEnd Sub北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)利用類生成器構(gòu)建集合類 手工建

23、立繁瑣 首先利用類生成器構(gòu)建類 然后利用類生成器構(gòu)建集合類北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)作業(yè)作業(yè)Q 利用集合類創(chuàng)建學(xué)生成績(jī)信息輸入程序，并成批保存到數(shù)據(jù)庫(kù)中北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)接口Q 接口就是一些屬性、方法和事件的集合Q 單獨(dú)的Customer類可以定義公共屬性和方法（復(fù)雜）Q 將對(duì)象的功能分為被稱為接口的邏輯集Q 一個(gè)例程隨后可以使用這些接口并確保它只使用該接口正確的屬性和方法SendToSendFromMessageSendDeleteFax NumberTransmitPhone NumberCallNameAddressBuyIDefaultI

24、PhoneIFaxIEmailCustomerNameAddressBuyPhone NumberCallFax NumberTransmitSendToSendFromMessageSendDelete北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)使用接口的益處 簡(jiǎn)化開發(fā)在一個(gè)大型程序中，一個(gè)類可以有很多不同的屬性和方法以提供特定類型的功能。如果屬性和方法組合到接口中，類的開發(fā)就被簡(jiǎn)化了。 一組類中的標(biāo)準(zhǔn)功能 一個(gè)接口提供了一組預(yù)定義的屬性和方法 簡(jiǎn)化的再利用可以在任意數(shù)量的類中實(shí)現(xiàn)一個(gè)接口，如果以后想在不同的類中定義同一組屬性和方法，可以通過(guò)在其它類中實(shí)現(xiàn)接口來(lái)再利用北航可靠性工程研究所

25、2005, 軟件技術(shù)基礎(chǔ)使用接口的益處 添加了新功能但不影響已有的接口如何向Customer中增加Mobile功能？1、更改IPhone接口 2、添加新接口IMobile思考：軟件是如何升級(jí)的？ 改善的多態(tài)性 實(shí)現(xiàn)統(tǒng)一接口的多重類一般可以通過(guò)使用多態(tài)性的接口進(jìn)行訪問(wèn) 獲得實(shí)現(xiàn)繼承性為了防止多個(gè)類中代碼的重復(fù)，可以在單個(gè)類中開發(fā)公共的代碼，該類稱為基類，可通過(guò)引用每個(gè)類中的基類的接口實(shí)現(xiàn)繼承北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)創(chuàng)建并實(shí)現(xiàn)接口 使用VB6創(chuàng)建接口 使用新的Implements關(guān)鍵字 實(shí)現(xiàn)接口 使用替代接口北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)VB6創(chuàng)建接口 添加一

26、個(gè)類 （Isave） 添加空的方法（Save） 模塊級(jí)變量聲明和過(guò)程代碼？ 在一個(gè)用作接口的類模塊中的代碼，包括定義的私有變量和事件，當(dāng)實(shí)現(xiàn)接口時(shí)將被忽略 接口就是代表接口封裝的成員（方法以及屬性）的原型集合；也就是說(shuō)，它只包含成員過(guò)程的聲明部分 。北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)Implements語(yǔ)句 指定要在包含該語(yǔ)句的類模塊中實(shí)現(xiàn)的接口或類 Implements InterfaceName | Class Implements 語(yǔ)句不能在標(biāo)準(zhǔn)模塊中使用 北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)實(shí)現(xiàn)接口 同一接口可以在應(yīng)用程序中的任意數(shù)量的窗體或類模塊（不含標(biāo)準(zhǔn)模塊）

27、中實(shí)現(xiàn) 用Implements語(yǔ)句聲明接口 從”對(duì)象”框中選擇接口，從 “過(guò)程/事件”框中選擇屬性和方法 添加代碼以實(shí)現(xiàn)接口北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)使用接口 將對(duì)象分配給接口 聲明帶有接口變量的過(guò)程北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)將對(duì)象分配給接口 聲明對(duì)象變量Private mCustomer as CCustomer 聲明接口類型變量Private mIsave as Isave 將接口對(duì)象賦給對(duì)象變量set mCustomer = New CCustomer set mIsave = mCustomer 不要New 使用接口變量引發(fā)屬性或方法 mIsav

28、e.save北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)聲明帶有接口變量的過(guò)程 聲明對(duì)象變量Private mCustomer as CCustomer 創(chuàng)建過(guò)程以實(shí)現(xiàn)該操作public sub save(Obj as Isave)if obj.isdirty then obj.saveend ifend sub 調(diào)用過(guò)程并將對(duì)象作為變量傳遞 save mCustomer北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)用接口實(shí)現(xiàn)多態(tài)性 多態(tài)性就是利用公共接口與來(lái)自不同類的對(duì)象交流的能力 實(shí)現(xiàn)多態(tài)性多重類可以實(shí)現(xiàn)同一接口，該接口中所定義的屬性和方法隨后可以被引發(fā)，以作用于由實(shí)現(xiàn)接口的類所創(chuàng)建的任意對(duì)象。 Private mCustomer as CCustomer Private mStudent as CStudent save mStudent save mCustomer北航可靠性工程研究所 2005, 軟件技術(shù)基礎(chǔ)集合多態(tài)性的實(shí)現(xiàn) 可以使用同集合相