VB 删除数组中的重复元素
2013-02-14 19:43:27| 分类：
编程-VB
| 标签：
|举报
|字号大中小 订阅
VB 删除数组中的重复元素，当几个数组元素的值相等时，只保留第一个元素，其他的元素被删除。并且返回结果数组。
以下这个函数只支持一维数组。
Function Array_unique(Arr As Variant) As Variant
Arr = QuickSort(Arr)
Dim k As Integer, i As Integer
For i = 0 To UBound(Arr)
If Arr(k) <> Arr(i) Then
Arr(k + 1) = Arr(i)
k = k + 1
End If
Next
Dim NewArr() As Variant
ReDim NewArr(k)
For i = 0 To k
NewArr(i) = Arr(i)
Next
Array_unique = NewArr
End Function
Function QuickSort(Arr)
Dim i, j
Dim bound, t
bound = UBound(Arr)
For i = 0 To bound - 1
For j = i + 1 To bound
If Arr(i) > Arr(j) Then
t = Arr(i)
Arr(i) = Arr(j)
Arr(j) = t
End If
Next
Next
QuickSort = Arr
End Function
Sub Test()
s = Array_unique(Array(3, "新兴网络", 3, 3, 1, "新兴网络", 7, 3, 3, 3, 9, 3, 3))
Debug.Print Join(s, "|")
End Sub
评论这张
转发至微博
转发至微博
关闭
玩LOFTER，免费冲印20张照片，人人有奖！
我要抢>
<#--最新日志，群博日志-->
<#--推荐日志-->
<#--引用记录-->
<#--博主推荐-->
<#--随机阅读-->
<#--首页推荐-->
<#--历史上的今天-->
<#--被推荐日志-->
<#--上一篇，下一篇-->
<#-- 热度 -->
<#-- 网易新闻广告 -->
<#--右边模块结构-->
<#--评论模块结构-->
<#--引用模块结构-->
<#--博主发起的投票-->
评论