vb编一个函数过程Mysin(x)
答案:1 悬赏:50 手机版
解决时间 2021-02-01 08:16
- 提问者网友：自食苦果
- 2021-01-31 18:57
vb编一个函数过程Mysin(x)
最佳答案
- 五星知识达人网友：青灯有味
- 2021-01-31 19:07
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
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
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯