vb编写程序,利用下面的公式计算cosx的近似值
vb编写程序,利用下面的公式计算cosx的近似值
cosx=1-x^2/2!+x^4/4!.+x^(2n)/(2n)!我写的代码：
Private Sub Command1_Click()
Dim x As Single,t As Single,s As Single,n As Integer
x = Val(Text1.Text)
s = 1:t = 1:n = 1
Do
t = (-1) * t * (x ^ (2 * n)) / ((2 * n - 1) * (2 * n))
s = t + s
n = n + 1
Loop Until t = -10 ^ (-7)
Text2.Text = s
但是“溢出”,= (-1) * t * (x ^ (2 * n)) / ((2 * n - 1) * (2 * n)),但是我不明白为什么
cosx=1-x^2/2!+x^4/4!.+x^(2n)/(2n)!我写的代码：
Private Sub Command1_Click()
Dim x As Single,t As Single,s As Single,n As Integer
x = Val(Text1.Text)
s = 1:t = 1:n = 1
Do
t = (-1) * t * (x ^ (2 * n)) / ((2 * n - 1) * (2 * n))
s = t + s
n = n + 1
Loop Until t = -10 ^ (-7)
Text2.Text = s
但是“溢出”,= (-1) * t * (x ^ (2 * n)) / ((2 * n - 1) * (2 * n)),但是我不明白为什么
赞 hxt331 花朵
共回答了14个问题采纳率：92.9% 举报
'cosx=1-x^2/2!+x^4/4!.+x^(2n)/(2n)!我写的代码：
Private Sub Command1_Click()
Dim x As Double, t As Double, s As Double, n As Integer, jc As Double
x = Val(Text1.Text)
s = 1: t = 1: n = 1
Do
jc = 1
For i = 1 To 2 * n
jc = jc * i
Next i
t = (-1) ^ n * (x ^ (2 * n)) / jc'这里是阶乘,你用的公式是连加的公式
s = t + s
n = n + 1
Loop Until t <= 10 ^ (-7) And t >= -10 ^ (-7)
Text2.Text = s
End Su
Private Sub Command1_Click()
Dim x As Double, t As Double, s As Double, n As Integer, jc As Double
x = Val(Text1.Text)
s = 1: t = 1: n = 1
Do
jc = 1
For i = 1 To 2 * n
jc = jc * i
Next i
t = (-1) ^ n * (x ^ (2 * n)) / jc'这里是阶乘,你用的公式是连加的公式
s = t + s
n = n + 1
Loop Until t <= 10 ^ (-7) And t >= -10 ^ (-7)
Text2.Text = s
End Su
1年前 追问
4
Private Sub Command1_Click()
Dim x As Double, t As Double, s As Double, n As Integer, jc As Double
x = Val(Text1.Text)
s = 1: t = 1: n = 1
Do
jc = 1
For i = 1 To 2 * n
jc = jc * i
Next i
t = (-1) ^ n * (x ^ (2 * n)) / jc '这里是阶乘，你用的公式是连加的公式
s = t + s
n = n + 1
Loop Until t <= 10 ^ (-7) And t >= -10 ^ (-7)
Text2.Text = Format(s, "0.######") '主要是这句
End Sub
可能相似的问题
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前2个回答
-
利用整式乘法公式计算(x-2）（x+2）-（x+1）（x-3）
1年前2个回答
你能帮帮他们吗