VB中删除数组重复元素
2010-01-22 15:36
381 查看
Option Explicit Function Delete3(Arr As Variant) As Variant Dim i As Integer For i = LBound(Arr) To UBound(Arr) If i > UBound(Arr) Then Exit For If Arr(i) = 3 Then Do Dim j As Integer For j = i To UBound(Arr) - 1 Arr(j) = Arr(j + 1) Next j If LBound(Arr) = UBound(Arr) Then Delete3 = Empty Exit Function End If ReDim Preserve Arr(LBound(Arr) To UBound(Arr) - 1) If i > UBound(Arr) Then Exit For Loop While Arr(i) = 3 End If Next i Delete3 = Arr End Function Sub Test() Delete3 (Array(3, 3, 3, 3, 1, 3, 7, 3, 3, 3, 9, 3, 3)) Delete3 (Array(3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3)) Delete3 (Array(1, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3)) Delete3 (Array(3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 1)) End Sub
相关文章推荐
- 删除数组中重复元素--哈希表方法和set方法
- Java 使用List,Set将Person数组中的重复元素删除
- php array_flip() 删除数组重复元素
- LeetCode Remove Duplicates from Sorted Array删除整型数组中的重复元素并返回剩下元素个数
- 删除排序数组中的重复元素
- C++使用STL::vector删除数组内的重复元素
- 整形数组合并(STL vector删除重复元素)
- 【LeetCode-面试算法经典-Java实现】【026-Remove Duplicates from Sorted Array(删除排序数组中的重复元素)】
- 删除数组中的重复元素
- Js删除数组重复元素的多种方法
- 删除有序数组中的重复元素,并返回数组的新长度
- 小谈数组和链表删除重复元素
- JavaScript删除数组重复元素的5个高效算法
- jQuery删除数组中重复元素
- jquery删除数组中重复元素
- Javascript数组删除重复元素的方法
- 数组去掉重复值、删除元素、添加元素
- jquery删除数组中重复元素$.inArray(s)
- LeetCode Remove Duplicates from Sorted Array II 删除整型数组中的重复元素并返回剩下元素个数2
- jquery删除数组中重复元素