vb编一个函数过程MySin(x)编一个函数过程Mysin(x)，求Mysin(x)=。当第n项的精度小于10-5时结束，x为弧度；主调程序同时调用Mysin和内部函数sin，进行验证。提示：关键是找部分级数和的通项

Question

vb编一个函数过程MySin(x)
编一个函数过程Mysin(x)，求Mysin(x)= 。
当第n项的精度小于10-5时结束，x为弧度；主调程序同时调用Mysin和内部函数sin，进行验证。
提示：
关键是找部分级数和的通项，如下表示：
i=1,3,5,7…
Mysin(x)= x/1-x^3/3!+x^5/5!-x^7/7!+....+(-1)^*(n-1)x^(2n-1)/(2n-1)!

Answer 1

Private Sub Form_Click()
Dim M As Single
M = InputBox("自变量 X", "输入", 0.5)
Print "Mysin("; M; ") = "; Mysin(M)
Print "Sin("; M; ") = "; Sin(M)
End Sub
Private Function Mysin(ByVal X As Single) As Single
Dim I As Integer, J As Integer
Dim F As Double, Jc As Double
I = -1
Do
I = I + 2
F = X ^ I
Jc = 1
For J = 1 To I
Jc = Jc * J
Next
Mysin = Mysin + (-1) ^ ((I - 1) / 2) * F / Jc
Loop While Abs((-1) ^ ((I - 1) / 2) * F / Jc) >= 10 ^ -5
Print I
End Function