VB2008にて4択クイズ作成
質問させていただきます。
現在VB2008にて4択クイズを作成しています。
以下のサイトを参考に作成しているのですが、不明な点がありますのでご回答お願い致します。
http://www.microsoft.com/japan/msdn/student/challengeV2/chap2_vb/
上記のページでは、Web用?に開発されてるみたいで一部ないコントロールがあります。私は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
以上です。
上記のプログラムに追加したい項目を挙げます。
1.問題文を複数用意し、ランダムに出題する。(ランダムに出題するという機能は乱数を使えば実現できるのはなんとなく分かるのですが、実際のプログラムが分かりません。
2.用意した問題全てを解答したら終わり。
以上のような流れにしたいのですが、実際にはどのようにプログラミングすれば良いのでしょうか?部分でも良いのでご指摘お願い致します。
お礼
ありがとうございました