计算机VB考试试题精选

1编写程序，计算并输出下面级数前n项(n=50)中偶数项的和。(要求用循环做，非循环不给分。)1*2+2*3+3*4+4*5+……+n*(n+1)+…PrivateSubForm_Activate()s=0ForI=2To50Step2s=s+I*(I+1)NextIPrintsEndSub2勾股定理中三个数的关系是：a^2+b^2=c^2编写程序，输出100以内满足上述关系的整数组合，例如3，4，5就是一个整数组合。PrivateSubForm_Activate()Fora=1To100Forb=a+1To100Forc=b+1To100Ifa^2+b^2=c^2ThenPrinta,b,cNextc,b,aEndSub3编写程序，随机生成100个两位整数，并统计出其中小于等于40、大于40小于等于70及大于70的数据个数。PrivateSubForm_Activate()Randomizea=0:b=0:c=0ForI=1To100NextIx=Int(Rnd*90+10)SelectCasexCaseIs=40a=a+1CaseIs=70b=b+1CaseElsec=c+1EndSelectPrinta,b,cEndSub4编写程序，单击窗体时在窗体上输出如下所示的图形。*****************************************要求：用循环做，非循环不给分。PrivateSubForm_Activate()ForI=1To5PrintTab(20-I);String(2*I-1,*):PrintNextIForI=4To1Step-1PrintTab(20-I);String(2*I-1,*):PrintNextIEndSub5编写程序，计算并输出下面级数前n项中(n=50)偶数项的和。(要求用循环做，非循环不给分。)1*2*3+2*3*4+3*4*5+……+n*(n+1)*(n+2)+…PrivateSubForm_Activate()s=0Fori=1To50IfiMod2=0Thens=s+i*(i+1)*(i+2)EndIfNextiPrintsEndSub6输入一串数字，求其中偶数数字的个数及其和。（输入：123456789），运算得：420PrivateSubForm_Activate()x=InputBox(输入一串数字)s=0:t=0Fori=1ToLen(x)a=Mid(x,i,1)IfaMod2=0Thens=s+1:t=t+aNextiPrints,tEndSub7编写程序，用普通迭代法求方程f(x)=x+lnx-2.5=0的近似实根r，迭代初值为1.5，精确到0.0001。〔提示：必须把方程f(x)=0化成其等价形式x=g(x)〕。（允许使用其他迭代法）x=1.87264704036406PrivateSubForm_Activate()Dimx0,x1,fx0,f1x0x1=1.5Dox0=x1fx0=x0+log(x0)-2.5f1x0=1+1/x0x1=x0-fx0/f1x0LoopUntilAbs(x1-x0)=0.0001Printx=;x1EndSub8编写程序，给出行3，6，9，12的值和列15，16，17，18的值，得到如下的乘积表：(要求用循环做，非循环不给分。)*3691215459013518016489614419217511021532041854108162216PrivateSubForm_Activate()a=!@@@@@@Fori=0To12Step3Ifi=0ThenPrintFormat(*,a);ElsePrintFormat(i,a);EndIfNextiPrintFori=15To18PrintFormat(i,a);Forj=3To12Step3PrintFormat(i*j,a);9把一百元钱人民币全兑换成硬币(一元的、五角的、一角的)，有多少种兑换方法？（15分）顶22009-01-0418:04回复RedBlack_m2位粉丝2楼PrivateSubForm_Activate()s=0Fori=0To100Forj=0To200Fork=0To1000Ifi+j*0.5+k*0.1=100Thens=s+1Nextk,j,iPrintsEndSub10编写程序，计算下面级数前n项(n=20)的部分和，并输出该级数最后两项之差的绝对值。(要求用循环做，非循环不给分。)1*2*3+2*3*4+3*4*5+……+n*(n+1)*(n+2)+…（15分）PrivateSubForm_Activate()s=0Fori=1To20t=i*(i+1)*(i+2)s=s+tIfi=19Thenk=tIfi=20Thenk=Abs(t-k)NextiPrints,kEndSub11编写程序，用普通迭代法求方程f(x)=x+lnx-2.5=0的近似实根r，迭代初值为1.5，精确到0.0001。〔提示：必须把方程f(x)=0化成其等价形式x=g(x)〕。（允许使用其他迭代法）（15分）x=1.87264704036406PrivateSubForm_Activate()Dimx0,x1,fx0,f1x0x1=1.5Dox0=x1fx0=x0+log(x0)-2.5f1x0=1+1/x0x1=x0-fx0/f1x0LoopUntilAbs(x1-x0)=0.0001Printx=;x1EndSub求公式：e=1/1!+1/2!+1/3!+……+1/n!直到最后一项小于10^(-6)时e的值。(保留小数点后9位)(注：程序代码写在命令按钮Command1的Click事件中。)程序：PrivateSubCommand1_Click()s=0:t=1i=1Dot=t*is=s+1/ti=i+1LoopUntil1/t=0.000001PrintFormat(s,0.#########)EndSub求公式：e=1/1!+1/2!+1/3!+……+1/n!直到n=50时的e值。(保留小数点后9位)程序：PrivateSubCommand1_Click()s=0:t=1Fori=1To50t=t*is=s+1/tNextiPrintRound(s,9)EndSub有一分数序列:1,1/2,2/3,3/5,5/8,8/13,13/21……求出这个数列的前20项之和。程序：PrivateSubForm_Activate()f1=1:f2=1:s=0Fori=1To20s=s+f1/f2f=f1+f2f1=f2f2=fNextiPrintsEndSub输入一串数字，求其中偶数位数字之和。例如输入234567，则求3＋5＋7。程序：PrivateSubForm_Click()s=0x=InputBox(x=)IfIsNumeric(x)ThenFori=1ToLen(x)IfiMod2=0Thens=s+Mid(x,i,1)NextiPrintx,sEndIfEndSub编程求函数SUMX(X)，当-1X1时，SUMX(X)=1+X*3/3!+X*5/5!+...+X*21/21!当X1或X-1时,函数值为0。X由键盘输入。程序：PrivateSubForm_Click()x=Val(InputBox(x=))If-1xAndx1Thens=1Fori=3To21Step2t=1Forj=1Toit=t*jNextjs=s+x*i/tNextiEndIfIfx-1Orx1Thens=0PrintsEndSub编写程序，用牛顿切线法求方程f(x)=x+lgx-1.7=0的近似实根r，迭代初值自选，精确到0.0001。〔提示:计算公式为x=x-f(x)/f'(x)〕注意：PrivateSubForm_Activate()x1=2Dox0=x1f=x0+Log(x0)/Log(10)-1.7f1=1+1/(x0*Log(10))x1=x0-f/f1LoopUntilAbs(x1-x0)=0.0001Printx=;x1EndSub编写程序，用牛顿切线法求方程f(x)=x+lnx-1.7=0的近似实根r，迭代初值自选，精确到0.0001。〔提示:计算公式为x=x-f(x)/f'(x)〕程序：PrivateSubForm_Activate()Dimx0,x1,fx0,f1x0x1=1.5Dox0=x1f=x0+Log(x0)-1.7f1=1+1/x0x1=x0-f/f1LoopUntilAbs(x1-x0)=0.0001Printx=;x1EndSubPrivateSubForm_Activate()Fori=1To5PrintTab(20-2*i);String(2*i-1,*)NextiFori=4To1Step-1PrintTab(20-2*i);String(2*i-1,*)NextiEndSub牛顿：三要素：迭代初值，原方程，导数方程X1=a‘初始化迭代初值DoX0=X1‘为下一次迭代做准备F(x)=‘原方程在X处的值F’(x)=‘原方程在X处的导数值X1=X0-F(x)/F’(x)‘计算下一次的迭代值LoopUntilAbs(X1-X0)Precision‘直到结果非常相近‘X1即为结果其中Precision为要求的精度.2009-01-0418:04回复RedBlack_m2位粉丝3楼1、以下叙述中错误的是(B)（1分）A、一个工程中可以包含多个窗体文件B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用C、若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体D、事件可以由用户引发，也可以由系统引发2、下列可以打开立即窗口的操作是(D)（1分）A、Ctrl+DB、Ctrl+EC、Ctrl+FD、Ctrl+G3、用DimA(-3To6)AsInteger语句定义的数组的元素个数是(D)（1分）A、7B、8C、9D、104、执行下面的程序x=30:Fori=1To20Step():x=x+i\5:Nexti后，X的值为64,则Step为(A)（1分）A、1B、2C、3D、45、不能正确表示条件两个整型变量E和F之一为0，但不能同时为0的布尔表达式是(D)（1分）A、E*F=0andE+F0B、(E=0orF=0)and(E0OrF0)C、not(E=0AndF=0)and(E=0orF=0)D、E*F=0and(E=0orF=0)6、假设x的值为5，则在执行以下语句时，其输出结果为OK的SelectCase的语句是(C)（1分）A、SelectCasex:case10to1:PrintOK:EndselectB、SelectCasex:caseIs5,Is5:PrintOK:EndselectC、SelectCasex:caseIs5,1,3to10:PrintOK:EndselectD、SelectCasex:case1,3Is5:PrintOK:Endselect7、下列说法正确的是(D)（1分）A、VB中的所说的对象是指窗体B、Do---Loop语句是循环结构的一种特殊形式，如果循环体中没有ExitDo语句，程序运行就一定会进入死循环并关闭窗体C、触发Form_Unload事件，但此时窗还在内存中D、对象的属性既可在属性窗口中设定又可在程序代码中设定8、下列数组声明正确的是(D)（1分）A、n=6:Dima(1ton)asintegerB、Dima(10)asinteger:ReDima(1to12)C、Dima()assingle:ReDima(3,6)asintegerD、Dima()asinteger:n=6:ReDima(1ton)asinteger9、假设有以下程序段ForI=1to3:Forj=7to1Step-1:PrintI*j:Nextj:NextI则语句PrintI*j的执行次数以及I、j的值分别是(B)（1分）A、2130B、2140C、2030