回答編集履歴
1
誤記訂正
test
CHANGED
|
@@ -14,15 +14,15 @@
|
|
|
14
14
|
|
|
15
15
|
msgbox "正解です"
|
|
16
16
|
|
|
17
|
-
count = count + 1
|
|
17
|
+
count = count + 1 ' 正答数にカウント
|
|
18
18
|
|
|
19
|
-
elseif isempty(ans) then
|
|
19
|
+
elseif isempty(ans) then ' 問題をやめる
|
|
20
20
|
|
|
21
21
|
msgbox "「キャンセル」または閉じるボタンがクリックされました。プログラムを終了します。"
|
|
22
22
|
|
|
23
23
|
WScript.Quit
|
|
24
24
|
|
|
25
|
-
else
|
|
25
|
+
else ' 不正解の場合
|
|
26
26
|
|
|
27
27
|
msgbox "不正解です"
|
|
28
28
|
|