Question

提取一个数组中的数据,重复的算一个,求最佳方法:

sub im ()dim arr,brr()
arr=array(0,12,10,13,126,0,10,12,10,13)
我想求出这个数组中出现的数字,重复的算一个!
模拟结果:brr=0,12,10,13,126
求问有什么写法,?
目前我用的方法是
for i = 0 to ubound(arr)
for u = i+1 to ubound(arr)
if arr(i)=arr(u) then
brr(i)=arr(i)
endif
next u
next i
这种方法根本不好使,会出错,请问关于这个要求代码要怎么写好啊>真的很急,感谢大家给出意见!!
end sub

Answer 1

我写了一个函数，你可以参考下：

Public Function strres(ByRef s() As String) As String
    Dim res As String
    Dim blres As Boolean
    res = s(0) & " "
    For i = 1 To UBound(s)
        blres = True
        For j = 0 To i - 1
            If s(j) = s(i) Then
                blres = False
                Exit For
            End If
        Next j
        If blres = True Then
            res = res & s(j) & " "
        End If
    Next i
    strres = res
End Function

Answer 2

去重复，当然是用字典，这是最有效的办法了。