欢迎来到天天文库
浏览记录
ID:9382798
大小:423.00 KB
页数:55页
时间:2018-04-29
《江苏计算机等级考试辅导》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、江苏计算机二级VB等级考试题型解析VB常用算法(一)累加和连乘1、算法说明累加形式:V=V+e连乘形式:V=V*e其中:V是变量,e是递增表达式。累加和连乘一般通过循环结构来实现。注意:需在执行循环体前对变量V赋初值。一般的,累加时置初值0;连乘时置初值为1。举例求N!的结果。PrivateSubCommand1_Click() Dimn%,i%,s& n=Val(InputBox("输入n")) s=1 Fori=1Ton s=s*i Nexti PrintsEndSub错误的写法:Privat
2、eSubCommand1_Click() Dimn%,i%,s& n=Val(InputBox("输入n")) Fori=1Ton s=1 ‘赋初值语句位置不对!s=s*i Nexti Prints ‘输出s的值为n,而不是n!EndSub应用举例根据下列公式,求自然对数e的近似值。要求:误差小于0.00001PrivateSubCommand1_Click() Dimi%,n&,t!,e! e=2 i=1 t=1 DoWhilet>0.00001 i=i+1
3、 t=t/i e=e+t Loop Print"计算了";i;"项目和是:";e PrintExp(1) ‘与上句输出值进行对比以证明算法的正确性EndSub解题技巧1)由于这类题目往往是根据精度要求来求值,因此我们不能预知具体循环次数,所以这类题目一般用Do循环,很少用For循环。设定循环变量和通项变量,注意各变量的初值;2)分解通项表达式中各因子,并分别将各因子用循环变量表示;3)如果步骤2中有的因子比较复杂,难以直接用变量表示,此时可以考虑使用Function过程;4)根
4、据步骤1、2、3,写出通项表达式;5)根据精度要求(往往是通项小于10负多少次方这样一个关系表达式),写出一条满足精度要求后跳出循环的语句。通常是用:if 通项表达式>10^(-N)thenexitdo,注意这句话一般需放在累加或者连乘式之前。实例说明以2002年春上机试卷06编程题为例根据X值计算:n=1,2,……要求:n项绝对值小于等于10-6为止。1.由于循环次数不确定,因此确定用Do循环结构并定义循环变量用n表示(初值1);用户输入的值用x表示;通项用dblCos表示;累加值用sum表示,初值为0;2.分解
5、通项式的组成可以分解为三部分: 可以表示为:(-1)^(n+1) 可以表示为:x^(2*(n-1)) 比较复杂,难以直接表示3.由于步骤2中 复杂,此时考虑使用过程。于是定义过程,输入值是n,返回值是 于是有: privateFunctioncomp(naslong)aslong dimIaslong dimresultaslong result=1 ‘此处注意,由于是连乘,初值为1 forI=1to2*(n-1) result=result*I n
6、extI comp=result EndFunction注意:由于是参数按地址传递,因此对于本题,实参的值不能在过程中被改变!(也是改错题常考的地方!!)4.根据步骤1、2、3,写出通项dblCos的表达式:dblCos=(-1)^(n+1)*x^(2*(n-1))/comp(n)5.根据精度要求知:Ifabs(dblCos)<=10^(-6)thenexitdo最后程序为:PrivateSubCommand1_Click() DimnAsLong,dblCosAsDouble,xAsDouble x=
7、Val(Text1.Text) n=1 Do dblCos=(-1)^(n+1)*x^(2*(n-1))/comp(n) IfAbs(dblCos)<=10^(-6)ThenExitDo Sum=Sum+dblCos n=n+1 Loop PrintSumEndSubPrivateFunctioncomp(nAsLong)AsLong DimIAsLong DimresultAsLong result=1 '此处注意,由于是连乘,初值为1 ForI=1To2*(n-1)
8、 result=result*I NextI comp=resultEndFunction注意:如果调试运行时死循环,可以按Ctrl+Break中断死循环,不需要重新启动机器。(或者Ctrl+ScrollLock)2、实战练习1)补充代码(2003秋二(7))本程序的功能是求下面数列前n项之和。S(x,n)=x/2+2!*x^3/2*4+3!*x^5/2
此文档下载收益归作者所有