回答編集履歴
1
ミス
test
CHANGED
|
@@ -4,13 +4,13 @@
|
|
|
4
4
|
|
|
5
5
|
Sub tes()
|
|
6
6
|
|
|
7
|
-
Dim a As
|
|
7
|
+
Dim a As Currency
|
|
8
8
|
|
|
9
|
-
Dim b As
|
|
9
|
+
Dim b As Currency
|
|
10
10
|
|
|
11
|
-
a =
|
|
11
|
+
a = 0.8 + 0.4
|
|
12
12
|
|
|
13
|
-
b =
|
|
13
|
+
b = 1.2
|
|
14
14
|
|
|
15
15
|
If a = b Then
|
|
16
16
|
|
|
@@ -30,4 +30,4 @@
|
|
|
30
30
|
|
|
31
31
|
|
|
32
32
|
|
|
33
|
-
|
|
33
|
+
型の宣言をCurrencyにして下さい。
|