第13講 プロシージャの再帰的使用による数独の自動生成
第６話 数独解答自動生成ソフトにランダム要素を組み込む

コード改良部分
Private Sub CommandButton1_Click()
　　Dim n As Byte, cn As Integer, x(10, 10) As Byte
　　Rows("5").Select
　　Selection.ClearContents
　　Range("A1").Select
　　Randomize (Timer)
　　n = 9
　　cn = 0
　　Call f(0, cn, n, x())
End Sub
Sub f(g As Byte, cn As Integer, n As Byte, x() As Byte)
　　Dim h As Byte, i As Byte, j As Byte, k As Byte, a As Byte, s As Integer, gi As Byte, gj As Byte
　　Dim ji As Byte, jj As Byte, hh As Byte, w As Byte, ii As Byte, iii As Byte
　　a = cn Mod 10
　　s = Int(cn / 10)
　　gi = Int(g / n)
　　gj = g Mod n
　　ii = Int(n * Rnd)
　　For i = 1 To n
　　　　iii = (i - 1 + ii) Mod n
　　　　x(gi, gj) = iii + 1
　　　　　　　　・・・
　　　　　　　　・・・
　　　　　　　　・・・
参考ファイル

解説
　　Randomize (Timer)
は現在の時刻をシード値にしています。
シード値とは、乱数の種という意味で
ランダムの系列を変更するための値です。
これを入れないと、
毎回同じ順番で乱数が現れてしまいます。
現在時刻をシード値（乱数の種）にしておくと、
毎回異なる乱数系列になります。

さて、今回の変更は、始まりこそランダムですが、
７→８→９→１→２→３→４→５→６
のように１つずつ動いています。
実は、動き方は
７→９→２→４→６→８→１→３→５
と２つ飛びで動いてもすべてを網羅できます。
また、
７→２→６→１→５→９→４→８→３
と４つ飛びで動いてもすべて網羅できます。
ただし、３つ飛びは
７→１→４→７→１→４→７→１→４
と動いてしまいすべてを網羅できません。
いくつ飛ぶのかを９未満とすると、
すべてを網羅する動き方をする飛び方を全部当ててみてください。
答えは、３０行ほど下。





















１つ飛び、２つ飛び、４つ飛び、 ５つ飛び、７つ飛び、８つ飛び

７→８→９→１→２→３→４→５→６（１つ飛び）
７→９→２→４→６→８→１→３→５（２つ飛び）
７→２→６→１→５→９→４→８→３（４つ飛び）
７→３→８→４→９→５→１→６→２（５つ飛び）
７→５→３→１→８→６→４→２→９（７つ飛び）
７→６→５→４→３→２→１→９→８（８つ飛び）

の６通りです。

だめな飛び方は３つ飛び、６つ飛びです。
可能のな飛び方は（ｎ、９）が互いに素な場合のみです。
互いに素とは、共通の約数が１しかない状態をいいます。

６通りの飛び方のどれを取るかも、
ランダムに変更するにはどうしたらよいですか。

第５話へ　第７話へ

初心者のためのc++ vc++ c言語 入門 基礎から応用までへ
初心者のための excel 2007 2010 2013 vba マクロ 入門 基礎から応用まで
初心者のための世界で一番わかりやすいVisual C++入門基礎講座
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
vb講義トップへ
ＶＢ講義基礎へ
専門用語なしのC++入門へ
専門用語なしのJava入門へ
専門用語なしのVBA入門

数独のページ
魔方陣のページ
数学研究室に戻る
本サイトトップへ