回答編集履歴
1
誤記訂正
answer
CHANGED
|
@@ -6,11 +6,11 @@
|
|
|
6
6
|
|
|
7
7
|
if ans = "call" then ' 正解の場合
|
|
8
8
|
msgbox "正解です"
|
|
9
|
-
count = count + 1
|
|
9
|
+
count = count + 1 ' 正答数にカウント
|
|
10
|
-
elseif isempty(ans) then
|
|
10
|
+
elseif isempty(ans) then ' 問題をやめる
|
|
11
11
|
msgbox "「キャンセル」または閉じるボタンがクリックされました。プログラムを終了します。"
|
|
12
12
|
WScript.Quit
|
|
13
|
-
else
|
|
13
|
+
else ' 不正解の場合
|
|
14
14
|
msgbox "不正解です"
|
|
15
15
|
end if
|
|
16
16
|
```
|