VB：编一个函数过程Mysin(x)并求其近似值

题目来源：大工慕课 链接
原题：Visual Basic程序设计教程（第二版）龚沛曾主编，高等教育出版社 实验6-4
作者：Caleb Sung

题目要求

编一个函数过程Mysin(x)，求

$My\sin (x) = \frac{x}{1} - \frac{{{x^3}}}{{3!}} + \frac{{{x^5}}}{{5!}} - \frac{{{x^7}}}{{7!}} + \cdots$

当第n项的精度小于10-5时结束，x为弧度；主调程序同时调用Mysin和内部函数sin，进行验证。

提示

关键是找部分级数和的通项，可如下表示：
（吐槽：LaTex打公式可谓相当蛋疼……）

${t_{i + 2}} = ( - 1) \cdot {t_i} \cdot x \cdot \frac{x}{{(i + 1)(i + 2)}},i = 1,3,5,7, \cdots$

参考代码

Dim x!

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 Command1_Click()
    x = Val(Text1.Text)
    Label4.Caption = Format(Sin(x), "0.000000")
    Label5.Caption = Format(MySin(x), "0.000000")
End Sub

运行效果