Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
Dim e As Double
a = 7231.41
b = 1027.38
c = 4.1
d = -8244.1
e = -18.79
Dim h As Double
h = a + b + c + d
Debug.Print h
...全文
2899打赏收藏
如下代码,使用single或double类型数据结果都会出现误差
Dim a As Double Dim b As Double Dim c As Double Dim d As Double Dim e As Double a = 7231.41 b = 1027.38 c = 4.1 d = -8244.1 e = -18.79 Dim h As Double h = a + b + c + d Debug.Print h
Private Sub Command6_Click()
Dim a@
Dim b@
Dim c@
Dim d@
Dim e@
a = 7231.41
b = 1027.38
c = 4.1
d = -8244.1
e = -18.79
Dim h@
h = a + b + c + d
Debug.Print h
Private Sub Command1_Click()
Dim a As Currency
Dim b As Currency
Dim c As Currency
Dim d As Currency
Dim e As Currency
a = 7231.41
b = 1027.38
c = 4.1
d = -8244.1
e = -18.79
Dim h As Currency
h = a + b + c + d
Debug.Print h