vb.net数组去重复,VB数组元素如何去掉重复的

vb.net去掉重复数组怎么做？

Dim array1() As String

网站建设哪家好，找成都创新互联！专注于网页设计、网站建设、微信开发、微信小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了湖南免费建站欢迎大家使用！

Dim array2() As Boolean

Dim i As Integer

Dim j As Integer

Dim str1 As String = "a,c,c,c,a,b,c,d,f,eee,eee"

array1 = Split(str1, ",")

str1 = ""

ReDim array2(UBound(array1))

For i = 0 To UBound(array1)

array2(i) = False

Next

For i = 0 To UBound(array1) - 1

If array2(i) = False Then

For j = i + 1 To UBound(array1)

If array1(i) = array1(j) And array2(j) = False Then

array2(j) = True

End If

Next j

End If

Next i

For i = 0 To UBound(array1)

If array2(i) = False Then

str1 = str1 array1(i) ","

End If

Next i

If str1 "" Then

str1 = Strings.Left(str1, Len(str1) - 1)

End If

vb 删除数组里的重复数

程序代码如下：

Dim a()

Private Sub Form_Load()

ReDim Preserve a(1 To 5)

For i = 1 To 5

  a(i) = i

Next i

For i = 1 To 5

  Text1.Text = Text1.Text "a(" i ")=" a(i) ";   "

Next i

For i = 2 To 4

  a(i) = a(i + 1)

Next i

ReDim Preserve a(1 To 4)

For i = 1 To 4

  Text2.Text = Text2.Text "a(" i ")=" a(i) ";   "

Next i

End Sub

算法总结：

1、插入数组元素和删除数组元素都使用循环交换，插入数组元素是原数组元素往后移动，删除数组元素是将原数组的元素往前移动。

2、插入数组元素，需要先将数组长度加长再增加数组元素；删除数组元素，可以先删除数组元素，再建数组长度缩短。

扩展资料：

数组中元素的插入和删除一般是在己固定序列的数组中插入或除一个元素,使得插入或删除操作后的数组还是有序的。

1、插入

代码如下：

Private Sub Command1 click)

Dim a(10)As Integer

Dim i As Integer, k As Integer

For  i = 0 To 9

a(i) = i*3 +1

Print a(i)

Next i

Print"插入14"

For k =0 To 9

If 14 a(k) Then  Exit  For

Next k

For i = 9 To k Step 从最后元素开始逐个后移腾出位置

a(i+1)=a(i)

Next i

VB.Net去除数组中重复的字符的元素？

比如数组a。里面有5个值，其中有3个是重复的？

如果这样的话，很好办哦。

新建一个数组b，然后遍历要去除的数组a，

从a中把每一个都取出来，和新建的b里面的去比，如果有相同的，则不放入b，

否则就放入数组b，直到循环结束。

VB中如何删除数组变量中重复的元素?

Private Function NewArray(ByRef b() As Integer)

Dim Temp() As Integer

Dim H As Integer, I As Integer, J As Integer, K As Integer

Dim IsNew As Boolean

H = UBound(b())

ReDim Temp(0) '如果你原数组元素数量是万个级别的，就直接ReDim Temp(H)，下面 ReDim Preserve Temp(K) 去掉

Temp(0) = b(0)

For I = 0 To H

IsNew = True

For J = 0 To K

If Temp(J) = b(I) Then

IsNew = False

Exit For

End If

Next J

If IsNew Then

K = K + 1

ReDim Preserve Temp(K)

Temp(K) = b(I)

End If

Next I

ReDim b(K)

For I = 0 To K

b(I) = Temp(I)

Next I

Erase Temp()

End Function

'调用

'dim b() as integer

'dim I as integer

'dim OutputStr as String

'redim b(Ubound(a()))

'for I=0 TO Ubound(a())

' b(I)=a(I)

'next I

'NewArray(b())

'返回的b()为除重后的数组，可以根据你的需要显示、输出数组a()、b()。