2016-08-24 64 views

回答

0

這裏的概念的一個例子:

Dim ary(9) As String 
    ary(0) = 1 
    ary(1) = 3 
    ary(2) = 5 
    ary(3) = 4 
    ary(4) = 6 
    ary(5) = 4 
    ary(6) = 3 
    ary(7) = 8 
    ary(8) = 9 
    ary(9) = 3 
    Dim newary() As String = ary.Distinct.ToArray 

...但如果你沒有明確綁定到使用數組,列表會好得多。對於一個數組,你必須限制自己已經實例化數組的數量,或者每次向它添加元素時重新調整/調整它的大小。列表不會像這樣受到限制,您可以即時添加新值。另外,如果你所需要的只是數組中不同的元素,爲什麼不只是在添加它之前檢查你的原始數組是否已經包含一個值,這樣你就不必將不同的值從那裏複製出來。

0

或者使用:

Dim lst As New List(Of String) 
    lst.AddRange({"1", "2", "3", "4", "5", "6", "7", "8", "9"}) 
    Dim array As String() = lst.ToArray 

它確實同其他答案,但規模較小的

0

它沒有得到比這短得多。你需要導入Linq。由於1和9重複,array2將包含8個值。

Dim array1 As Integer() = {1, 1, 2, 3, 4, 5, 6, 7, 9, 9} 
Dim array2 As Integer() = array.Distinct().ToArray()