Private Sub CommandButton1_Click()
Dim a(3, 2, 4) As Integer
Dim b(59) As Integer
Dim i As Integer, j As Integer, k As Integer
For i = 0 To 3
For j = 0 To 2
For k = 0 To 4
a(i, j, k) = Int(Rnd * 100)
Next
Next
Next
For i = 0 To 3
For j = 0 To 2
For k = 0 To 4
b(10 * i + 5 * j + k) = a(i, j, k)
Next
Next
Next
For i = 0 To 3
For j = 0 To 2
For k = 0 To 4
Cells(5 + 4 * i + j, 1 + k) = a(i, j, k)
Next
Next
Next
For i = 0 To 3
For j = 0 To 2
For k = 0 To 4
Cells(5 + 4 * i + j, 7 + k) = b(10 * i + 5 * j + k)
Next
Next
Next
End Sub
実行シート例
１次元に翻訳するときのコツ
b(15 * i + 5 * j + k)の15は、Dim a(3, 2, 4) As Integerの2と4を使い
（２＋１）×（４＋１）＝１５
また、5は
４＋１＝５
では逆の課題です。
1次元データを作ってから、それを3次元データに翻訳し、上の実行シート例のように表示させるプログラムを考えてください。
Private Sub CommandButton1_Click()
Dim a(3, 2, 4) As Integer
Dim b(59) As Integer
Dim i As Integer
For i = 0 To 59
b(i) = i + 1
Next
End Sub
もし、整数の宣言が必要なら、適宜宣言しましょう。
第２話へ 第４話へ
