VBA双精度变量Do循环异常：上限≥0.102时最后一次迭代不执行

问题出在双精度浮点数的二进制存储特性：像0.001这类十进制小数无法被二进制精确表示，每次累加都会产生微小的精度误差。当dblx多次累加0.001后，实际存储的值会和理论值（比如0.103）有偏差——可能会略大于0.103，导致dblx <= dbly的条件不成立，最后一次迭代被跳过。

给你三个可行的解决方案：

1. 用整数计数替代浮点数累加（最可靠） #

把所有数值放大为整数，通过整数运算避免浮点数误差，最后再转换回小数：

intx = 93 ' 对应0.093 * 1000
inty = 103 ' 对应0.103 * 1000

Do While intx <= inty
    dblx = intx / 1000.0
    "INSERT STATEMENT for dblx"
    intx = intx + 1
Loop

这种方法从根源上消除了浮点数精度问题，是优先推荐的方案。

2. 给循环条件添加容差 #

允许dblx和dbly之间存在极小的误差范围，确保最后一次迭代能执行：

dblx = 0.093
dbly = 0.103
tolerance = 0.000001 ' 可根据实际需求调整容差大小

Do While dblx <= dbly + tolerance
    "INSERT STATEMENT for dblx"
    dblx = dblx + 0.001
Loop

容差的大小要根据步长和数值范围调整，避免引入不必要的额外迭代。

3. 预先计算迭代次数，使用For循环 #

先算出需要执行的迭代次数，用整数循环控制逻辑，避免浮点数比较的误差：

dblx = 0.093
dbly = 0.103
stepSize = 0.001
' 计算迭代次数，用Round避免精度偏差
count = Round((dbly - dblx) / stepSize) + 1

For i = 0 To count - 1
    currentValue = dblx + i * stepSize
    "INSERT STATEMENT for currentValue"
Next

这种方法适合需要明确迭代次数的场景，同样能规避浮点数累加的问题。

内容的提问来源于stack exchange，提问作者Samwise VB