主题：请教一函数

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

 

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

 

要说多少次？http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=75746&authorid=0&page=0&star=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))