作业帮 > 数学 > 作业

用以下公式求sin(x)的近似值,当最后一项的绝对值小于10-7时停止计算,x的值为弧度.

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/14 20:04:00
用以下公式求sin(x)的近似值,当最后一项的绝对值小于10-7时停止计算,x的值为弧度.
呵呵,看看是这意思?
Option Explicit
Const pi = 3.14159265358979
Private Sub Command1_Click()
Dim x, n As Integer, k As Integer, i As Long, j As Integer, m As Long, sum
x = 60 '°
x = x * pi / 180 '转化为弧度
j = 1
Do
n = n + 1
k = IIf(n Mod 2 = 1, 1, -1)
m = 1
For i = 1 To j
m = m * i
Next
If x ^ j / m < 0.0000001 Then Exit Do
sum = sum + k * x ^ j / m
j = j + 2
Loop
MsgBox "sin(" & Round(x * 180 / pi) & ")=" & Format(sum, "0.0000000")
End Su