主题：找出两个字符串的差异

Dim des1 As String = "1,2,1,1,1,1,1,1,3,53,53,53,53,53,5,5,56,7"
Dim des2 As String = "1,2,1,1,1,1,1,1,3,53,53,53,53,53,5,5,56,7,530"
Dim ary1() As String = des1.Split(",")
Dim ary2() As String = des2.Split(",")
Dim ls As new List(Of String)
For Each s As String In ary2
    If array.IndexOf(ary1, s) < 0 AndAlso ls.Contains(s) = False Then
        ls.Add(s)
    End If
Next

For Each s As String In ary1
    If array.IndexOf(ary2, s) < 0 AndAlso ls.Contains(s) = False Then
        ls.Add(s)
    End If
Next

msgbox(String.Join(",",ls.ToArray))