[問題] 計算自然數e的近似值

[Redfireant (紅火蟻)]

Private Sub Form_Activate()
Dim n As Currency, e As Double
Dim d As Double, i As Integer
 n = 1: e = 1: d = 1
 Do While d >= 0.0000000000001  '只要1/n!大於或等於1E-13
                                '就繼續執行迴圈
   i = i + 1                    '算出新的n值
   n = n * i                    '算出新的n!值
   d = 1 / n                    '算出1/n!
   e = e + d
 Loop
 Label1 = "e = " & e
End Sub


我的問題是為什麼n是Currency e是Double d是Double
要怎麼判斷什麼時候用Currency 什麼時候用Double

我把e和d都改成Currency 結果有溢位的問題
什麼情形下才會發生溢位

謝謝

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 203.73.233.234