閑話休題
前回までのあらすじ
クイズの問題を「ランダムで出題する」というロジックを
組む場合、単純に「発生させた乱数の番号の問題を出題」
とすると、仮に１が連続して10回発生した場合、１問目の
問題が10回重複して出題されてしまうという問題が発生。
で、一度出題した問題は出題対象から外すため、フラグを
用意して、「もう出題しちゃいましたよ」フラグが立って
いる番号は無視し、再度乱数を発生させるとした場合には
レスポンスが低下するという別の問題が発生した。
んでだ、考え方を変え、ロジックをごっそり変更して見た。
今回はそんなハナシ。
えーとトランプをイメージして下さい。
クイズの問題をカードに置き換えて、スペードのＡから
Ｋまで13枚のカードをランダムで表示するというプログラムを
組むとした場合、今までのやり方は下記の様な感じで、
スペードとハート２組のスートを用意して…
スペード（表示するカード）
Ａ ２ ３ ４ ５ ６ ７ ８ ９ 10 Ｊ Ｑ Ｋ
ハート（表示を制御するカード）
Ａ ２ ３ ４ ５ ６ ７ ８ ９ 10 Ｊ Ｑ Ｋ
乱数で１が発生した場合、スペードのＡを表示。さらに
ハートのＡを裏返す。
スペード（表示するカード）
Ａ ２ ３ ４ ５ ６ ７ ８ ９ 10 Ｊ Ｑ Ｋ
ハート（表示を制御するカード）
□ ２ ３ ４ ５ ６ ７ ８ ９ 10 Ｊ Ｑ Ｋ
２枚目のカードを表示する際も乱数を発生させ、その
番号のハートのカードを確認。表向きならスペードの
カードを表示しハートのカードを裏返す、裏面が表示
（既に表示したカード）されていれば、乱数発生に戻る。
この方法の場合、全てのカードを表示させるのに最短では
13回の乱数を発生させれば終わりだが、最長は…無限。
人間様がこれと同じコトを行なう場合、当然そんなことは
しない…よね？
まずはトランプを裏返してシャッフルし、先頭から順に
めくって行くんじゃないかな？で13枚めくっておしまい。
それをプログラムにすれば良いんじゃないの？
まずはＡからＫまでのカードを用意
Ａ ２ ３ ４ ５ ６ ７ ８ ９ 10 Ｊ Ｑ Ｋ
乱数を13回発生させ、その回数の番号のカードと発生した
乱数の番号のカードを入れ替える。
最終的にシャッフルされたカードを、１番目から順に表示する。
ハイ、発生させる乱数は13回のみ、しかもシャッフルする
のは最初の１回だけなので、表示ごとのレスポンスの低下も
当然なし。
仮に１が連続して13回発生したとしても同一カードが重複して
表示される心配も無し。
えーと、１が連続して13回発生した場合をシミュレートして
みますか…。
１回目に１が発生。（１枚目と１枚目を入れ替え）変化なし
Ａ ２ ３ ４ ５ ６ ７ ８ ９ 10 Ｊ Ｑ Ｋ
２回目に１が発生。（２枚目と１枚目を入れ替え）
２ Ａ ３ ４ ５ ６ ７ ８ ９ 10 Ｊ Ｑ Ｋ
３回目に１が発生。（３枚目と１枚目を入れ替え）
３ Ａ ２ ４ ５ ６ ７ ８ ９ 10 Ｊ Ｑ Ｋ
４回目に１が発生。（４枚目と１枚目を入れ替え）
４ Ａ ２ ３ ５ ６ ７ ８ ９ 10 Ｊ Ｑ Ｋ
…13回目には…まぁシャッフルされてないのと同じになるんだけど、
あくまで極端な例（レアケース）なんでＯＫってことで。
このトランプの考えの、カードの部分をクイズ問題に置き換えれば
どうすれば良いか判るよね。
Dim numArray() As Integer '配列を用意します
Dim workNum As Integer
Dim i As Integer
Dim j As Integer
'ここにファイルに格納されている問題の数を
'取得する処理を記述する。
lowerbound = 1
upperbound = ？？？ '取得した問題数を代入
ReDim numArray(lowerbound To upperbound)
Randomize
'配列に１から順に数値を格納する
For i = lowerbound To upperbound
numArray(i) = i
Next i
'i番目と発生した乱数番目の値を入れ替える
For i = lowerbound To upperbound
j = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
workNum = numArray(i)
numArray(i) = numArray(j)
numArray(j) = workNum
Next i
これでシャッフル完了。
あとは配列numArray()の先頭から最後までに格納されている番号の
問題を出題すればおしまい。
'配列を先頭から最後までなめる
For i = lowerbound To upperbound
'numArray(i)に格納されている数字番目の問題を読み込む
'ファイルのオープン部とかは割愛してるんでこのままでは動かないよ
Get #1, numArray(i), strQuestion
Next i
んでは今回はここまで。
