を実現するプログラム例
Private Sub CommandButton1_Click()
CommandButton2_Click
f '6順列作成プロシージャ
End Sub
Sub f()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim o As Integer
Dim cn As Integer
Dim a(6) As Integer
cn = 0
For i = 1 To 6
a(0) = i
For j = 1 To 6
If j <> a(0) Then
a(1) = j
For k = 1 To 6
If k <> a(0) And k <> a(1) Then
a(2) = k
For l = 1 To 6
If l <> a(0) And l <> a(1) And l <> a(2) Then
a(3) = l
For m = 1 To 6
If m <> a(0) And m <> a(1) And m <> a(2) And m <> a(3) Then
a(4) = m
For n = 1 To 6
For o = 0 To 4
If n = a(o) Then GoTo tobi
Next
a(5) = n
Call g(cn, a())
cn = cn + 1
tobi:
Next
End If
Next
End If
Next
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 5
Cells(4 + Int(cn / 5), 1 + i + 7 * (cn Mod 5)) = a(i)
Next
End Sub
参考ダウンロード添付ファイル
次は、７次順列です。
そろそろカウントするための変数cnはLong型に変更しないと、
オーバーフローする可能性があります。
尚、言い忘れていましたが、
数える専用の変数のことをカウンタといいます。
カウンタなので、cnという変数名にしていますが、
名前ですから禁則さえ犯さなければ、何でもかまいません。
