计算机等级考试二级VB常用算法.doc

(1)累加和连乘   1、算法说明   累加形式:V=V+e    连乘形式:V=V*e    其中:V是变量,e是递增表达式。累加和连乘一般通过循环结构来实现。   注意:需在执行循环体前对变量V赋初值。一般的,累加时置初值0;连乘时置初值为1.    举例   1求N!的结果。   mand1_Click()    Dimn%,i%,s&    n=Val(InputBox("输入n"))    s=1    Fori=1Ton    s=s*i    Nexti    Prints    EndSub    错误的写法:    mand1_Click()    Dimn%,i%,s&    n=Val(InputBox("输入n"))    Fori=1Ton    s=1            ‘赋初值语句位置不对!    s=s*i    Nexti    Prints               ‘输出s的值为n,而不是n!    EndSub    应用举例  2根据下列公式,求自然对数e的的近似值。   要求:    mand1_Click()    Dimi%,n&,t!,e!    e=2    i=1    t=1    DoWhilet>    i=i+1    t=t/i    e=e+t    Loop    Print"计算了";i;"项目和是:";e    PrintExp(1)                             ‘与上句输出值进行对比以证明算法的正确性   EndSub    解题技巧   1) 由于这类题目往往是根据精度要求来求值,因此我们不能预知具体循环次数,所以这类题目一般用Do循环,很少用For循环。设定循环变量和通项变量,注意各变量的初值;    2) 分解通项表达式中各因子,并分别将各因子用循环变量表示;    3)  如果步骤2中有的因子比较复杂,难以直接用变量表示,此时可以考虑使用Function过程;    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、分解通项式的组成   可以分解为三部分:    可以表示为:(-1)^(n+1)    可以表示为:x^(2*(n-1))    比较复杂,难以直接表示   3、由于步骤2中复杂,此时考虑使用过程。   于是定义过程,输入值是n,返回值是   于是有:    p(naslong)aslong    dimIaslong    dimresultaslong    result=1   ‘此处注意,由于是连乘,初值为1    forI=1to2*(n-1)    result=result*I    nextI    comp=result    EndFunction    注意:由于是参数按地址传递,因此对于本题,实参的值不能在过程中被改变!(也是改错题常考的地方!!)    4、根据步骤1、2、3,写出通项dblCos的表达式:    dblCos=(-1)^(n+1)*x^(2*(n-1))/comp(n)    5、根据精度要求知:    Ifabs(dblCos)<=10^(-6)thenexitdo    最后程序为:    mand1_Click()    DimnAsLong,dblCosAsDouble,xAsDouble    x=Val()    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    PrintSum    EndSub    p(nAsLong)AsLong    DimIAsLong    DimresultAsLong    result=1 '此处注意,由于是连乘,初值为1    ForI=1To2*(n-1)    result=result*I    NextI    comp=r