を実現するプログラム例
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(3) As Integer
cn = 0
For i = 1 To 3
a(0) = i
For j = 1 To 3
If j <> a(0) Then
a(1) = j
For k = 1 To 3
If k <> a(0) And k <> a(1) Then
a(2) = k
Call g(cn, a())
cn = cn + 1
End If
Next
End If
Next
Next
End Sub
Sub g(cn As Integer, a() As Integer)
Dim i As Integer
For i = 0 To 2
Cells(5, 1 + i + 4 * cn) = a(i)
Next
End Sub
（CommandButton2_Clickは省略。この後も省略します。）
参考ダウンロード添付ファイル
