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
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)),但是我不明白为什么
其他人气:380 ℃时间:2020-02-10 03:39:27
优质解答
'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,...溢出的问题解决了,但是text2,显示不出0,比如0.5,显示.5,这咋办,我觉得跟s的数据类型或者text2有关
我来回答
类似推荐
猜你喜欢
- 1简便计算十二分之五加十五分之十一减十五分之六加十二分之七等于多少
- 2穿透灵魂的微笑 短文讲述了一件什么事,请简要概括
- 3什么动物骨头最多
- 4已知关于x的方程x²-2x+4k-1=0有两个不相等的实数根 (1)求k的取值范围
- 5一个数的零次方怎么算
- 6The room measures 5 metres across..
- 7一个五角星的光源垂直照射在一个三角形的小孔上~
- 8富有想象空间、言外之意和幽默风趣,富有人情味的语句
- 9磁悬浮列车运行速度可达430千米/时,普通列车比它慢36/43.普通列车的速度是多少?
- 10高锰酸钾中锰元素的化合价与锰酸钾中锰的化合价有区别么? 听别人说有,如果有,请告诉我为什么 谢~~~~~~~~~~~~~~~~~~~~~~~~~