用以下公式求f(x)的值。当通项的绝对值小于10^-7时停止计算,x的值由键盘输入。
f(x)=a1x1-a2x2+a3x3-…+(-1)n+1anxn+… |X|
1
其中 a1=1,a2=2,an= ,n=3,4,5…
Option Explicit
Private Sub Commandl_Click( )、
Dim x As Single,fx As Single
Dim a As Single,a1 As Single,a2 As Single
Dim t As Single
a1=l:a2=2
x=text1
If () Then
MsgBox("x必须在-1---1之间")
ExitSub
End If
fx=a1*x-a2*x*x
t=(-1)*x*x
DO
a=1/(al+a2)
t=(-1)*x*x
fx=()
al=a2
()
Loop Until Abs(a*t)<0.0000001
Text2=fx
End Sub
[一]X X X X X X X X X(标题)
各区县人民政府,市府各委办局,市各直属单位:2003年,在市委、市政府领导下,全市上下以“三个代表”重要思想为指导,认真学习贯彻党的十六届三中全会和全国再就业工作座谈会精神,与时俱进,开拓创新,劳动和社会保障工作得到显著成效,圆满完成了年初确定的工作目标和任务。两个确保成果继续取得巩固,实现了离退休人员养老金、下岗职工基本生活费和失业保险金100%发放;市场导向和社会援助就业机制基本形成,就业、再就业空间进一步拓展;社会保险覆盖面不断扩大,保障水平进一步提高;职业技能培训逐步走向市场化、社会化;劳动保障立法步伐加快,依法调节劳资关系,化解社会矛盾的工作机制进一步完善;深化劳动工资分配制度改革取得积极进展;劳动保障信息化水平和街道、社区平台建设处在全国同类型城市前列。 希望受表彰的单位和个人珍惜荣誉,谦虚谨慎,再接再厉,为加快推进全市劳动和社会保障工作做出更大贡献!全市上下要学先进、赶先进,进一步增强做好劳动和社会保障工作的历史使命感和责任感,进一步脚踏实地、扎实工作,努力开创我市劳动和社会保障工作的新局面。 为树立典型,表彰先进,激励全市上下进—步做好劳动和社会保障工作,市政府决定:对XX区等42家劳动和社会保障工作先进单位和李XX同志等77名劳动和社会保障工作先进个人进行表彰(具体名单附后)。
附:XX市2003年度劳动和社会保障工作先进单位和先进个人名单
XX市人民政府
二〇〇四年二月十八日
我来回答: