[求助]看一下这个问题`
sin(x)=x-x3/3!+x5/5!-x7/7!+……的值,项数从键盘上输入我写的代码如下
Private Sub Form_Activate()
Dim x&, fh%, n%, s&
n = InputBox("输入项数")
fh = 1
s = 1
x = 1
For i = 1 To n
x = x + (x ^ s / s) * fh
s = s + 2
fh = -fh
Next i
Print sin(x)
End Sub
但是这个代码不仅无法满足 分母的阶乘 而且总感觉X的值上有错误 请各位帮忙下~~~
