江苏省二级VB常考题型归纳分析.docVIP

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 = 　　??? 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 　　??? Print 计算了; i; 项目和是： e 　　??? Print Exp（1）????????????????????????????? ‘与上句输出值进行对比以证明算法的正确性 　End Sub 根据X值计算 n＝1，2，…… 要求：n项绝对值小于等于10-6为止。由于循环次数不确定，因此确定用Do循环结构并定义循环变量用n表示（初值1）；用户输入的值用x表示；通项用dblCos表示；累加值用sum表示，初值为0； 分解通项式的组成 　可以分解为三部分：可以表示为：（－1）^（n+1）可以表示为：x^（2*（n-1））比较复杂，难以直接表示此时考虑使用过程。 于是定义过程，输入值是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 　　??? comp=result End Function 注意：由于是参数按地址传递，因此对于本题，实参的值不能在过程中被改变！（也是改错题常考的地方！！） 根据步骤写出通项dblCos的表达式： 　　??? dblCos=(-1)^(n+1)* x ^(2*(n-1))/comp(n) 根据精度要求知： 　　??? If bs(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 　　??? Dim result As Long 　　??? result = 1? 此处注意，由于是连乘，初值为1 　　??? For I = 1 To 2 *n – 1) 　　??? result = result * I 　　??? Next I 　　??? comp = result End Function