求ＶＢ高手解問題 （高一程度）

Question

寫一個程式，輸入Ｘ的值，並計算ｅ^x

e^x = １＋Ｘ＋(ｘ^2) / 2! ＋(Ｘ^3) / 3! ＋........＋(Ｘ^n) / n!

(計算至 【(Ｘ^n) / n! 】 ＜１０^(-5) )　
　　　　　↑粗框地方要絕對值
　　　　　　
　　　　　　

Answer 1

這是 ex 函數的副程式
你祇要呼叫及傳入 x 值即可
例如 在主程式裡
Print Taylor(1)
就會印出 e 值
Public Function Taylor(x As Single) As Single
Dim d, y As Single
Dim n As Double
Dim i As Integer
i = 0
n = 1
y = 1
Taylor = 1
Do
i = i + 1
n = n * i ' 計算 n!
y = y * x ' 計算 xn
d = y / n ' 計算 xn/n!
Taylor = Taylor + d
Loop Until Abs(d) < 0.00001
End Function
如果有問題, 請來函討論. 不然, 我可能會錯失你再補充的疑點.

Answer 2

我幫你寫了一個範例~~
妳去下載來看看吧~~
http://w1.loxa.com.tw/ahong/knowledge/kn002.zip

====================================================


x = Val(Text1)
i = 0
y = 1

Do
k = 1
i = i + 1
For j = 1 To i
k = k * j
Next j
p = (x ^ i) / k
y = y + p
Loop While p > 10 ^ (-5) Or p < (-1) * 10 ^ (-5)

Label3 = y