如何用VB快速清除上限为数万的数组中的重复元素 清除数组重复元素；总归要通过从头到尾遍历的方法，可以采用动态数组：方法一；在原来数组里进行从头开始逐渐向后，进行遍。
VB 中，如何去除数组中相同的数 每一个数到本数组中去找，如果有相同值，则删Dim a(10)For i=1 To 10a(i)=Int(Rnd*6)+1 '随机产生[1，6]的数10个Next iFor i=1 To 10For j=i+1 To 10If a(i)=0 Then Exit For '0表示已经删除了If a(i)=a(j)Then '找到有相同的For k=j To 10-1a(k)=a(k+1)'后面往前移动，把前面的覆盖删除Next ka(k)=0 '最后一位清零End IfNext jNext i除
VB如何除去数组中相同的数 1Private Sub Command1_Click()Dim s(1 To 10)As IntegerDim i，j，k，n As Integers(1)=1s(2)=44s(3)=1s(4)=2s(5)=3s(6)=5s(7)=44s(8)=66s(9)=66s(10)=7n=10For i=1 To n-1For j=i+1 To nIf s(i)=s(j)ThenFor k=j To n-1s(k)=s(k+1)Next kn=n-1End IfNext jNext iFor i=1 To nPrint s(i)Next iEnd Sub
