VBA Double类型变量溢出

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

建议定义时就定义为Double

或者:

Result = Num1 * 1.0 / Num2

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