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

计算机等级考试二级VB常用算法(1)累加和连乘　　??? 1、算法说明 　　??? 累加形式：V=V+e 　　??? 连乘形式：V=V*e 　　??? 其中：V是变量，e是递增表达式。累加和连乘一般通过循环结构来实现。 　　??? 注意：需在执行循环体前对变量V赋初值。一般的，累加时置初值0；连乘时置初值为1. 　　??? 举例 　　???求N！的结果。 　　??? Private Sub Command1_Click（） 　　??? Dim n%， i%， s 　　??? n = Val（InputBox（输入n）） 　　??? s = 1 　　??? For i = 1 To n 　　??? s = s * i 　　??? Next i 　　??? Print s 　　??? End Sub 　　??? 错误的写法： 　　??? Private Sub Command1_Click（） 　　??? Dim n%， i%， s 　　??? n = Val（InputBox（输入n）） 　　??? For i = 1 To n 　　??? s = 1???????????? ‘赋初值语句位置不对！ 　　??? s = s * i 　　??? Next i 　　??? Print s??????????????? ‘输出s的值为n，而不是n！ 　　??? End Sub 　　??? 应用举例 　　?? 根据下列公式，求自然对数e的的近似值。 　　 　　??? 要求：误差小于0.00001 　　??? Private Sub Command1_Click（） 　　??? Dim i%， n， t！， e！ 　　??? e = 2 　　??? i = 1 　　??? t = 1 　　??? Do While t 0.00001 　　??? i = i + 1 　　??? t = t / i 　　??? e = e + t 　　??? Loop 　　??? Print 计算了； i； 项目和是：； e 　　??? Print Exp（1）????????????????????????????? ‘与上句输出值进行对比以证明算法的正确性 　　??? End Sub 　　??? 解题技巧 　　??? 1）?由于这类题目往往是根据精度要求来求值，因此我们不能预知具体循环次数，所以这类题目一般用Do循环，很少用For循环。设定循环变量和通项变量，注意各变量的初值； 　　??? 2）?分解通项表达式中各因子，并分别将各因子用循环变量表示； 　　??? 3）??如果步骤2中有的因子比较复杂，难以直接用变量表示，此时可以考虑使用Function过程； 　　??? 4）??根据步骤1、2、3，写出通项表达式； 　　??? 5）??根据精度要求（往往是通项小于10负多少次方这样一个关系表达式），写出一条满足精度要求后跳出循环的语句。通常是用：if? 通项表达式10^（-N） then exit do ，注意这句话一般需放在累加或者连乘式之前。 　　??? 实例说明 　　??? 以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，返回值是 　　??? 于是有： 　　??? private Function comp（n as long）as long 　　??? dim I as long 　　??? dim result as long 　　??? result=1??? ‘此处注意，由于是连乘，初值为1 　　??? for I=1 to 2*（n-1） 　　??? result=result*I 　　??? next I 　　??? comp=result 　　??? End Function 　　??? 注意：由于是参数按地址传递，因此对于本题，实参的值不能在过程中被改变！（也是改错题常考的地方！！） 　　??? 4、根据步骤1、2、3，写