利用VB.NET編寫：已知數組A＝Array(7,6,5,1,8,5,3,9,4)，編寫一程序，刪除數組中值為x（例如為3）...

For?i?=?0?To?10?'假設數組長度為10

創新互聯公司是一家企業級云計算解決方案提供商,超15年IDC數據中心運營經驗。主營GPU顯卡服務器，站群服務器，川西大數據中心，海外高防服務器，機柜大帶寬、租用·托管，動態撥號VPS，海外云手機，海外云服務器，海外服務器租用托管等。

If?a(i)?=?3?Then

For?j?=?i?To?10?-?1

a(j)?=?a(j?+?1)

Next?j

ReDim?Preserve?a(10?-?1)

Exit?For

End?If

Next?i

If?i??10?Then

For?k?=?0?To?10?-?1

Print?a(k)

Next

Else

For?k?=?0?To?10

Print?a(k)

Next

End?If

VB.Net去除數組中重復的字符的元素？

比如數組a。里面有5個值，其中有3個是重復的？

如果這樣的話，很好辦哦。

新建一個數組b，然后遍歷要去除的數組a，

從a中把每一個都取出來，和新建的b里面的去比，如果有相同的，則不放入b，

否則就放入數組b，直到循環結束。

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.net清除數組 vb 清空數組
網站URL：http://www.yijiale78.com/article16/docjcgg.html

成都網站建設公司_創新互聯，為您提供用戶體驗、App開發、網頁設計公司、軟件開發、企業網站制作、品牌網站設計

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯