Dim Names As New List(Of String) From {"苹果", "香蕉", "葡萄"}
Dim Names2 As New List(Of String) From {"苹果", "橙子", "西瓜"}
For Each s As String In Names2
If Names.Contains(s) = False Then
Names.Add(s)
End If
Next
Output.Show(String.Join(",", Names.ToArray))
Dim Names As New List(Of String) From {"苹果", "香蕉", "葡萄"}
Dim Names2 As New List(Of String) From {"苹果", "橙子", "西瓜"}
Names.AddRange(Names2)
Names = Names.Distinct().ToList
Output.Show(String.Join(",", Names.ToArray))