質問編集履歴
3
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -6,7 +6,7 @@
|
|
|
6
6
|
|
|
7
7
|
|
|
8
8
|
|
|
9
|
-
Dim value
|
|
9
|
+
Dim value,count
|
|
10
10
|
|
|
11
11
|
|
|
12
12
|
|
2
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -16,7 +16,7 @@
|
|
|
16
16
|
|
|
17
17
|
if value < 5 then
|
|
18
18
|
|
|
19
|
-
Inputbox("値を5以上で入力してください"）
|
|
19
|
+
value=cint(Inputbox("値を5以上で入力してください"）)
|
|
20
20
|
|
|
21
21
|
|
|
22
22
|
|
1
脱字削除
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -43,7 +43,3 @@
|
|
|
43
43
|
|
|
44
44
|
|
|
45
45
|
WScript.Quit
|
|
46
|
-
|
|
47
|
-
|
|
48
|
-
|
|
49
|
-
【追記】
|