VB程序题：编一个函数的过程 MySin(x)，求 MySin(x)=x/1

VB程序题：编一个函数的过程 MySin(x)，求 MySin(x)=x/1-x^3/3!+x^5/5!-x^7/7!+…+(-1)^(n-1)*x^(2*n-1)/(2n-1)!

当第n项的值小于5^(-5)时结束计算,x为弧度。 主要程序同时调用MySin和内部函数Sin,进行验证。

提示： 关键是找部分级数和的通项,通项表示如下:   T i+2  =  -1 * T i * x * x / ((i+1) * (i+2))        i = 1,3,5,7,……

解题，在窗体画三个按钮，示意图见下图，代码如下： Dim x! Private Sub Command1_Click()     Print "调用标准函数Sin的结果"; Sin(x) End Sub

Private Sub Command2_Click()     Print "调用自定义函数 MySin的结果"; MySin(x) End Sub

Function MySin(x!) As Double     Dim i%, t!, s!     t = x     s = t     i = 1     Do While Abs(t) > 0.00001         t = -1 * t * x * x / ((i + 1) * (i + 2))         s = s + t         i = i + 2     Loop     MySin = s End Function

Private Sub Command3_Click()     x = InputBox("输入要计算正弦函数的角度值x")     x = x * 3.14 / 180 End Sub

运行程序效果图如下：

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

来源：济亨网

本文链接：https://www.wb98.com/post/91.html