第２話 第１話問題解答例
を実現するプログラム例
Dim a(16, 16) As Integer, n As Integer, cn As Byte
Private Sub CommandButton1_Click()
CommandButton2_Click
cn = 0
n = 9
Randomize (Timer)
Call f(0) 'n次数独作成プロシージャ
End Sub
Sub f(g As Integer)
If cn = 1 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(10 * Rnd)
For iii = 1 To n
i = ((iii + ii) Mod 9) + 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 3) To gy - (gy Mod 3) + 2
For k = gx - (gx Mod 3) To gx - (gx Mod 3) + 2
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 = 1 Then Exit Sub
Else
Call h
If cn = 1 Then Exit Sub
End If
tobi:
Next
End Sub
Sub h()
Dim i As Integer, j As Integer
For i = 0 To 8
For j = 0 To 8
Cells(15 + i, 3 + j) = a(i, j)
Next
Next
cn = cn + 1
End Sub
参考ダウンロード添付ファイル
さて、それでは抜本的な改良を加えて、
問題を解けるようにしましょう。
データを読み込むＳｕｂプロシージャを作り、
a(16, 16)に収納しておきましょう。
そして、Ｓｕｂプロシージャfもデータが入っているときには何もしないように、
改良します。
さらに、第14講第９話の添付ファイル
はデータが全くない状態を前提していますので、
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 3) To gy - (gy Mod 3) + 2
For k = gx - (gx Mod 3) To gx - (gx Mod 3) + 2
If g = n * j + k Then GoTo tobi1
If i = a(j, k) Then GoTo tobi
Next
Next
End If
tobi1:
の部分も改良しなければなりません。
行･列・ブロック内のすべてのセルとの重複チェックをするように変更しなければなりません。
さらに、より速く問題が解けるように様々な改良を加えていきますので、
改良効果が分かるように、
問題を解くのにかかった時間も計測できるように、
Private Sub CommandButton1_Click()を改善して下さい。
