Dim ls1 As new List(Of String)Dim ls2 As new List(of String)
ls1.add("1")ls1.add("3")ls1.add("4")
ls2.add("4")ls2.add("2")ls2.add("1")
If ls1.Count = ls2.Count Then For Each ls As String In ls1 If ls2.Contains(ls) = False Then msgbox("不匹配") End If NextEnd If