主题：请教几个小问题

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

并集

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)