主题：请教一函数

大师老驾指点一下，有5个甚至更多的的集合，如何求这些集合的交集？劳驾写一个函数如何？谢谢！

此主题相关图片如下：集合交集001.png

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=74201&skin=0

 

谢谢！我是问10个集合如何求出交集？如：以下字符串集合的交集为1。用代码怎么求出？

要说多少遍？两两求交集，得到的集合，再和第三个求。

封装成Dll,使用此类必须有.net3.5的支持

我是说不用上面的，上面要.net3.5支持，帮助用代码写一个简单通用高效的！

 

 

要说多少次？http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=75746&authorid=0&page=0&star=2

 

我的意思是写一个函数，集合的个数作为参数，这样根据输入集合的个数随意调用该函数。我是根据Args.Length判断一个一个写的。如果有100个集合怎么写？

先取前2个集合，求出交集为一个新的集合

汗，自己就不能总结？

 

Dim ls1 As List(Of String) = args(0)
For i As Integer = 1 To args.length-1
    Dim Ls2 = args(i)
    Dim Ls As String
    Dim lsb As new List(Of String)
    For Each Ls In ls1
        If ls2.contains(ls) AndAlso lsb.contains(ls) = False Then
            LsB.Add(Ls)
        End If
    Next
    ls1 = lsb
Next

Return ls1

 

 

------------------------调用

 

Dim Names As New List(Of String)
Names.Add( "电视机")
Names.Add("电冰箱")
Names.Add("洗衣机")

Dim Names1 As New List(Of String)
Names1.Add( "电视机")
Names1.Add("123")
Names1.Add("洗衣机")

Dim Names2 As New List(Of String)
Names2.Add( "电视机")
Names2.Add("电冰箱")
Names2.Add("456")
Names2.Add("洗衣机")

Dim ls = Functions.Execute("交集", names, names1, names2)
msgbox(String.join(",", ls.toarray))