VB常用十大算法-2009.docVIP

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 应用举例 根据下列公式，求自然对数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 实例说明根据X值计算： n＝1，2，…… 要求：n项绝对值小于等于10-6为止。 1、由于循环次数不确定，因此确定用Do循环结构并定义循环变量用n表示（初值1）；用户输入的值用x表示；通项用dblCos表示；累加值用sum表示，初值为0； 2、分解通项式的组成 可以分解为三部分： ??? 3、由于步骤2中 复杂，此时考虑使用过程。 于是定义过程，输入值是n，返回值是?? 于是有： rivate Function comp（n s Long）s Long Dim I As Long, Result As Long Result = 1 ‘此处注意，由于是连乘，初值为1 or I = 1 To 2*(n-1) result = result*I Next I comp = Result End Function 注意：由于是参数按地址传递，因此对于本题，实参的值不能在过程中被改变！（也是改错题常考的地方！！）4、根据步骤1、2、3，写出通项dblCos的表达式： dblCos =（－1）^(n+1)* x^(2*(n-1))/comp(n)5、根据精度要求知： 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) = 10 ^ (-6) Then Exit Do Sum = Sum + dblCos n = n + 1 Loop Print Sum End Sub Private Function comp(n As Long) As Long Dim I As Long, result As Long result = 1 此处注意，由于是连乘，初值为1 For I = 1 To 2 * (n - 1) result = result * I Next I comp = result End Function [实战练习] 1)?填空题: 本程序的功能是求下面数列前n项之和。 Option Explicit Private Sub Command1_Click() Dim x As Single,s As Single, n As Integer,i As Integer 　 x=InputBox(输入Ｘ：，＂求数列和＂，１) 　 n=InputBox(输入Ｎ：，＂求数列和＂，１) 　 For i=1 To n 　 s=s+fun(x,i) 　 Next i 　 Label1.Caption= ＿（1）＿ 　Text1=s End Sub Private Function fun(x As Single,n As Integer)As Single ＿＿（2）＿＿ 　 p = 1 　 For i=1 To n 　 ＿＿（3）＿＿＿ 　 Next i 　 fun=x^(2*n-1)*p End