当前位置:首页 » VB程序题 » 正文

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

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号