计算机等级考试二级VB常用算法：累加

文章作者 100test 发表时间 2007:06:08 11:39:17
来源 100Test.Com百考试题网

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、分解通项式的组成

　　
src="/ncre2/js/wxgg.js">