Sub Main() Dim a() As String = {"一", "五", "3", "4"} Dim b() As String = {"二", "3", "4", "七", "八", "九"} Dim c() = a.Union(b).Distinct.ToArray For Each i In c Console.WriteLine(i) Next Console.ReadLine() End Sub
解决方案的项目要引用：
System.Data
System.Xml
System.Xml.Linq
原文：http://www.cnblogs.com/lgx1972/p/4344068.html