VB 数组中去掉相同的数

来源：百度知道 编辑：UC知道 时间：2024/09/18 05:13:46
具体情况是一个数组c()吧,里面的数有20-30个左右,具体多少个具体等前面的程序算过才会得出.
现在要做的就是里面的数中会有相同的,需要把相同的去掉,只留下一个.然后还要给出最后剩下的数的个数.
不明白的请留言.以前老师教VC的时候教过,可是我学习不专心,几年了,现在不记得怎么弄了,懒得找书了.知道的教一下.

具体思路：

实现2次循环，一个数组循环2次，外循环数组，得出一个值a，然后内循环，将a与自身所在的数组的值对比一次，计算出现次数或者设置为空，如果计算出现次数可以计算次数大于2时候，进行删除操作。如果设置为空，等于进行删除操作。

具体代码如下：

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  

          &nbs