VBA Double类型变量溢出

Question

Sub Test()
    Dim Num1 As Integer, Num2 As Integer, Result As Double
    Num1 = 10
    Num2 = 20
    Result = Num1 / Num2
    MsgBox Result
End Sub

如上所示，将Result定义为Double类型，Num1 / Num2计算结果应为0.5，但运行代码报错Run-time error '6': Overflow。

版本信息：MacOS Catalina 10.15.7，Excel for Mac 16.47.1，VBA 7.1

Answer 1

建议定义时就定义为Double

或者：

Result = Num1 * 1.0 / Num2

通过乘1.0把数据强制转换成浮点