@ 主な変数
ｎ（８） ３×３の９ますの今の数字（表示用）
ｎｎ（８） ３×３の９ますの最初の数字（「再開」用）
ｓ（８、１） コンピュータの手（「解答例」用）
８・・手の回数
１・・０が行（列）
１がたす数字
ｍ（２０、１） 人間の手（「１つ前」用）
８・・手の回数
１・・０が行（列）
１がたす数字
ｋ 人間の手の回数
ｓｔｐ ステップの数
ｔ（７、２） 行（列）を決める数字から、３つのますの数字を求 めるための配列
７・・８つの行（列） （８方向）
２・・３つのます
ｍｕ 行（列）を決める数字 （８方向−むき）
ｔａ たす数字
A サブルーチンの説明
−−−−−−−Ｆｏｒｍ１−−−−−−−
Ｆｕｋａ ボタンやテキストをクリックしても反応しないようにする。（最初とゲームクリア時）
ｋａｎｏｕ ボタンをクリックして反応するようにする。
(ゲーム「開始」「再開」時）
ｋｅｋｋａ クリアできたかの判断と、できたときのメッセージ
回数に１を加え表示する。
ｓｉｒｏ ３×３の９ますのバックカラーをすべて白にする。
Ｆｏｒｍ＿Ｌｏａｄ プログラム実行のとき、最初に実行されるゲーム画面の作成、初期値設定
ｍ１＿Ｃｌｉｃｋ メニューの「ゲーム」クリック時に実行される。「再開」できるようにするかしないかを決めている。
ｍ１ａ＿Ｃｌｉｃｋ サブメニュー「開始」クリック時に実行される。３×３の９ますの数字を決めている。
ｍ１ｂ＿Ｃｌｉｃｋ サブメニュー「再開」クリック時に実行される。９ますの最初の数字を入力している。
ｍ１ｃ＿Ｃｌｉｃｋ サブメニュー「終了」クリック時に実行される。
ｍ３＿Ｃｌｉｃｋ メニュー「ヘルプ」クリック時に実行される。「１つ前」「解答例」ができるかできないかを決めている。
ｍ３ａ＿Ｃｌｉｃｋ サブメニュー「１つ前」クリック時に実行される。１つ前の手に戻し、回数も１つ減らして表示する。
ｍ３ｂ＿Ｃｌｉｃｋ サブメニュー「解答例」クリック時に実行される。解答例を表示し、コメントも表示する。
ｍ３ｃ＿Ｃｌｉｃｋ サブメニュー「説明」クリック時に実行される。２つめのフォームを表示する。
ｍｕｋｉ＿Ｃｌｉｃｋ 列（行）を決める８つのボタンのどれかがクリックされたとき実行される。ますの色を変更する。
ｓｔ＿Ｃｌｉｃｋ サブメニュー「ステップ１」から「ステップ８」のどれかがクリックされたとき実行される。チェックの記号の場所を変更する。
ｔａｓｕ＿Ｃｌｉｃｋ 「１」から「９」の足す数のボタンのどれかがクリックされたとき実行される。その数字を決めた行（列）に加算し、１０でわったあまりを表示する。回数が２０回を超えると「再開」するように表示する。
−−−−−−−Ｆｏｒｍ２−−−−−−−
ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ ボタン「戻る」がクリックされたとき実行される。フォーム２（説明）を閉じて、フォーム１（ゲーム）に戻る。
Ｆｏｒｍ＿Ｌｏａｄ フォーム２の最初に実行される。フォーム２の画面作成。
B メニュー
ゲーム ｍ１
開始 ｍ１ａ
再開 ｍ１ｂ
− ｓ１
終了 ｍ１ｃ
ステップ ｍ２ ＜インデックス＞
ステップ１ ｓｔ ０
ステップ２ ｓｔ １
ステップ３ ｓｔ ２
ステップ４ ｓｔ ３
ステップ５ ｓｔ ４
ステップ６ ｓｔ ５
ステップ７ ｓｔ ６
ステップ８ ｓｔ ７
ヘルプ ｍ３
１つ前 ｍ３ａ
解答例 ｍ３ｂ
− ｓ２
説明 ｍ３ｃ
C 改造のアドバイス
Ｖｉｓｕａｌ Ｂａｓｉｃ Ｖ４．０（３２ｂｉｔ）で作りましたが、
Ｐｒｉｖａｔｅ Ｓｕｂ ＊＊＊＊＊（ ）
というところを
＝＞ Ｓｕｂ ＊＊＊＊＊（ ）
というように、Ｐｒｉｖａｔｅをとれば、Ｖｅｒ２．０でも実行できると思います。（Ｖｅｒ２．０のテキストで勉強したとき、そのコードにＰｒｉｖａｔｅをつけて、Ｖｅｒ４．０で実行できていたので、逆もできると思います。）
もう１つフォームを付け加えて、ステップの最高記録やｂｅｓｔ１０などを入力したり、表示したりするといいかもしれない。
音楽がさみしいので、それを付け加えるといいです。