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)! 龚沛曾

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版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/91.html