3次元配列について！！

質問

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

回答No.1

zerosix · ベストアンサー

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

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

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"

補足

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

回答No.2

imogasi

（１）極く初歩的にＡＲＲＡＹ関数の利用でいかがですか
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関数でかけるほど配列の数ではありません。。。かなり配列が多いんです。配列が多いときのやり方を詳しく教えていただけないでしょうか？