用VB子过程 算sin(x) 为啥总是不对啊啊T TPrivate Sub Command1

问题补充：

用VB子过程,算sin(x),为啥总是不对啊啊T TPrivate Sub Command1

答案：

楼主程序写得不错,但是有一些小问题

d = 1:s = 0:a = 1

For i = 1 To n

For j = 1 To (2 * i - 1)

d = d * jNext j这里d的初值放的位置有问题,应该像下面这样放

还有If i = n And a 应该改成If i = n And abs（a） 其中的差别你用sin（2,3.14）对比一下就知道了.

经过测试sin（n,3.14）当n>6后,其值趋于正值且精确度高.

如sin（7,3.14）=1.61353113944622E-03=1.61353*10^(-3)

嗯 就这样吧!满意请给分,哈哈!