VB编程 题目如下 求大神解答!!!!

(2)编一个函数过程Mysin(x),求Mysin(x)=x/1-x3/3!+x5/5!-x7/7!+…+(-1)n-1*x2*n-1/(2*n-1)!。当第n项的值小于... (2)编一个函数过程Mysin(x),求Mysin(x)=x/1-x3/3!+x5/5!-x7/7!+…+(-1)n-1*x2*n-1/(2*n-1)!。当第n项的值小于10-5时结束,x为弧度。主调程序同时调用Mysin和标准函数sin,进行验证。
提示:
1.本题的关键是找部分级数和的通项,表示如下:
Ti+2=-1*Ti*x*x/((i+1)*(i+2)) i=1,3,5…
2.本题的形参为x,传值方式;函数的返回值是求得的部分级数和。
3.判断某一项的值是否达到精度,本题要使用Abs()函数,因为通项有正有负。
设计界面如下:
展开
 我来答
听不清啊
高粉答主

2014-05-13 · 说的都是干货,快来关注
知道顶级答主
回答量:7.8万
采纳率:89%
帮助的人:1.9亿
展开全部
所要求的程序贴上,请采纳:
Private Sub Command1_Click()
Dim x As Double
x = Val(Text1.Text)
Text2.Text = mysin(x)
Text3.Text = Sin(x)
End Sub

Function mysin(ByVal x As Double) As Double
Dim y As Double, t As Double
y = x
t = y
i = 1
Do
t = -t * x * x / ((i + 1) * (i + 2))
y = y + t
i = i + 2
Loop Until Abs(t) < 0.00001
mysin = y
End Function
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式