VB常用算法1累加连乘.docx

.. .. VB 常用算法---累加和连乘 一、算法说明 累加形式： 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 End Sub ‘输出 s的值为 n，而不是 n! 二、应用举例 例 1. 根据下列公式，求自然对数 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