第１話 第３講第６話プログラムの問題解明に向けての第２歩
を実現するプログラム例
Private Sub CommandButton1_Click()
・
'hyouji1
hyouji2
・
End Sub
・
・
・
Sub hyouji() '問題表示プロシージャ
Dim i As Integer
For i = 0 To hintosu - 1
Cells(5 + y(i), 2 + x(i)) = p(y(i), x(i))
Next
End Sub
Sub hyouji2() '各セル候補数字表示プロシージャ
Dim i As Integer
For i = 0 To n * n - 1
If p(y(i), x(i)) = 0 Then
Cells(15 + y(i), 2 + x(i)) = mx(y(i), x(i))
Else
Cells(15 + y(i), 2 + x(i)) = "＊"
End If
Next
End Sub
・
・
・
（変更部分だけ表示）
参考ダウンロード添付ファイル
第32講第６話方式の何が問題か分かりますか。
考える材料として、第30講第５話の
参考ダウンロード添付ファイル
を開いて
として実行してみましょう。
（わかりやすくするために、
手作業で罫線を付け加え、
センタリングしてあります。）
この図と
を見比べると、問題が見えてきます。
考えて下さい。
ヒントは、
はセルの入力順を示しているということです。
