第４話 ラテン方陣生成ソフトの完成！
ラテン方陣を実現するプログラム例
Dim a(16, 16) As Integer, n As Integer, cn As Long
Private Sub CommandButton1_Click()
CommandButton2_Click
cn = 0
n = 9
Call f(0) 'n次数独作成プロシージャ
End Sub
Sub f(g As Integer)
If cn = 100 Then Exit Sub
Dim i As Integer, j As Integer, jy As Integer, jx As Integer
Dim gy As Integer, gx As Integer
gy = Int(g / n)
gx = g Mod n
For i = 1 To n
If gx > 0 Then
For j = 0 To gx - 1
If i = a(gy, j) Then GoTo tobi
Next
End If
If gy > 0 Then
For j = 0 To gy - 1
If i = a(j, gx) Then GoTo tobi
Next
End If
a(gy, gx) = i
If g + 1 < n * n Then
Call f(g + 1)
If cn = 100 Then Exit Sub
Else
Call h
End If
tobi:
Next
End Sub
Sub h()
Dim i As Integer, j As Integer, s As Integer, am As Integer, w As Integer
For i = 0 To n - 1
For j = 0 To n - 1
Cells(6 + i + (n + 1) * Int(cn / 5), 2 + j + (n + 1) * (cn Mod 5)) = a(i, j)
Next
Next
cn = cn + 1
tobi:
End Sub
Private Sub CommandButton2_Click()
Rows("5:20000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
これにブロックの条件を付け加えれば数独解答自動生成ソフトが完成します。
ブロックの条件を付け加えるにはどうしたらよいでしょうか。
大変な難問ですから、次話でヒントを授けたいと思います。
もちろん、力自慢の方は次話を見ないで完成させて下さい。
