- 40 名前：1/2 [2010/04/18(日) 02:05:26 ]
- 以下のようなランダム出題によるYES,NOクイズをつくりました。
しかし、無駄な記述が多すぎてクイズが１００や２００になったときには処理が遅くなる気がするのと、
もっと見易い書き方ができるような気がします。
（例えばいちいち問題文に""をつけるのは面倒くさいので、ans部分で一括してつけるとか）
修正できる方、修正お願いします。
また三択以上の問題（例.a.明智光秀、b.豊臣秀吉、織田信長）にするときの記述も思いつかないので、
そちらも教えてください。
Dim a As String
Dim b As Integer
Dim c As Integer
b = Int(3 * Rnd + 1)
If b = 1 Then
a = "本能寺の変を起こしたのは明智光秀である"
c = 0
ElseIf b = 2 Then
a = "関ヶ原の戦いは1500年に起こった"
c = 1
Else
a = "平城京が移転したのは710年である"
c = 0
End If
ans = MsgBox((a + "?"), vbYesNo, "質問")
|
 |
