Dim a(7) As Integer
Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer, o As Integer, p As Integer, q As Integer, cn As Long
Dim h1 As Byte, h2 As Byte, h3 As Byte, h4 As Byte, h5 As Byte, h6 As Byte, h7 As Byte, h8 As Byte
cn = 0
For i = 1 To 8
a(0) = i
For j = 1 To 8
a(1) = j
h1 = 1
If a(1) = a(0) Then h1 = 0
If h1 = 1 Then
For k = 1 To 8
a(2) = k
h2 = 1
For l = 0 To 1
If a(2) = a(l) Then
h2 = 0
Exit For
End If
Next
If h2 = 1 Then
For l = 1 To 8
a(3) = l
h3 = 1
For m = 0 To 2
If a(3) = a(m) Then
h3 = 0
Exit For
End If
Next
If h3 = 1 Then
For m = 1 To 8
a(4) = m
h4 = 1
For n = 0 To 3
If a(4) = a(n) Then
h4 = 0
Exit For
End If
Next
If h4 = 1 Then
For n = 1 To 8
a(5) = n
h5 = 1
For o = 0 To 4
If a(5) = a(o) Then
h5 = 0
Exit For
End If
Next
If h5 = 1 Then
For o = 1 To 8
a(6) = o
h6 = 1
For p = 0 To 5
If a(6) = a(p) Then
h6 = 0
Exit For
End If
Next
If h6 = 1 Then
For p = 1 To 8
a(7) = p
h7 = 1
For q = 0 To 6
If a(7) = a(q) Then
h7 = 0
Exit For
End If
Next
If h7 = 1 Then
For q = 0 To 7
Cells(5 + 2 * Int(cn / 10), 1 + 9 * (cn Mod 10) + q) = a(q)
Next
cn = cn + 1
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
Next
Cells(2, 14) = "順列総数"
Cells(2, 18) = cn
End Sub
実行画面例
