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

摘自：网络整理

★VB部分相关文章推荐：★

※VB 释放资源文件到指定目录函数

※VB 读取资源文件里面的字符串

※VB中资源文件.res的使用方法详解

※VB6.0中创建和使用文本资源文件

※VB WindowsMediaPlayer 播放

※vb中WindowsMediaPlayer的常用属性和方法

※VB Environ系统环境变量函数大全

※VB 去除文本框粘贴功能

※VB LISTBOX

※VB 删除数组中的重复元素

※VB数组快速排序算法

※关于三个概念：ActiveX、OLE和COM

※VB 获得磁盘的文件系统

※VB中用API实现文件拖放

※加密算法-MD5算法

※VB中使用MD5算法

※VB 全局热键HOOK (不占系统资源版本)

※VB 小技巧自定义TextBox文本框右键菜单

※VB 写下载者代码

※VB 一行代码的诀窍

※VBS教程-wscript对象

※vb枚举进程

※在VB中如何让线程或进程在指定的CPU上运行

※VB判断指定的WORD文档是否被打开

※VB如何读取快捷方式的目标路径

※VB用API控制输入法状态

※为系统加载右键注册控件选项【VB 注册控件】

※VB如何根据窗口标题获得进程名称

※VB快速查找大型文件中包含的字符串

※VB实现可执行文件运行时自删除

※VB 打开txt,bat,jpg 任意后缀程序

※VB 写文件关联程序

※VB 自启动建立右键菜单

※VB 判断IP能否ping通

※VB FTP操作类(可上传、下载、创建文件夹等等)

※VB部分文件汇总B

※Vb 求素数最经典的方法也是最快的方法

※vb用数组方式快速导出MSFlexGrid表格数据到Excel表格中

※VB中MsFlexGrid控件的使用细则

※点击MSFlexGrid数据控件的标题进行数据排序

※VB 获取鼠标坐标

※VB中NEW的用法（申请内存空间）

※VB CreateObject函数

※VB中的New 与 CreateObject的区别

※VB ListBox 添加不重复的值

※VB 单击ListView控件某列表头进行排序

※VB 简单实现简体与繁体互转

※VB 阿拉伯数字转换为中文大写数值函数

※VB 获取Textbox文本框中的行数函数

VB 删除数组中的重复元素相关推荐

从Ruby中删除数组中的重复元素
本文翻译自:Remove duplicate elements from array in Ruby I have a Ruby array which contains duplicate elem ...
复习删除数组中的重复元素
//如何删除数组中的重复元素 #include<stdio.h> int main(){ int n; scanf("%d",&n); ...
删除数组中的重复元素
删除数组中的重复元素给定一维整型数组array(数组大小不超过100),如果数组中的某个元素与排在它之后的元素重复,则对其进行删除,直到数组中没有重复元素为止.保证剩余元素的相对次序保持不变,打印删 ...
leetcode:2680 Remove Duplicates from Sorted Array 删除数组中的重复元素
leetcode:26 对数组元素进行去重,使得原数组重复元素最多保留1个限制: 我们不可以额外分配数组,必须保持空间复杂度为O(1) 这个并不难实现: class Solution(object) ...
【无标题】删除数组中的重复元素
举个栗子,输入整数n,然后输入n个整数.直接上代码 #include<stdio.h> int main(void) { int i,n,a[100]; int j, te ...
力扣 26.删除有序数组中的重复元素
文章目录题目思路 AC代码收获题目删除有序数组中的重复元素思路快慢指针.快指针不断向前走.判断快指针所指的数与快指针前面的数是否相等,如果相等就说明是重复的,要继续向后移动,如果不相等, ...
java删除有序数组中的重复元素_java去除已排序数组中的重复元素
题目描述给定一个已排序的数组,去除数组中的重复元素,只保留一个重复的元素,并且返回新的数组长度. 要求: 不要给数组分配额外的空间,你必须使用常量的内存大小进行原地操作. 例如: 给出数组A=[1, ...
LeetCode 26 号问题删除数组中的重复项
删除数组中的重复项给定一个排序数组,你需要在原地删除重复出现的元素,使得每个元素只出现一次,返回移除后数组的新长度. 不要使用额外的数组空间,你必须在原地修改输入数组并在使用 O(1) 额外空间的条 ...
php数组重复值销毁,如何从PHP中删除数组中的重复值
如何从PHP中删除数组中的重复值如何从PHP中删除数组中的重复值? 21个解决方案 204 votes 使用array_unique(). 例: $array = array(1, 2, 2, 3) ...

VB 删除数组中的重复元素

VB 删除数组中的重复元素相关推荐

最新文章

热门文章