VisualBasic常用算法汇总

计算机等级考试二级VisualBasic常用算法汇总南通大学 计算机科学与技术学院鲁 松下载后可任意编辑计算机等级考试二级 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 1下载后可任意编辑 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 ，注意这句话一般需放在累加或者连乘式之前。实例说明 以 2024 年春上机试卷 06 编程题为例 根据 X 值计算： n＝1，2，…… 要求：n 项绝对值小于等于 10-6 为止。 1、由于循环次数不确定，因此确定用 Do 循环结构并定义循环变量用 n 表示（初值 1）；用户输入的值用 x 表示；通项用 dblCos 表示；累加值用 sum 表示，...