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

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

讓客戶滿意是我們工作的目標，不斷超越客戶的期望值來自于我們對這個行業的熱愛。我們立志把好的技術通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領域值得信任、有價值的長期合作伙伴，公司提供的服務項目有：申請域名、網站空間、營銷軟件、網站建設、隨縣網站維護、網站推廣。

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中，如何刪除指定文本文檔中的指定行的內容

Dim?newfile?As?New?List(Of?String)

For?Each?line?As?String?In?System.IO.File.ReadAllLines("TextFile1.txt")

If?Not?line.StartsWith("3")?Then?newfile.Add(line)

Next

System.IO.File.WriteAllLines("TextFile1.txt",?newfile)

建個集合，用System.IO.File的ReadAllLines讀出所有內容，逐個判斷，如果是需要的加入集合，如果是要刪除的什么都不做，最后用WriteAllLines寫入即可。

這里說明一下，上面那個代碼是用來刪除所有以3開頭的文本行。

在VB.Net 中，如何從數組中刪除項目

來給你寫了個函數，拿去用，不謝

Function?RemoveAt(Of?T)(ByVal?arr?As?T(),?ByVal?index?As?Integer)?As?T()

Dim?uBound?=?arr.GetUpperBound(0)

Dim?lBound?=?arr.GetLowerBound(0)

Dim?arrLen?=?uBound?-?lBound

If?index??lBound?OrElse?index??uBound?Then

Throw?New?ArgumentOutOfRangeException(?_

String.Format("Index?must?be?from?{0}?to?{1}.",?lBound,?uBound))

Else

Dim?outArr(arrLen?-?1)?As?T

Array.Copy(arr,?0,?outArr,?0,?index)

Array.Copy(arr,?index?+?1,?outArr,?index,?uBound?-?index)

Return?outArr

End?If

End?Function