3次元配列について！！

本をみても例とかあまり載ってないから、ｖｂで３次元配列はできるのか、できるのであればその方法も教えてください。

No.1 ベストアンサー 回答者： zerosix 回答日時： 2001/11/28 11:18

>できるのであればその方法も教えてください。

方法って何を言っているのか分かりませんが、これでどうですか？

dim a(1 to 2,1 to 3 ,1 to 4) as String

a(1,1,1)="a"
a(1,1,2)="b"
・・・
a(2,3,4)="aaaa"

この回答への補足

配列の数が少ない時は、そのやり方でいいんですよね。もし、配列の数がすごい多いときは、同じやり方だと大変なので、他にいい方法ないですか？？

補足日時：2001/11/28 14:53

No.2 回答者： imogasi 回答日時： 2001/11/28 23:17

（１）極く初歩的にＡＲＲＡＹ関数の利用でいかがですか

Private Sub Form_click()
Dim b(4, 4, 4)
l = 1
a = Array(0,1, 2, 3, 4, 5, 6, 7, 8, 9)
For k = 1 To 2
For j = 1 To 2
For i = 1 To 2
b(i, j, k) = a(l)
l = l + 1
Next i
Next j
Next k
'-------以下は視覚化のためのルーチン
For k = 1 To 2
For j = 1 To 2
For i = 1 To 2
Form1.Print "b(" & i & j & k & ")=" & b(i, j, k)
Next i
Next j
Next k
End Sub
実行は実行ボタンをクリックし、form1上をクリックしてください。
（２）array関数が書くのが面倒なほど数が多くなった場合は、エクセルやメモ帳でテキストファイル等を作り、それを読み込み、b(i,j,k)に値または文字列を代入してください。

この回答への補足

今考えているプログラムの一部で３次元配列を考えているのですが、array関数でかけるほど配列の数ではありません。。。かなり配列が多いんです。配列が多いときのやり方を詳しく教えていただけないでしょうか？

補足日時：2001/11/29 15:13

この回答へのお礼

ありがとうございました。おかげで役にたちました。

お礼日時：2001/11/29 12:16