VB2008にて４択クイズ作成

質問

質問させていただきます。
現在VB2008にて4択クイズを作成しています。
以下のサイトを参考に作成しているのですが、不明な点がありますのでご回答お願い致します。

http://www.microsoft.com/japan/msdn/student/challengeV2/chap2_vb/

上記のページでは、Ｗｅｂ用？に開発されてるみたいで一部ないコントロールがあります。私はVB2008のwindowsアプリケーションフォームというテンプレートから開始しているのですが、これが問題なのでしょうか。
私の開発環境では「Literal」というコントロールが見当たりません。私が見落としているだけなのかも知れませんが。。

とりあえず、コントロールはURL先とほぼ同様にしています。テーブルの作成（テーブルの挿入の仕方も分かりませんでした)とLiteral、imageコントロールは省いています。
そして、プログラムの内容は最後の項の「さらに一歩進んだテクニック」のものをほとんどそのまま使っています。
以下にそのまま貼り付けます。

Public Class Form1
'正解のボタンを表す変数を定義
Dim Answer As Button
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
' 問題文を設定する
TextBox1.Text = "Web ブラウザと Web サーバーの間で Web ページなどをやり取りする際に用いられる通信プロトコルは？"
' 回答の選択肢を設定する
ButtonA.Text = "HTML"
ButtonB.Text = "HTTP"
ButtonC.Text = "XML"
ButtonD.Text = "URL"

' 正解のボタンを設定する
Answer = ButtonB

End Sub
Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonA.Click, ButtonD.Click, ButtonC.Click, ButtonB.Click
' 押されたボタンが正解のボタンかどうか調べる
Dim senderButton As Button = CType(sender, Button)
' 正解のボタンを赤くする
Answer.BackColor = System.Drawing.Color.Red

End Sub

End Class

以上です。

上記のプログラムに追加したい項目を挙げます。

１．問題文を複数用意し、ランダムに出題する。（ランダムに出題するという機能は乱数を使えば実現できるのはなんとなく分かるのですが、実際のプログラムが分かりません。

２．用意した問題全てを解答したら終わり。

以上のような流れにしたいのですが、実際にはどのようにプログラミングすれば良いのでしょうか？部分でも良いのでご指摘お願い致します。

回答No.3

AKARI0418

Private Question() As String = {"Web ブラウザと Web サーバーの間で Web ページなどをやり取りする際に用いられる通信プロトコルは？", _
"問２", "問３", "問４", "問５"}
Private AnswerValue() As String = {"HTML,HTTP,XML,URL,1", "答え１,答え２,答え３,答え４,3", _
"答え１,答え２,答え３,答え４,3", "答え１,答え２,答え３,答え４,3", _
"答え１,答え２,答え３,答え４,3"}
について説明すればもやもやも解消していただけることと思います。

配列に固定の文字列を設定しています。
今回はQuestionが問題文、AnswerValueが答えの組み合わせになります。
問題文と答えの組み合わせになりますのでどちらの変数も配列数が同じになるようにしてあります。

次は設定されている内容の説明です。
Questionは問題文がそのままの形で設定されています。

AnswerValueですが、ボタンAのTEXT,ボタンBのTEXT,ボタンCのTEXT,ボタンDのTEXT,答え(0～3,0=ボタンA,1=ボタンB)
といった構成になっています。
StringクラスのSpritメソッドを使用して配列に,区切りで格納して使用しています。
その部分にご指摘のように間違いがありました。

TextBox1.Text = Question(QuestionNum(NowQuestionNum))
Dim Answers() As String = AnswerValue(NowQuestionNum).Split(",")
となっていますが、同じでなければいけないはずのインデックスが異なっています。
QuestionはQuestionNum(NowQuestionNum)
AnswerValueはNowQuestionNum
これではだめですね。
Dim Answers() As String = AnswerValue(QuestionNum(NowQuestionNum)).Split(",")
としなくてはいけませんでした。
NowQuestionNumは現在の出題数-1が記録されています。
QuestionNumは出題する順番が設定されている配列です。

お礼

回答ありがとうございます。

＞配列に固定の文字列を設定しています。
今回はQuestionが問題文、AnswerValueが答えの組み合わせになります。
問題文と答えの組み合わせになりますのでどちらの変数も配列数が同じになるようにしてあります。

これは仮に変数が０の場合は1番最初の問題と1番最初の問題の選択肢が格納された部分を指すということになるんですよね。良く分かりました。

＞AnswerValueですが、ボタンAのTEXT,ボタンBのTEXT,ボタンCのTEXT,ボタンDのTEXT,答え(0～3,0=ボタンA,1=ボタンB)
といった構成になっています。
StringクラスのSpritメソッドを使用して配列に,区切りで格納して使用しています。

この部分も非常に分かりやすかったです。0～3とA～Dが対応して、4番目の部分に解答が格納されているわけですね。

そして、最後の説明ですが、問題と選択肢の変数のインデックスの値が違うためランダムな問題と選択肢が一致しなかったわけですね。
どの説明も非常に分かりやすく、とても参考になりました。

まだまだVBの構文やプログラム全般の知識が乏しいため、すべては理解できませんでしたが、今後プログラムを勉強しながら理解していきたいと思います。
今回は、細かな解説からサンプルプログラムまで本当にありがとうございました。
今後またお世話になることがあるかもしれませんが、その時はよろしくお願い致します。