VB常用算法1累加连乘

VB-累加和连乘PrivateSubCommand1_Click()Dimn%,i%,s&n=Val(InputBox("输入n"))s=1Fori=1Tons=s*iNextiPrintsEndSubPrivateSubCommand1_Click()Dimn%,i%,s&n=Val(InputBox("输入n"))Fori=1Tons=1s=s*iNextiPrintsEndSubPrivateSubCommand1_Click()Dimi%,n&,t!,e!e=2i=1t=1DoWhilet>0.00001i=i+1t=t/ie=e+tPrintExp(1)‘与上句输出值进行对比以证明算法的正确性EndSub预知具体循环2)分解通项表达式中各因子，并分别将各因子用循环变量表示；用变量表示，此时可以考虑5)根据精度要求(往往是通项小于10负多少次方这样一个关系表达式)，^(-N)thenexitdo，注意这句话一般需放在累加或者连乘式之前。22)分解通项式的组成可可以表示为：(－1)^(n+1)privateFunctioncomp(naslong)aslongdimIaslongdimresultaslong‘此处注意，由于是连乘，初值为1forI=1to2*(n-1)result=result*InextIEndFunction变！(也是改错题常考的地方！！)dblCos=(－1)^(n+1)*x^(2*(n-1))/comp(n)5)根据精度要求知：Ifabs(dblCos)<=10^(-6)thenexitdoOptionExplicitPrivateSubCommand1_Click()DimnAsLong,dblCosAsDouble,xAsDoubleDimsumAsDoublex=Val(Text1.Text)nndblCos=(-1)^(n+1)*x^(2*(n-1))/comp(2*(n-1))IfAbs(dblCos)<=10^(-6)ThenExitDosum=sum+dblCosn=n+1Text2.Text=sumEndSubPrivateFunctioncomp(nAsLong)AsLongDimIAsLongDimresultAsLongresult=1'此处注意，由于是连乘，初值为1ForI=1Tonresult=result*INextIcomp=resultEndFunction启动机器。(或者Ctrl+ScrollLock)1)完善程序填空(2003秋二(7))OptionExplicitPrivateSubCommand1_Click()DimxAsSingle,sAsSingleDimnAsInteger,iAsIntegerx=InputBox("输入X："，＂求数列和＂，1)n=InputBox("输入N："，＂求数列和＂，1)Fori=1TonNextiLabel1.Caption=_(1)_EndSubPrivateFunctionfun(xAsSingle,nAsInteger)AsSingleDimiAsInteger_