- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 61
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-3-12
               
|
回復 8# PD961A
我所說的是多維陣列的概念大致就像排隊集合一樣
只是當你在寫成陣列與法時是用他的INDEX表示
如Dim Ar(0 to 10,0 to 20,0 to 10,0 to 30)
這樣就宣告了一個4維陣列
只訂出這陣列中第一個元素就寫成
Ar(0,0,0,0)
最後一個元素就是Ar(10,20,10,30)
第一維有11個元素
第二維有21個元素
第三維有11個元素
第四維有11個元素
Sub nn()
Dim Ar(11, 21, 11, 31)
For i = 0 To 10
For j = 0 To 20
For x = 0 To 10
For y = 0 To 30
Ar(i, j, x, y) = i + j + x + y: Next: Next: Next: Next
For i = 0 To 10
For j = 0 To 20
For x = 0 To 10
For y = 0 To 30
MsgBox "Ar(" & i & "," & j & "," & x & "," & y & ")=" & i & "+" & j & "+" & x & "+" & y & "=" & Ar(i, j, x, y): Next: Next: Next: Next
End Sub |
|
發表於 2010-5-6 13:08
| 