Question

VB中去除字符串数组中的重复元素，谢谢！

请求算法，最好是能举例更好哈，谢咯

Answer 1

Dim I as Long,J As Long,K As Long,mCount As Long 
mCount=UBound(数组) 
For I=0 to mCount -1 
    For J=I+1 to mCount 
        If 数组(i)=数组(j) Then 
            For K=j to mCount -1 
                数组(k)=数组(K+1) 
            Next k 
            Redim Preserve 数组(mCount-1) 
            mCount=mCount-1 
        End If 
    Next 
Next 

在网吧上，没VB记事本上打的。不知道能不能运行。真是冤枉啊。 
如果不能运行不要怪我。具体思路已经给你了。

如果使用CopyMemory操作指针速度超快。

Answer 2

一般都是多重循环比较的 将每一个元素与以后的比较
for i=1 to ubound（数组名）
for j=i+1 to ubound（数组名）
if a（i）=a（j) then
删除....这个不用教代码了吧
end if
next j
next i