我调用Exp()函数总是报"实时错误'6'",如何解决啊?

Question

我的代码如下:Private Sub Command6_Click()
    Dim x As Double
  
    x = 0.015 * 107600
    x = Exp(x)
    Text20.Text = CStr(x)
    
End Sub
我每次运行都会报出:
实时错误 '6'
溢出这样的错误.我曾试过x取整再求 Exp的值,但还是溢出,这是什么原因造成的啊?有什么解决方法啊?请各位指教一下,谢谢.

Answer 1

x = 0.015 * 107600
得x=1614
而Exp(x)中x最大只能為：709.782712893
當然就會溢出了

Answer 2

Private Sub Command6_Click()
    Dim x As Double, y As Double, i As Long, L As Long
    L = 1000
    x = 0.015 * 107600
    y = Exp(1)
    y = y ^ (x - Log(10) * L)
    
    If y < 1 Or y >= 10 Then
        i = Log(y) / Log(10)
        y = y / (10 ^ i)
        If y < 1 Then
            y = y * 10
            i = i - 1
        End If
        If y >= 10 Then
            y = y / 10
            i = i + 1
        End If
        L = L + i
    End If
    
    Text20.Text = y & "E" & L
    
End Sub

Answer 3

DengXingJie(杰西) ( ) 信誉：99  2007-08-13 10:02:29  得分: 0  
 
 
   x = 0.015 * 107600
得x=1614
而Exp(x)中x最大只能為：709.782712893
當然就會溢出了
  
 

Answer 4

Private Sub Command6_Click()
Dim x As Double, y As Double, i As Long, L As Long
L = 1000
x = 0.015 * 107600
y = Exp(1)
y = y ^ (x - Log(10) * L)If y < 1 Or y >= 10 Then
i = Log(y) / Log(10)
y = y / (10 ^ i)
If y < 1 Then
y = y * 10
i = i - 1
End If
If y >= 10 Then
y = y / 10
i = i + 1
End If
L = L + i
End IfText20.Text = y & "E" & LEnd Sub