计算机VB考试试题精选.pdfVIP

1编写程序，计算并输出下面级数前n 项(n 50)中偶数项的和。 (要求用循环做，非循环不 给分。) 1*2+2*3+3*4+4*5+……+n*(n+1)+… Private Sub Form_Activate() s 0 For I 2To50 Step 2 s s+ I *(I+ 1) Next I Print s End Sub 2 勾股定理中三个数的关系是：a^2+b^2 c^2 编写程序，输出100 以内满足上述关系的整 数组合，例如3，4，5就是一个整数组合。 Private Sub Form_Activate() For a 1To 100 Forb a+ 1To 100 For c b + 1To 100 Ifa^2+b ^2 c^2Then Print a,b,c Next c,b,a End Sub 3 编写程序，随机生成 100 个两位整数，并统计出其中小于等于40、大于40 小于等于70 及大于70 的数据个数。 Private Sub Form_Activate() Randomize a 0:b 0:c 0 For I 1To 100 Next I x Int(Rnd *90+ 10) Select Casex CaseIs 40 a a+ 1 CaseIs 70 b b + 1 CaseElse c c+ 1 End Select Print a,b,c End Sub 4 编写程序，单击窗体时在窗体上输出如下所示的图形。 * *** ***** ******* ********* ******* ***** *** * 要求：用循环做，非循环不给分。 Private Sub Form_Activate() For I 1To5 PrintTab(20 -I);String(2 *I - 1, *):Print Next I For I 4 To 1Step -1 PrintTab(20 -I);String(2 *I - 1, *):Print Next I End Sub 5编写程序，计算并输出下面级数前n 项中(n 50)偶数项的和。 (要求用循环做，非循环不 给分。) 1*2*3+2*3*4+3*4*5+……+n*(n+1)*(n+2)+… Private Sub Form_Activate() s 0 For i 1To50 IfiMod2 0Then s s+ i *(i+ 1) *(i+2) EndIf Next i Print s End Sub 6输入一串数字，求其中偶数数字的个数及其和。 （输入：123456789），运算得：4 20 Private Sub Form_Activate() x InputBox(输入一串数字) s 0:t 0 For i 1ToLen(x) a Mid(x,i, 1) IfaMod2 0Then s s+ 1:t t + a Next i Print s,t End Sub 7编写程序，用普通迭代法求方程f(x) x+lnx-2.5 0 的近似实根r，迭代初值为1.5，精确到 0.0001。 〔提示：必须把方程f(x) 0 化成其等价形式x g(x)〕。（允许使用其他迭代法） x 1.87264704036406 Private Sub Form_Activate() Dim x0,x1,fx0,f1x0 x1 1.5 Do x0 x1 fx0 x0+ log(x0) -2.5 f1x0 1+ 1/ x0 x1 x0 -fx0/ f1x0 LoopUntilAbs(x1-x0) 0.0001