小弟我调用Exp()函数总是报"实时异常'6'"怎么解决啊

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

Private   Sub   Command6_Click()
        Dim   x   As   Double
   
        x   =   0.015   *   107600
        x   =   Exp(x)
        Text20.Text   =   CStr(x)
       
End   Sub


我每次运行都会报出:
实时错误   '6 '
溢出

这样的错误.我曾试过x取整再求   Exp的值,但还是溢出,这是什么原因造成的啊?有什么解决方法啊?请各位指教一下,谢谢.



[解决办法]
x = 0.015 * 107600
得x=1614
而Exp(x)中x最大只能為：709.782712893
當然就會溢出了
[解决办法]
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

[解决办法]
DengXingJie(杰西) ( ) 信誉：99 2007-08-13 10:02:29 得分: 0


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



[解决办法]
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