河南省二级VB考试程序大题题型2.docVIP

1、编写程序计算并输出下面数列前n项的和，当第一次出现和数的绝对值大于5000时求和终止。??? 1×2×3,-2×3×4,3×4×5,-4×5×6,……,(-1)^(n-1)×n×(n+1)×(n+2),……（其中，^ 表示幂运算）。?? Private Sub Form_Click()Sum = 0P = 0i=1do while abs(sum)=5000???? p =(-1)^（i-1）*i*(i+1)*(i+2)???? Sum = Sum + p???? i=i+1LoopPrint sumEnd Sub2、编写程序，计算下面数列的部分和S，在求和过程中，当S0.1357时求和终止并输出S。将结果四舍五入保留4位小数。 1/(1×2×3),1/(2×3×4),1/(3×4×5),……,1/(n×(n+1)×(n+2)),……Private Sub Form_Click()s# = 0p# = 0i=1do while s=0.1357p = 1 / (i*(i+1)*（i+2）)s = s + pi=i+1loops = Round(S, 4)Print sEnd Sub第四部分：1、 求Π的近似值可以用以下公式Π^2/6=1/2^2+1/2^2+1/3^2+…+1/n^2用上述公式求Π^2/6，即逐项进行累加，直到1/n^210^-7为止（该项不累加），然后求Π的近似值。Private Sub Form_Click()Sum# = 0n% = 1p# = 1 / n ^ 2Do While p = 0.0000001???? Sum = p + Sum???? n = n + 1???? p = 1 / n ^ 2Looppi# = Sqr(Sum * 6)Print Π的近似值为：; piEnd sub2、 用近似公式求自然对数的底e的值e≈1+1/1！+1/2！+1/3！+…+1/n！用上述公式，即逐项进行累加，直到1/n！10^-5为止Private Sub Form_Click()Sum# = 1n% = 1p = 1Do While p = 10 ^ -5???? Sum = p + Sum???? n = n + 1???? p = p / nLoopPrint 自然对数的底e的近似值为：; SumEnd sub3、设n=30，编写程序，计算并输出下式的值。??? s(n)=(1-2+3)+(5-6+7)+(9-10+11)+…+[(4n+1)-(4n+2)+(4n+3)] +…(注意，n=0,1,2,3…)?? Private Sub Form_Click()Sum=0p=0??????????????? S为累加和,P为累加数???? for n%=0 to 30?????? p=4*n+1-(4*n+2)+4*n+3 ?????? s=s+p???? next n???? print send sub4、编写程序，计算并输出下面级数中前n（设n=50）项的部分和。??? 1*2+2*3+3*4+4*5+…+n*(n+1)+…?? Private Sub Form_Click()Sum=0???? P=0????? sum为累加和,P为累加数??? for n%=1 to 50????? P=n*(n+1)????? sum=sum+P??? next n??? print sumend sub5、编写程序，计算并输出数列前8项的和，结果取4为小数。1/1！，1/2！，1/3！……，1/n!……Private Sub Form_Click()n% = InputBox(请输入要求的数列和的项数：)Sum# = 0p# = 1For i = 1 To np = p*1/iSum = Sum + pNext iSum = Round(Sum, 4)Print SumEnd Sub