VB的三角正余弦正切函数的制作代码谁知道?

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/08 16:42:14
VB的三角正余弦正切函数的制作代码谁知道?

VB的三角正余弦正切函数的制作代码谁知道?
VB的三角正余弦正切函数的制作代码谁知道?

VB的三角正余弦正切函数的制作代码谁知道?
你是不是要问怎样用程序来求它们啊,而不是用系统内部函数
那样的话要用到泰勒公式,比如计算sinax:
Private Sub Form_Click()
Dim s As Double
Dim n As Integer
x = Val(InputBox("请输入x的值","输入框"))
Do
s = s + (-1) ^ n * (x ^ (2 * n + 1) / j(2 * n + 1))
n = n + 1
Loop Until n = 50 '考虑到数据的溢出,注意控制x的大小
Print s
End Sub
Private Function j(n As Integer) As Double
j = 1
For i = 1 To n
j = j * i
Next
End Function