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

计算机等级考试二级VB常用算法
(1)累加和连乘
　　    1、算法说明
　　    累加形式：V=V+e
　　    连乘形式：V=V*e
　　    其中：V是变量，e是递增表达式。累加和连乘一般通过循环结构来实现。
　　    注意：需在执行循环体前对变量V赋初值。一般的，累加时置初值0；连乘时置初值为1.
　　    举例
　　   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
　　    应用举例
　　   2 根据下列公式，求自然对数e的的近似值。
　　
　　    要求：
　　    Private Sub Command1_Click（）
　　    Dim i%， n&， t！， e！
　　    e = 2
　　    i = 1
　　    t = 1
　　    Do While t >
　　    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
　　    co