1、VB常用算法(一)累加和连乘.docVIP

VB常用算法（一）累加和连乘 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为止。 ???????????? 由于循环次数不确定，因此确定用Do循环结构并定义循环变量用n表示（初值1）；用户输入的值用x表示；通项用dblCos表示；累加值用sum表示，初值为0； ???????????? 分解通项式的组成 可以分解为三部分： ??? 可以表示为：（－1）^(n+1) ????? 可以表示为：x^(2*(n-1)) ?比较复杂，难以直接表示 ???????????? 由于步骤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 注意：由于是参数按地址传递，因此对于本题，实参的值不能在过程中被改变！（也是改错题常考的地方！！） ???????????? 根据步骤1、2、3，写出通项dblCos的表达式： dblCos=（－1）^(n+1)* x^(2*(n-1))/comp(n) ???????????? 根据精度要求知： If abs（dblCos）=10^(-6) then exit do 最后程序为： Private Sub Command1_Click() Dim n As Long, dblCos As Double, x As Double x = Val(Text1.Text) n = 1 Do dblCos = (-1) ^ (n + 1) * x ^ (2 * (n - 1)) / comp(n) If Abs(dblCos