回答編集履歴
1
ミス
answer
CHANGED
|
@@ -1,10 +1,10 @@
|
|
|
1
1
|
```vba
|
|
2
2
|
|
|
3
3
|
Sub tes()
|
|
4
|
-
Dim a As
|
|
4
|
+
Dim a As Currency
|
|
5
|
-
Dim b As
|
|
5
|
+
Dim b As Currency
|
|
6
|
-
a =
|
|
6
|
+
a = 0.8 + 0.4
|
|
7
|
-
b =
|
|
7
|
+
b = 1.2
|
|
8
8
|
If a = b Then
|
|
9
9
|
MsgBox "同じ"
|
|
10
10
|
Else
|
|
@@ -14,4 +14,4 @@
|
|
|
14
14
|
|
|
15
15
|
```
|
|
16
16
|
|
|
17
|
-
|
|
17
|
+
型の宣言をCurrencyにして下さい。
|