主题：关于集合的问题

Dim ls1 As new List(Of String)

Dim ls2 As new List(of String)

Dim Ismatch As Boolean=True

ls1.add("1")

ls1.add("3")

ls1.add("4")

ls2.add("4")

ls2.add("3")

ls2.add("1")

ls1.sort()

ls2.sort()

If ls1.Count = ls2.Count Then

    For i As Integer = 0 To ls1.count-1

        If ls1(i) <> ls2(i) Then

            Ismatch = False

            Exit For

        End If

    Next

End If

If Ismatch Then

    MessageBox.show("相等")

Else

    MessageBox.show("不等")

End If

这样严谨一点