神马品牌网南京最好的国际学校:高分求解VB编程问题
来源：百度文库 编辑：神马品牌网 时间：2024/05/12 18:53:47
编个程序表示sinX＝X-X^3/3!+X^5/5!-X^7/7!+......+(-1)^(n-2)*X^(2n-3)/(2n-3)!-(-1)^(n-1)*X^(2n-1)/(2n-1)!
用一个程序表示sinX等于什么，答案相当于已经告诉了，就是要用程序写出来。越详细越好
用一个程序表示sinX等于什么，答案相当于已经告诉了，就是要用程序写出来。越详细越好
Dim sinx, x, fenzi, fenmu, fuhao, item As Double
Dim mystr As String
mystr = InputBox("为了求sin(x),请输入x:", "输入")
If (mystr = "") Then Exit Sub
x = Val(mystr)
n = 1
fenzi = x
fenmu = 1
sinx = x
fuhao = 1
Do
n = n + 2
fenmu = fenmu * (n - 1) * n
fenzi = fenzi * x * x
fuhao = -1 * fuhao
item = fuhao * fenzi / fenmu
sinx = sinx + item
If Abs(item / sinx) < 0.0000000001 Then Exit Do
Loop
mystr = "计算结果sin(x)=" + str(sinx)
mystr = mystr + vbCr + "直接函数计算sin(x)=" + str(sin(x))
MsgBox (mystr)
很简单得吗，用回朔法吗
太多了!不好意思!谁能说说回朔法是什么意思吗?