请教一个高难度问题

Question

小弟查了很多资料都有说vb对 double 型的计算有局限，要溢出。小弟的程序是这样的dim A as double 
dim B as double 
A=3.22
B=3.4if (A-B)/B< -0.01 then  <<<<在这里就会溢出
msgbox "ok"
end if 请教有解决办法吗？谢谢。

Answer 1

没溢出
试下：
Private Sub Form_Load()
    Dim A As Double
    Dim B As Double
    A = 1.4
    B = 1.6
    If (A - B) / B < -0.125 Then 
        MsgBox "ok"
    End If
End SubPrivate Sub Form_Load()
    Dim A As Double
    Dim B As Double
    A = 1.4
    B = 1.6
    If val(A - B) / val(B) < -0.125 Then 
        MsgBox "ok"
    End If
End Sub

Answer 2

厉害，一招就解决了。
但是我以前记得加了val会很影响速度，不知道是不是真的。