请帮忙

[qzjackie]

Dim a() as String={"a","a","b","c","b","c"}
怎么经过处理后边成
a()={"a","b","c"}

[水如烟]

'返回一数组的唯一集
Public Overloads Shared Function GetDistinctObj(ByVal mObj As Array) As Array
Dim s As Object
Dim h As New Hashtable
For Each s In mObj
If (Not IsDBNull(s)) AndAlso (Not s Is Nothing) Then
If Not h.Contains(s) Then h.Add(s, DBNull.Value)
End If
Next
Dim tmp(h.Keys.Count - 1) As Object
h.Keys.CopyTo(tmp, 0)
Array.Sort(tmp)
Return tmp
End Function

[水如烟]

调用,
Dim a() as String={"a","a","b","c","b","c"}
a=GetDistinctObj(a)