VB.NET數組問題（！！！！！！！求助！！！！！！！！！）

Dim a(3, 3, 3)

為青神等地區用戶提供了全套網頁設計制作服務，及青神網站建設行業解決方案。主營業務為網站設計制作、做網站、青神網站設計，以傳統方式定制建設網站，并提供域名空間備案等一條龍服務，秉承以專業、用心的態度為用戶提供真誠的服務。我們深信只要達到每一位用戶的要求，就會得到認可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！

Dim b(3, 3), c(3, 3), d(3, 3)

Private Sub aaa()

' 對數組a(3,3,3)賦值

For i = 1 To 3

For j = 1 To 3

b(i, j) = a(1, i, j)

Next

Next

For i = 1 To 3

For j = 1 To 3

c(i, j) = a(2, i, j)

Next

Next

For i = 1 To 3

For j = 1 To 3

d(i, j) = a(3, i, j)

Next

Next

End Sub

利用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 從數組{5,7,11,13,17,19}中取一個數，取三次（可以是相同的數），三次之和有幾個值？求代碼！

Sub 和()

Dim Arr, Dic As Object, i, j, k

Set Dic = CreateObject("Scripting.Dictionary")

Arr = Array(5, 7, 11, 13, 17, 19)

For i = 0 To UBound(Arr)

For j = 0 To UBound(Arr)

For k = 0 To UBound(Arr)

Dic(Arr(i) + Arr(j) + Arr(k)) = ""

Next k

Next j

Next i

MsgBox Dic.Count

Set Dic = Nothing

End Sub

結果為22種不同的和值。

當前名稱：vb.net數組習題,vb數組教案
網頁鏈接：http://vcdvsql.cn/article26/dsisjcg.html

成都網站建設公司_創新互聯，為您提供商城網站、全網營銷推廣、ChatGPT、網站維護、企業建站、做網站

廣告

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