Private Sub CommandButton1_Click()
Dim a(2, 3, 4, 5) As Integer
Dim b(360) As Integer
Dim i As Integer
For i = 0 To 359
b(i) = i + 1
Next
Dim j As Integer, k As Integer, l As Integer, m As Integer
For m = 0 To 359
i = Int(m / 120)
j = Int(m / 30) Mod 4
k = Int(m / 6) Mod 5
l = m Mod 6
Cells(5 + 6 * i + k, 1 + 7 * j + l) = b(m)
Next
For m = 0 To 359
i = Int(m / 120)
j = Int(m / 30) Mod 4
k = Int(m / 6) Mod 5
l = m Mod 6
a(i, j, k, l) = b(m)
Next
For i = 0 To 2
For j = 0 To 3
For k = 0 To 4
For l = 0 To 5
Cells(24 + 6 * i + k, 1 + 7 * j + l) = a(i, j, k, l)
Next
Next
Next
Next
End Sub
実行シート
ではこの講最後から2番目の課題です。
Private Sub CommandButton1_Click()
Dim a(2, 3, 4, 5) As Integer
Dim b(11,29) As Integer
Dim i As Integer, j As Integer, k As Integer, l As Integer
For i = 0 To 2
For j = 0 To 3
For k = 0 To 4
For l = 0 To 5
a(i, j, k, l) = Int(Rnd * 100)
Next
Next
Next
Next
End Sub
4次元配列のデータを表示し、次に2次元配列に翻訳してから２行下に２次元配列データを表示させましょう。
第５話へ 第７話へ
