第２話 普遍的な順列生成プログラム例
コード
Dim x(15) As Byte, cn As Long, n As Byte
Private Sub CommandButton1_Click()
n = Cells(3, 11)
cn = 0
f (0)
End Sub
Sub f(g As Byte)
Dim h As Byte, i As Byte, j As Byte, a As Byte, s As Long
a = cn Mod 10
s = Int(cn / 10)
For i = 1 To n
x(g) = i
h = 1
If g > 0 Then
For j = 0 To g - 1
If x(j) = x(g) Then
h = 0
Exit For
End If
Next
End If
If h = 1 Then
If g + 1 < n Then
f (g + 1)
Else
For j = 0 To n - 1
Cells(5 + 2 * s, 2 + (n + 1) * a + j) = x(j)
Next
cn = cn + 1
End If
End If
Next
End Sub
このコードを読んで初心者の皆さんは、
頭が爆発しそうになっているのではないでしょうか。
ひょっとしたら、プログラミングにある程度慣れている方さえ、
？？？なのではないでしょうか。
でも、大丈夫ですよ。
皆さんが理解できるまで丁寧にエスコートします。
