vb.net數(shù)組題目,vb第五章數(shù)組測(cè)試題答案

vb.net 從數(shù)組{5,7,11,13,17,19}中取一個(gè)數(shù)，取三次（可以是相同的數(shù)），三次之和有幾個(gè)值？求代碼！

Sub 和()

創(chuàng)新互聯(lián)建站專業(yè)為企業(yè)提供沙灣網(wǎng)站建設(shè)、沙灣做網(wǎng)站、沙灣網(wǎng)站設(shè)計(jì)、沙灣網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)與制作、沙灣企業(yè)網(wǎng)站模板建站服務(wù)，10余年沙灣做網(wǎng)站經(jīng)驗(yàn)，不只是建網(wǎng)站，更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。

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

結(jié)果為22種不同的和值。

VB.NET 二維數(shù)組問題

根據(jù)你的語句，上下標(biāo)是確定的，所以定義語句修改為：

Dim ary(UBound(temp), 1) As String '聲明二維數(shù)組

VB.NET數(shù)組問題（?。。。。。。∏笾。。。。。。。。。?/h2>

Dim a(3, 3, 3)

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

Private Sub aaa()

' 對(duì)數(shù)組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

網(wǎng)站欄目：vb.net數(shù)組題目,vb第五章數(shù)組測(cè)試題答案
當(dāng)前URL：http://muchs.cn/article0/phidio.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供手機(jī)網(wǎng)站建設(shè)、定制開發(fā)、商城網(wǎng)站、軟件開發(fā)、Google、移動(dòng)網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)