を加えたプログラム例
Private Sub CommandButton1_Click()
Dim a(9, 9) As Integer, i As Integer, j As Integer
For i = 0 To 9
For j = 0 To 9
a(i, j) = 10 * i + j + 1
Next
Next
For i = 0 To 9
For j = 0 To 9
Cells(6 + i, 1 + j) = a(i, j)
Next
Next
Cells(16, 1) = "転置"
For i = 0 To 9
For j = 0 To 9
Cells(17 + j, 1 + i) = a(j, i)
Next
Next
Cells(27, 1) = "左右反転"
For i = 0 To 9
For j = 0 To 9
Cells(28 + j, 1 + i) = a(i, 9 - j)
Next
Next
Cells(38, 1) = "上下反転"
For i = 0 To 9
For j = 0 To 9
Cells(39 + j, 1 + i) = a(9 - i, j)
Next
Next
Cells(49, 1) = "中心に対して点対称移動"
For i = 0 To 9
For j = 0 To 9
Cells(50 + j, 1 + i) = a(9 - i, 9 - j)
Next
Next
End Sub
Private Sub CommandButton2_Click()
Rows("6:200").Select
Selection.ClearContents
Cells(5, 2).Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
プログラムが大きくなりすぎました。
社長CommandButton1_Click()は部下を
コールするだけ（命令するだけ）で、
仕事はすべて部下に行わせるように変更してください。
社員は、データを作る社員・自然配列を表示する社員・
転置を表示する社員・左右反転を表示する社員・
上下反転を表示する社員・中心に対して点対称移動を表示する社員
の６人にしましょう。
社長を含めたすべての社員が使えるように、
２つの添え字付き名前もった箱（２次元配列）をグローバルに変更しましょう。
つまり、Dim a(9, 9) As Integerをプログラム冒頭に移動してください。
