sin(x)=x-x³/3!+x⁵/5!-x⁷/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的值上有错误 请各位帮忙下~~~

不知道你要问的问题是什么？老感觉你最后那行错了，至少应改成“print x”
分母实现阶乘要用两个循环！