计算s=1-2x2/3!+4x4/5!-6x6/7!+…的VB程序

来源：学生作业帮编辑：搜搜做题作业网作业帮分类：综合作业时间：2024/08/05 11:21:53

Public Sub Command1_Click()
Dim i As Integer,n As Integer,s As Integer
Dim p As Integer
p = -1 '用来切换符号
s = 1
n = Val(InpuBox("请输入大于2的整数!")
For i = 2 To n
s = s + p * i ^ 2 / f(i+1)
Next i
Print "s="; s
End Sub
Public Function f(n As Integer)
Dim i As Integer,s As Integer
s = 1
For i = n To 1 Step -1
s = s * i
Next i
f = s
End Function
注明：本人是直接在这回答界面编写的,未经调试,原因是没有安装VB6.0
欢迎加入“程序设计(1103616)”群.

编写程序：输入x的值,按照下列公式计算cos(x) cos(x)=1-x2/2!+ x4/4!- x6/6!+...精确用秦九韶算法计算当X=3时多项式f(x)=7X7+6x6+5x5+4x4+3X3+2x2+X的值 1x2+2x4+3x6+4x8+5x10+.+20x40 简便计算 1x2+2x4+3x6+4x8 ------------------------------- 2x3+4x6+6x9+ 计算：1/1x2+1/2x3+1/3x4+1/4x5+1/5x6+1/6x7+1/7x8+1/8x9+1/9x10. 1x1-2x2+3x3-4x4+5x5-6x6.-100x100+101x101 (2X2)/1X3+(4X4)/(3X5)+(6X6)/(5X7)+...+(20X20)/(19X21)==? 利用秦九韶算法计算多项式f（x）=3x6+4x5+5x4+6x3+7x2+8x+1当x=4的值的时候需要做乘法和加法的次用秦九韶算法计算多项式f（x）=6x6+5x5+4x4+3x3+2x2+x+7在x=0.6时的值时，需做加法与乘法的次数用秦九韶算法计算多项式f（x）=3x6+4x5+5x4+6x3+7x2+8x+1当x=0.7时的值时，需要做乘法和加法运用秦九韶算法计算多项式f（x）=3x6+4x5+5x4+6x3+7x2+8x+1，当x=0.4时的值时，需要做乘法和加法（1x2+2x4+3x6+4x8）/（2x3+4x6+6x9+8x12)