を実現するプログラム例
Private Sub CommandButton1_Click()
CommandButton2_Click
f '２順列作成プロシージャ
End Sub
Sub f()
Dim i As Integer, j As Integer, k As Integer, cn As Integer
Dim a(2) As Integer
cn = 0
For i = 1 To 2
a(0) = i
For j = 1 To 2
If j <> a(0) Then
a(1) = j
Call g(cn, a())
cn = cn + 1
End If
Next
Next
End Sub
Sub g(cn As Integer, a() As Integer)
Dim i As Integer
For i = 0 To 1
Cells(5, 1 + i + 3 * cn) = a(i)
Next
End Sub
（CommandButton2_Clickは省略。この後も省略します。）
参考ダウンロード添付ファイル
解説
コードの行数は短いですが、
かなり頭が混乱しますね。
a(0)とa(1)のすべての場合は
（１，１）（１，２）（２，１）（２，２）
ですが、このうち（１，１）と（２，２）が順列の規則に反します。
規則は、数字の重複があってはならないです。
重複させないために、
For j = 1 To 2
If j <> a(0) Then
a(1) = j
Call g(cn, a())
cn = cn + 1
End If
Next
中のIf文があります。
この条件をクリアして（１，２）となったときに順列になりますので、
始めて表示関数gによって、結果シートに打ち出されているわけです。
Cells(5, 1 + i + 3 * cn) = a(i)
のcnは結果が３つ飛びに表示させる働きをしています。
