两段VBA代码出现溢出错误，调整数据类型仍无法解决求助

第一段代码 varr3_1 溢出原因及解决 #

• 问题根源：Single 是单精度浮点数，二进制无法精确表示十进制的0.2，导致循环变量x在迭代过程中出现精度误差。多次累加0.2后，x可能出现略大于2的异常值，加上Single精度有限，计算过程中会因精度累积触发溢出。
• 解决方法：将x和y的类型替换为Double（双精度浮点数），Double的精度远高于Single，可避免十进制小数的二进制表示误差：

Sub varr3_1()
    Dim x As Double
    Dim y As Double
    For x = 1 To 2 Step 0.2
        y = Sqr((x - 1) / (x + 1))
        Debug.Print x, y
    Next x
End Sub

第二段代码 varr3_3 溢出原因及解决 #

• 问题根源：存在两个核心问题：
  1. 死循环触发溢出：While (z > 1) 循环中，若Log(x) + Tan(2*x)的计算结果始终大于1，循环会无限执行，反复计算导致数值累积溢出。
  2. Tan函数的临界值突变：当2*x的取值接近π/2 + kπ（k为整数）时，Tan函数结果会趋近于无穷大，瞬间超出变量存储范围直接触发溢出。
• 解决方法：
  • 添加循环次数限制，避免死循环；
  • 将x替换为Double类型提升精度，减少触发Tan临界值的概率；
    示例修正代码：

Sub varr3_3()
    Dim x As Double
    Dim z As Double
    Dim loopCount As Integer
    For x = 3 To 8 Step 0.9
        z = 2
        loopCount = 0
        ' 限制循环最多执行100次，防止死循环
        While (z > 1) And loopCount < 100
            z = Log(x) + Tan(2 * x)
            Debug.Print z
            loopCount = loopCount + 1
        Wend
    Next x
End Sub

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