用VB子过程,算sin(x),为啥总是不对啊啊T TPrivate Sub Command1_Click()Picture1.ClsDim n As Integer, x As Singlen = Val(Text1.Text)x = Val(Text2.Text)Picture1.Print mysin(n, x)End SubPrivate Function mysin(ByVal n%, ByVal x!) As DoubleDim d

来源：学生作业帮助网编辑：作业帮时间：2024/05/07 12:00:23

用VB子过程,算sin(x),为啥总是不对啊啊T TPrivate Sub Command1_Click()Picture1.ClsDim n As Integer, x As Singlen = Val(Text1.Text)x = Val(Text2.Text)Picture1.Print mysin(n, x)End SubPrivate Function mysin(ByVal n%, ByVal x!) As DoubleDim d
用VB子过程,算sin(x),为啥总是不对啊啊T T
Private Sub Command1_Click()
Picture1.Cls
Dim n As Integer, x As Single
n = Val(Text1.Text)
x = Val(Text2.Text)
Picture1.Print mysin(n, x)
End Sub
Private Function mysin(ByVal n%, ByVal x!) As Double
Dim d As Double, s As Double
d = 1: s = 0: a = 1
For i = 1 To n
For j = 1 To (2 * i - 1)
d = d * j
Next j
a = ((-1) ^ (i - 1)) * (x ^ (2 * i - 1)) / d
If i = n And a < 0.00001 Then Exit For
s = s + a
Next i
mysin = s
End Function
比如我用n=15 x=3.14 可算出来sinx竟然是-1.569……
改了好几遍,应该没错了呀.
只有20分,全给了.谢谢啊 .

用VB子过程,算sin(x),为啥总是不对啊啊T TPrivate Sub Command1_Click()Picture1.ClsDim n As Integer, x As Singlen = Val(Text1.Text)x = Val(Text2.Text)Picture1.Print mysin(n, x)End SubPrivate Function mysin(ByVal n%, ByVal x!) As DoubleDim d
楼主程序写得不错,但是有一些小问题
d = 1:s = 0:a = 1
For i = 1 To n
For j = 1 To (2 * i - 1)
d = d * j
Next j
这里d的初值放的位置有问题,应该像下面这样放
还有
If i = n And a < 0.00001 Then Exit For
应该改成
If i = n And abs（a） < 0.00001 Then Exit For
其中的差别你用sin（2,3.14）对比一下就知道了.
经过测试sin（n,3.14）当n>6后,其值趋于正值且精确度高.
如sin（7,3.14）=1.61353113944622E-03=1.61353*10^(-3)
嗯就这样吧!满意请给分,哈哈!

用VB子过程,算sin(x),为啥总是不对啊啊T TPrivate Sub Command1_Click()Picture1.ClsDim n As Integer, x As Singlen = Val(Text1.Text)x = Val(Text2.Text)Picture1.Print mysin(n, x)End SubPrivate Function mysin(ByVal n%, ByVal x!) As DoubleDim d 为啥最近总是不下雨? 为啥我意志总是不坚定啊一道极限题（关联三角函数）lim（x—>π/3)(sinx-sinπ/3)/(x-π/3)lim(x—>0)(cosx-1)/x为啥我算这总是无穷大? vb分别用子过程和子函数编写求两个数的最大公约数（算法用辗转相减法） f(x)=cos(√3x+a)的导数怎么求我就是想知道这个过程 -sin(√3x+a)(√3x+a)' 怎么来的！TAT为什么f'(x)不是-sin(√3x+a) 如果是复合函数f(x)=cos(√3x+a)=cos√3xcosa+sin√3xsina∴f'(x)=-sin√3xcosa+cos√3xsina为啥不 VB子过程调用与函数过程调用有什么区别?分别举一个例子说明函数过程与子过程的定义与调用,vb教师回答在VB运算中,4^5+SIN(X+1)是算4^5先,还是X+1先? False ,sin x,sin (x)是不是VB 合法的变量名? Vb中,x是实数,对x的第三位小数四舍五入为啥是0.01*int（100*x+0. 关于无籽西瓜的培育为啥不直接用生长素刺激二倍体西西瓜未受精雌蕊不是也能得到无子西瓜么?何必内麻烦三倍体西瓜算不算是新物种？ (Cos[x] + x Sin[x])^(1/x^2)在mathematic中画出x在-20到20内的图像!在mathematic中画出函数(Cos[x] + x Sin[x])^(1/x^2),自变量x在-20到20内的图像,我用的是4.0的版本,总是报错,不知道怎么回事,这个Plot语句哪里错 VB用循环来做.用多项式近似公式计算函数sin(x)的值(- π ≤x≤π).最后一项的绝对值小于10-6时结结束计用VB做.最好能大概解释下为什么. VB,求过程解释! VB,知道三角函数,怎么用VB算度数? 用VB编写函数过程,求任意正整数各位数字之和是用VB编写啊, 用vb计算1/2-1/3+1/4-1/5+...+1/n,n是文本框任意输入的值分别用自定义子过程和自定义函数过程写出代数式SIN(X^2+2)/COS(57度)的VB表达式