VBA：Double类型与Decimal类型

Sub DataType()    For i = 0 To 100        t1 = t1 + 0.1        t2 = t2 + CDec(0.1)        Debug.Print "Double=" & t1 & "    Decimal=" & t2    NextEnd Sub

结果：

Double=.1    Decimal=.1Double=.2    Decimal=.2Double=.3    Decimal=.3Double=.4    Decimal=.4Double=.5    Decimal=.5Double=.6    Decimal=.6Double=.7    Decimal=.7Double=.8    Decimal=.8Double=.9    Decimal=.9Double=1    Decimal=1Double=1.1    Decimal=1.1Double=1.2    Decimal=1.2Double=1.3    Decimal=1.3Double=1.4    Decimal=1.4Double=1.5    Decimal=1.5Double=1.6    Decimal=1.6Double=1.7    Decimal=1.7Double=1.8    Decimal=1.8Double=1.9    Decimal=1.9Double=2    Decimal=2Double=2.1    Decimal=2.1Double=2.2    Decimal=2.2Double=2.3    Decimal=2.3Double=2.4    Decimal=2.4Double=2.5    Decimal=2.5Double=2.6    Decimal=2.6Double=2.7    Decimal=2.7Double=2.8    Decimal=2.8Double=2.9    Decimal=2.9Double=3    Decimal=3Double=3.1    Decimal=3.1Double=3.2    Decimal=3.2Double=3.3    Decimal=3.3Double=3.4    Decimal=3.4Double=3.5    Decimal=3.5Double=3.6    Decimal=3.6Double=3.7    Decimal=3.7Double=3.8    Decimal=3.8Double=3.9    Decimal=3.9Double=4    Decimal=4Double=4.1    Decimal=4.1Double=4.2    Decimal=4.2Double=4.3    Decimal=4.3Double=4.4    Decimal=4.4Double=4.5    Decimal=4.5Double=4.6    Decimal=4.6Double=4.7    Decimal=4.7Double=4.8    Decimal=4.8Double=4.9    Decimal=4.9Double=5    Decimal=5Double=5.1    Decimal=5.1Double=5.2    Decimal=5.2Double=5.3    Decimal=5.3Double=5.4    Decimal=5.4Double=5.5    Decimal=5.5Double=5.6    Decimal=5.6Double=5.7    Decimal=5.7Double=5.8    Decimal=5.8Double=5.9    Decimal=5.9Double=5.99999999999999    Decimal=6Double=6.09999999999999    Decimal=6.1Double=6.19999999999999    Decimal=6.2Double=6.29999999999999    Decimal=6.3Double=6.39999999999999    Decimal=6.4Double=6.49999999999999    Decimal=6.5Double=6.59999999999999    Decimal=6.6Double=6.69999999999999    Decimal=6.7Double=6.79999999999999    Decimal=6.8Double=6.89999999999999    Decimal=6.9Double=6.99999999999999    Decimal=7Double=7.09999999999999    Decimal=7.1Double=7.19999999999999    Decimal=7.2Double=7.29999999999999    Decimal=7.3Double=7.39999999999999    Decimal=7.4Double=7.49999999999999    Decimal=7.5Double=7.59999999999999    Decimal=7.6Double=7.69999999999999    Decimal=7.7Double=7.79999999999999    Decimal=7.8Double=7.89999999999999    Decimal=7.9Double=7.99999999999999    Decimal=8Double=8.09999999999999    Decimal=8.1Double=8.19999999999999    Decimal=8.2Double=8.29999999999999    Decimal=8.3Double=8.39999999999999    Decimal=8.4Double=8.49999999999999    Decimal=8.5Double=8.59999999999999    Decimal=8.6Double=8.69999999999999    Decimal=8.7Double=8.79999999999998    Decimal=8.8Double=8.89999999999998    Decimal=8.9Double=8.99999999999998    Decimal=9Double=9.09999999999998    Decimal=9.1Double=9.19999999999998    Decimal=9.2Double=9.29999999999998    Decimal=9.3Double=9.39999999999998    Decimal=9.4Double=9.49999999999998    Decimal=9.5Double=9.59999999999998    Decimal=9.6Double=9.69999999999998    Decimal=9.7Double=9.79999999999998    Decimal=9.8Double=9.89999999999998    Decimal=9.9Double=9.99999999999998    Decimal=10Double=10.1    Decimal=10.1