VB等级考试算法.docVIP

1.累加与连乘 [分析] 累加形式：V=V+e连乘形式：V=V*e 其中：V是变量，e是递增表达式。累加和连乘一般通过循环结构来实现。 注意：需在执行循环体前对变量V赋初值。一般累加时置初值0；连乘时置初值为1。 求N!的结果。 Private Sub Command1_Click() Dim n%, i%, s n = Val(InputBoxi(输入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