を実現するプログラム例
Private Sub CommandButton1_Click()
Dim i As Integer
Dim h(10, 10) As Integer
Call f(h()) 'データ入力関数
Call g(1, h()) 'データ表示関数
Call t(h()) 'データ転置関数
Call g(12, h()) 'データ表示関数
Call t(h()) 'データ転置関数
Call hn(h()) 'データ左右反転関数
Call g(23, h()) 'データ表示関数
Call hn(h()) 'データ左右反転関数
Call jg(h()) 'データ左右反転関数
Call g(34, h()) 'データ表示関数
End Sub
Sub f(h() As Integer)
Dim i As Integer, j As Integer
For i = 0 To 9
For j = 0 To 9
h(i, j) = 10 * i + j + 1
Next
Next
End Sub
Sub g(a As Integer, h() As Integer)
Dim i As Integer, j As Integer
For i = 0 To 9
For j = 0 To 9
Cells(4 + i, a + j) = h(i, j)
Next
Next
End Sub
Sub t(h() As Integer)
Dim i As Integer, j As Integer
Dim h1(10, 10) As Integer
For i = 0 To 9
For j = 0 To 9
h1(i, j) = h(i, j)
Next
Next
For i = 0 To 9
For j = 0 To 9
h(i, j) = h1(j, i)
Next
Next
End Sub
Sub hn(h() As Integer)
Dim i As Integer, j As Integer
Dim h1(10, 10) As Integer
For i = 0 To 9
For j = 0 To 9
h1(i, j) = h(i, j)
Next
Next
For i = 0 To 9
For j = 0 To 9
h(i, j) = h1(i, 9 - j)
Next
Next
End Sub
Sub jg(h() As Integer)
Dim i As Integer, j As Integer
Dim h1(10, 10) As Integer
For i = 0 To 9
For j = 0 To 9
h1(i, j) = h(i, j)
Next
Next
For i = 0 To 9
For j = 0 To 9
h(i, j) = h1(9 - i, j)
Next
Next
End Sub
Private Sub CommandButton2_Click()
Rows("4:20000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
では、転置等は以上にしまして、
第９講および第10講に繋がる課題として
３次順列の作成を３次元For文によって実現することを考えます。
順列とは
１２３ １３２ ２１３ １３１ ３１２ ３２１
です。
私は、個数が３つのときを３次と名付けています。
すべての順列を網羅するには、３次元For文が必要です。
そして、４次順列の生成になると４次元For文となります。
最終的には、９次順列や１６次順列などを考えていきます。
もちろん、１６次元For文はとても組む気にはならないことを
９次元For文まで組んで頂き体験して頂くことが目的です。
９次元For文＝９次元ループでさえ、とても大変なのに、
プロシージャの再帰的使用＝自分が自分に仕事を依頼する方法を使うと、
１万次元ループであろうと、簡単に実現できてしまいます。
本サイトのどの講義でも、ｎ次順列の作成を題材にしています。
理由は、例えば９次順列
１２３４５６７８９ １２３４５６７９８ １２３４５６８７９ ・・・
を２次元に並べると
