主题：请教几个小问题

1、比较元素个数、若相等，循环一个集合，判断是否contain于另一个集合；

2、和1一样，只要有一个元素不contain，就不包含。

没有，都必须这样做，你可以写成函数调用啊。

不可以。

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

几句简单代码你也不会写啊。

并集

Dim Ls1 As String() = {1,2,3}
Dim Ls2 As String() = {2,3,4,5,6}
Dim LsB  As New List(Of String)
Dim Ls ,Tz As String

For Each Ls In Ls1
    LsB.Add(Ls)
Next

For Each Ls In Ls2
    If lsb.contains(Ls) = False Then
        LsB.Add(Ls)
    End If
Next

msgbox(lsb.count)

交集

Dim Ls1 As String() = {1,2,3}
Dim Ls2 As String() = {2,3,4,5,6}
Dim LsB  As New List(Of String)
Dim Ls ,Tz As String

For Each Ls In Ls1
    If array.indexof(ls2, ls) >= 0 AndAlso lsb.contains(ls) = False Then
        LsB.Add(Ls)
    End If
Next

msgbox(lsb.count)

相等

Dim Ls1 As String() = {6,2,3,4,5}
Dim Ls2 As String() = {2,3,4,5,6}
Dim Ls As String
Dim flag As Boolean = (ls1.Length = ls2.Length)

For Each Ls In Ls1
    If array.indexof(ls2, ls) < 0 Then
        flag = False
        Exit For
    End If
Next

msgbox(flag)