第14講 数独の自動生成
第10話 16次数独自動生成ソフトの完成！

を実現するプログラム例

Dim a(16, 16) As Integer, n As Integer, cn As Long
Private Sub CommandButton1_Click()

　　CommandButton2_Click
　　cn = 0
　　n = 16
　　Randomize (Timer)
　　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, ii As Integer, iii As Integer
　　Dim gy As Integer, gx As Integer
　　
　　gy = Int(g / n)
　　gx = g Mod n
　　ii = Int(17 * Rnd)
　　For iii = 1 To n
　　　　i = ((iii + ii) Mod 16) + 1
　　　　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
　　　　If g > 0 Then
　　　　　　For j = gy - (gy Mod 4) To gy - (gy Mod 4) + 3
　　　　　　　　For k = gx - (gx Mod 4) To gx - (gx Mod 4) + 3
　　　　　　　　　　If g = n * j + k Then GoTo tobi1
　　　　　　　　　　If i = a(j, k) Then GoTo tobi
　　　　　　　　Next
　　　　　　Next
　　　　End If
tobi1:
　　　　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, p As Integer, q As Integer
　　
　　p = 0
　　For i = 0 To n + 4
　　　　q = 0
　　　　If (i Mod 5) = 0 Then
　　　　　　p = p + 1
　　　　　　For j = 0 To n + 4
　　　　　　　　Cells(6 + i + (n + 6) * Int(cn / 6), 2 + j + (n + 6) * (cn Mod 6)) = "*"
　　　　　　Next
　　　　Else
　　　　　　For j = 0 To n + 4
　　　　　　　　If (j Mod 5) = 0 Then
　　　　　　　　　　q = q + 1
　　　　　　　　　　Cells(6 + i + (n + 6) * Int(cn / 6), 2 + j + (n + 6) * (cn Mod 6)) = "*"
　　　　　　　　Else
　　　　　　　　　　Cells(6 + i + (n + 6) * Int(cn / 6), 2 + j + (n + 6) * (cn Mod 6)) = a(i - p, j - q)
　　　　　　　　End If
　　　　　　Next
　　　　End If
　　Next
　　cn = cn + 1
　　
tobi:
　　
End Sub


Private Sub CommandButton2_Click()
　　
　　Rows("5:20000").Select
　　Selection.ClearContents
　　Cells(1, 1).Select
　　
End Sub

参考ダウンロード添付ファイル

以上で、第14講の数独解答自動生成は終わりにします。
第15講では並び換えに挑戦します。

第９話へ　第15講第１話へ

eclipse c++ 入門
魔方陣 数独で学ぶ VBA 入門
数独のシンプルな解き方・簡単な解法の研究
vc++講義へ
excel 2013 2010 2007 vba入門へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
専門用語なしの C言語 C++ 入門（Visual C++ 2010で学ぶ C言語 C++ 入門）
専門用語なしの excel vba マクロ 入門 2013 2010 2007 対応講義 第1部
eclipse java 入門へ
excel 2016 vba 入門へ
小学生からエンジニアまでのRuby入門へ
本サイトトップへ