質問編集履歴
3
初心者マーク追加しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
File without changes
|
2
ソースコードにマークダウンを使い、視認性を向上させました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -3,6 +3,8 @@
|
|
|
3
3
|
中学生の英単語問題集を作っています。電話をする意のcallを問題にしたいのですが、callはステートメントとして使われているので問題にしようとしてそのまま使ってもコンパイルエラーが出てしまい自分の思うように使えません。以下のソースコードでcallをステートメントとして認識させず英単語の一つとして使用するにはどうすればよいでしょうか。
|
|
4
4
|
|
|
5
5
|
|
|
6
|
+
|
|
7
|
+
```VBScript
|
|
6
8
|
|
|
7
9
|
call=inputbox("電話をする")
|
|
8
10
|
|
|
@@ -24,6 +26,8 @@
|
|
|
24
26
|
|
|
25
27
|
end if
|
|
26
28
|
|
|
29
|
+
```
|
|
30
|
+
|
|
27
31
|
|
|
28
32
|
|
|
29
33
|
初心者なものであまりよくないソースコードの書き方かと思われますが、どなたかご教示いただければ幸いです。
|
1
ソースコードへのコメントを追加しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -6,19 +6,19 @@
|
|
|
6
6
|
|
|
7
7
|
call=inputbox("電話をする")
|
|
8
8
|
|
|
9
|
-
if call=call then ’inputboxの名前と英単語は同じ名前にしてあります。
|
|
9
|
+
if call=call then ’inputboxの名前と英単語は同じ名前にしてあります。こちらは正解の場合です。
|
|
10
10
|
|
|
11
11
|
msgbox "正解です"
|
|
12
12
|
|
|
13
|
-
count=count+1
|
|
13
|
+
count=count+1 ’正答数にカウントされます。
|
|
14
14
|
|
|
15
|
-
elseif isempty(call) then
|
|
15
|
+
elseif isempty(call) then ’問題をやめるときの処理です。
|
|
16
16
|
|
|
17
17
|
msgbox "「キャンセル」または閉じるボタンがクリックされました。プログラムを終了します。"
|
|
18
18
|
|
|
19
19
|
WScript.Quit
|
|
20
20
|
|
|
21
|
-
else
|
|
21
|
+
else ’不正解の場合です。
|
|
22
22
|
|
|
23
23
|
msgbox "不正解です"
|
|
24
24
|
|