作者ruby791104 (阿年：）)
看板Visual_Basic
标题[.NET] VB 2008 计算Exponential Function的程式写法
时间Mon Nov 2 12:51:31 2009
我要写一个可以计算exponential function的程式，
exponential公式是：e^x = 1 + x + x^2/2! + x^3/3! + x^4/4! + …
以下是我写的程式，
我知道错误的地方应该蛮多的，
但是我不知道从何改起＠＠，
拜托各位大大帮帮忙！
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, number_of_terms, i, n As Integer
Dim result, factorial As Double
x = TextBox1.Text
number_of_terms = TextBox2.Text
n = number_of_terms
If RadioButton1.Checked Then
factorial = 1
For i = 1 To n
factorial = factorial * i
Next
result = x ^ (n - 1) / factorial
Label4.Text = result
End If
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.240.186.200
1F：推 Marty:有内建函式Math.exp()可以用唷..你要不要试试看?? 11/02 13:09
2F：→ MOONRAKER:这应该是一种作业或练习吧，才要写逼近法 11/02 15:18
3F：→ MOONRAKER:你现在只有写一项，再用个for让他自己算到n项就得了 11/02 15:18
4F：→ MOONRAKER:记得每次算出来结果要累加起来 11/02 15:19
5F：→ ruby791104:TO：MOONRAKER大大 11/02 21:09
6F：→ ruby791104:真的很谢谢你唷，让我开窍了！ 11/02 21:10
7F：→ ruby791104:自己写出来的感觉真好ＸＤ 11/02 21:18
8F：→ MOONRAKER:有写出来就好… 11/02 23:37
9F：→ MOONRAKER:也可以10^4-10^7次迭代算出的值和内建exp()比较精确度 11/02 23:41