杭州交通信息网山西国资委副主任名单:利用VB编程计算机sinX的值
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/26 03:37:11
P=sin(X)
如果不想用现成的，可以：
Public Function mSin(X As Single) As Double
On Error GoTo A:
Dim sum As Double
sum = X
Dim i As Integer
For i = 1 To 6
sum = sum + (IIf(i Mod 2, -1, 1) * X ^ (2 * i + 1) * p(2 * i + 1))
Next
A:
mSin = sum
End Function
Public Function p(n As Integer) As Double
p = 1
Dim i As Integer
For i = 1 To n
p = p / i
Next
End Function
不太准确，凑合用。小弟只能做到这儿了。