1、集合和数组都有排序的功能
2、 Dim oldArray() As Integer = {10, 7, 9, 8, 6, 1, 3, 4, 2, 5, 1, 2, 3}
Array.Sort(oldArray)
Dim V1 As New List(Of Integer)
For i As Integer = 0 To oldArray.Length - 1
If Not V1.Contains(oldArray(i)) Then V1.Add(oldArray(i))
Next
Dim newArray() As Integer = V1.ToArray