Sub DataType()

    For i =  To

        t1 = t1 + 0.1

        t2 = t2 + CDec(0.1)

        Debug.Print "Double=" & t1 & "    Decimal=" & t2

    Next

End Sub

结果：

Double=.    Decimal=.

Double=.    Decimal=.

Double=.    Decimal=.

Double=.    Decimal=.

Double=.    Decimal=.

Double=.    Decimal=.

Double=.    Decimal=.

Double=.    Decimal=.

Double=.    Decimal=.

Double=    Decimal=

Double=1.1    Decimal=1.1

Double=1.2    Decimal=1.2

Double=1.3    Decimal=1.3

Double=1.4    Decimal=1.4

Double=1.5    Decimal=1.5

Double=1.6    Decimal=1.6

Double=1.7    Decimal=1.7

Double=1.8    Decimal=1.8

Double=1.9    Decimal=1.9

Double=    Decimal=

Double=2.1    Decimal=2.1

Double=2.2    Decimal=2.2

Double=2.3    Decimal=2.3

Double=2.4    Decimal=2.4

Double=2.5    Decimal=2.5

Double=2.6    Decimal=2.6

Double=2.7    Decimal=2.7

Double=2.8    Decimal=2.8

Double=2.9    Decimal=2.9

Double=    Decimal=

Double=3.1    Decimal=3.1

Double=3.2    Decimal=3.2

Double=3.3    Decimal=3.3

Double=3.4    Decimal=3.4

Double=3.5    Decimal=3.5

Double=3.6    Decimal=3.6

Double=3.7    Decimal=3.7

Double=3.8    Decimal=3.8

Double=3.9    Decimal=3.9

Double=    Decimal=

Double=4.1    Decimal=4.1

Double=4.2    Decimal=4.2

Double=4.3    Decimal=4.3

Double=4.4    Decimal=4.4

Double=4.5    Decimal=4.5

Double=4.6    Decimal=4.6

Double=4.7    Decimal=4.7

Double=4.8    Decimal=4.8

Double=4.9    Decimal=4.9

Double=    Decimal=

Double=5.1    Decimal=5.1

Double=5.2    Decimal=5.2

Double=5.3    Decimal=5.3

Double=5.4    Decimal=5.4

Double=5.5    Decimal=5.5

Double=5.6    Decimal=5.6

Double=5.7    Decimal=5.7

Double=5.8    Decimal=5.8

Double=5.9    Decimal=5.9

Double=5.99999999999999    Decimal=

Double=6.09999999999999    Decimal=6.1

Double=6.19999999999999    Decimal=6.2

Double=6.29999999999999    Decimal=6.3

Double=6.39999999999999    Decimal=6.4

Double=6.49999999999999    Decimal=6.5

Double=6.59999999999999    Decimal=6.6

Double=6.69999999999999    Decimal=6.7

Double=6.79999999999999    Decimal=6.8

Double=6.89999999999999    Decimal=6.9

Double=6.99999999999999    Decimal=

Double=7.09999999999999    Decimal=7.1

Double=7.19999999999999    Decimal=7.2

Double=7.29999999999999    Decimal=7.3

Double=7.39999999999999    Decimal=7.4

Double=7.49999999999999    Decimal=7.5

Double=7.59999999999999    Decimal=7.6

Double=7.69999999999999    Decimal=7.7

Double=7.79999999999999    Decimal=7.8

Double=7.89999999999999    Decimal=7.9

Double=7.99999999999999    Decimal=

Double=8.09999999999999    Decimal=8.1

Double=8.19999999999999    Decimal=8.2

Double=8.29999999999999    Decimal=8.3

Double=8.39999999999999    Decimal=8.4

Double=8.49999999999999    Decimal=8.5

Double=8.59999999999999    Decimal=8.6

Double=8.69999999999999    Decimal=8.7

Double=8.79999999999998    Decimal=8.8

Double=8.89999999999998    Decimal=8.9

Double=8.99999999999998    Decimal=

Double=9.09999999999998    Decimal=9.1

Double=9.19999999999998    Decimal=9.2

Double=9.29999999999998    Decimal=9.3

Double=9.39999999999998    Decimal=9.4

Double=9.49999999999998    Decimal=9.5

Double=9.59999999999998    Decimal=9.6

Double=9.69999999999998    Decimal=9.7

Double=9.79999999999998    Decimal=9.8

Double=9.89999999999998    Decimal=9.9

Double=9.99999999999998    Decimal=

Double=10.1    Decimal=10.1