Private Sub CommandButton1_Click()
Dim a(55) As Integer
Dim b(7, 6) As Integer
Dim i As Integer
For i = 0 To 55
a(i) = i + 1
Next
End Sub
1次元配列a(55)を2次元配列b(7, 6)に翻訳して、それを
とシートに表示させるにはどうしたらよいでしょうか。解答例は、30行下。
解答例
Private Sub CommandButton1_Click()
Dim a(55) As Integer
Dim b(7, 6) As Integer
Dim i As Integer
For i = 0 To 55
a(i) = i + 1
Next
Dim am As Integer, s As Integer
For i = 0 To 55
am = i Mod 7
s = Int(i / 7)
b(s, am) = a(i)
Next
Dim j As Integer
For i = 0 To 7
For j = 0 To 6
Cells(5 + i, 1 + j) = b(i, j)
Next
Next
End Sub
問題2
Private Sub CommandButton1_Click()
Dim a(29) As Integer
Dim b(4, 5) As Integer
Dim i As Integer, j As Integer
For i = 0 To ?
For j = 0 To ?
b(i, j) = ? * i + j + 1
Next
Next
End Sub
今度は、2次元配列を1次元配列に翻訳してから、
とシートに表させるにはどうしたらよいでしょうか。解答例
Private Sub CommandButton1_Click()
Dim a(29) As Integer
Dim b(4, 5) As Integer
Dim i As Integer, j As Integer
For i = 0 To 4
For j = 0 To 5
b(i, j) = 5 * i + j + 1
Next
Next
For i = 0 To 4
For j = 0 To 5
a(5 * i + j) = b(i, j)
Next
Next
For i = 0 To 4
For j = 0 To 5
Cells(5 + i, 1 + j) = b(i, j)
Next
Next
End Sub
では、今話最後の課題です。
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(rand * 100)
Next
Next
Next
End Sub
３次元配列を１次元配列に翻訳してから、
のように表示させるプログラムを考えてください。
第１話へ 第３話へ
