樓上回答的什么啊,
創(chuàng)新互聯(lián)公司成立于2013年,是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司,擁有項(xiàng)目網(wǎng)站設(shè)計(jì)、成都網(wǎng)站設(shè)計(jì)網(wǎng)站策劃,項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢想脫穎而出為使命,1280元南崗做網(wǎng)站,已為上家服務(wù),為南崗各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:18982081108
真是看不下去,
簡單問題復(fù)雜了
舉個(gè)例子:二維數(shù)組賦值
Dim i1, i2
Dim a(10, 10)
For i1 = 0 To 10
For i2 = 0 To 10
a(i1, i2) = i2
Next
Next
數(shù)組賦值是指針傳遞,如果想復(fù)制數(shù)組就要用一個(gè)循環(huán)遍歷所有元素并賦值.這樣改變其中一個(gè)數(shù)組的值才不會(huì)影響到另外一個(gè)數(shù)組.
我剛打開寫了一下,基本就是你這樣的,嵌套一層大括號(hào)一維,看著啊
Dim a(,,) As Integer = New Integer(,,) {{{11, 12, 13}, {21, 22, 23}, {31, 32, 33}}, {{41, 42, 43}, {51, 52, 53}, {61, 62, 63}}, {{71, 72, 73}, {81, 82, 83}, {91, 92, 93}}}
不能直接賦值
如果要給多維數(shù)組賦值的話,可以變通一下
Dim x As Integer
Private Sub Command1_Click()
Dim b As Variant
Dim a(3, 3)
b = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
For i = 0 To 2
For j = 0 To 2
a(i, j) = b(x)
x = x + 1
Print a(i, j)
Next j
Next i
End Sub
僅供參考
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Private Sub Command1_Click()
Dim I, J As Integer
Dim A(500, 2)
Set xlsApp = Excel.Application
xlsApp.Visible = False
'假設(shè)Excel文件在:D:\Book1.xls
Set xlsBook = xlsApp.Workbooks.Open("D:\Book1.xls")
For I = 1 To 500
For J = 1 To 2
A(I - 1, J - 1) = xlsapp.cells(I, J)
Next J
Next I
'以下是退出Excel
xlsBook.Close (False)
xlsApp.Quit
Set xlsApp = Nothing
'=================================
'Excel中的500×2的數(shù)據(jù)已讀入到數(shù)組A()中,以下可以添加你要運(yùn)算的代碼。
'=================================
End Sub
Dim abc(2) As Integer
abc = {0, 1, 2}
'或者
Dim abcd() As Integer
ReDim abcd(9)
For i As Integer = 0 To abcd.Length - 1
abcd(i) = i
Next
也可聲明為字符串?dāng)?shù)組
分享文章:vb.net多維數(shù)組賦值 vbs數(shù)組
當(dāng)前地址:http://jinyejixie.com/article32/dossesc.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供標(biāo)簽優(yōu)化、品牌網(wǎng)站設(shè)計(jì)、企業(yè)網(wǎng)站制作、響應(yīng)式網(wǎng)站、App設(shè)計(jì)、品牌網(wǎng)站建設(shè)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)