vb考试复习5章-6章习题.doc

1、WORD格式可编辑第5章选择结构程序设计-、选择题1. 下列语句正确的是【】。(多选)(A)IfXYThenPrintX不等于Y(B)IfXYThenPrintX不等于Y(C)IfX=BThenT=AA=BB=T(D)IfA=BThenT=A:A=B:B=T3. 下列语句正确的是【】。(A)IfXYThenY=X3(B)IfXYThenY=X3(C)IfXYThenY=X3(D)IfXYThenY=X*34. 关于语句Ifx=lTheny=1,下列说法正确的是【】。(A)x=1和y=1均为赋值语句(B)x=1和y=1均为关系表达式(C)x=1为关系表达式,y=1为赋值语句(D)x=1为赋值语句

2、,y=1为关系表达式5. 执行以下语句后显示结果为【】。DimxAsIntegerIfxThenPrintxElsePrintx-1(A)1(B)O(C)一1(D)不确定6. 如果X的值小于或等于Y的平方,则打印OK,表示这个条件的单行格式If语句是【】。(A)Ifx=y2ThenPrintOK(B)Ifx=y2PrintOK(C)Ifx=y2ThenOK(D)Ifx=1OThenPrintOKElsePrintError(B)IfFix(A)=AAndAbs(A)=100ThenPrintOKElsePrintError(C)IfInt(A)=AAnd(A=100,A=100AndA=-10

3、0ThenPrintOKElsePrintError8. 下列程序段【】能够正确实现条件:如果XY,则A=15,否则A=-15。(A)IfXYThenA=15(B)IfXYThenA=15:PrintAA=-15A=-15PrintAPrintA(C)IfXYThen(D)IfXYThenA=15A=15:PrintAElseA=-15ElsePrintAA=-15:PrintAEndIfEndIf9. 能够实现以下分段函数的程序段是【】。(多选)f(x)=1+XXO1-XX=OThenY=1+X(B)IfXOThenY=1+XY=1-XElseY=1-XEndIf(C)IfX=OThenY=

4、1+X(D)IfXOThenY=1-XIfXOThenY=1-XY=1-XElse:Y=1+XEndIf专业知识 整理分享10. 下列【】程序段不能实现以下分段函数。(多选)f(x)=sqr(x+1)x1x2+3x=1Thenf=Sqr(x+1)Ifx=1Thenf=Sqr(x+1)Ifx1Thenf=x*x+3PrintfPrintf(C)x=Val(Text1.Text)(D)x=Val(Text1.Text)Ifx=1Thenf=Sqr(X+1)f(x)=x*x*+3f=x*x*+3ElsePrintfF(x)=Sqr(X+1)EndIfPrintf11. 计算分段函数:0x010x1f

5、(x)=21x23x2下面程序段中正确的是【】。(A)Ifx=2Theny=3Ifx=1Theny=2Ifx=0Theny=1Ifx=2Theny=3Ifx0Theny=0(C)Ifx=2Theny=0y=3ElseIfx=0ThenElseIfx=1Theny=1y=2ElseIfx=1ThenElseIfx=0Theny=2y=1ElseElsey=2y=0EndIfEndIf12. 计算分段函数:0x010x1f(x)=21x23x2下面程序段中正确的是【】。(A)SelectCasex(B)SelectCasexCasexOCasex=OAndx1Casex=1Andx2Casex2y

6、=2y=2CaseElseCaseElsey=3y=3EndSelectEndSelect(C)SelectCasex(D)SelectCasexCaseIsOCaseIsOy=0y=0CaseIs=0,Is1y=1y=1CaseIs=1,Is=2y=3y=3EndSelectEndSelect二、判断程序或程序段的执行结果13. 下列程序段的执行结果为【】。X=2Y=1IfX*YO(A)True(B)False(C)-1(D)114. 下列程序段的执行结果为【】。J1=10J2=30IfJ1OThenX=Y-3ElseY=X+3PrintX-Y;Y-X(A)-33(B)5-8(C)33(D)

7、25-2516. 下列程序段的执行结果为【】。A=1B=2A=Val(A)+Val(B)B=Val(12)IfABThenPrintA-BElsePrintB-A(A)-9(B)9(C)12-12(D)017. 下列程序段的执行结果为【】。A=75IfA6OThenI=1IfA70ThenI=2IfA80ThenI=3IfA90ThenI=4PrintI=;I(A)I=1(B)I=2(C)I=3(D)I=418. 下列程序段的执行结果为【】。A=abedB=bcdeE=Right(A,3)F=Mid(B,2,3)IfE60ThenI=1ElseIfA70ThenI=2ElseIfA80Then

8、I=3ElseIfA9OthenI=4EndIfPrintI=;I(A)I=1(B)I=2(C)I=3(D)I=420. 下列程序段的执行结果为【】A=1:B=OSelectCaseACase1SelectCaseBCaseOPrint*O*CaselPrint*1*EndSelectCase2Print*2*EndSelect(A)*O*(B)*1*(C)*2*(D)O21. 下列程序段的执行结果为【】。x=Int(Rnd+4)SelectCasexCase5Print优秀Case4Print良好Case3Print通过CaseElsePrint不通过EndSelect(A)优秀(B)良好(

9、C)通过(D)不通过三、程序填空1. 以下程序用于判断输入的年份是否是闰年。如果年份能被4整除但不能被100整除,或者年份能被400整除,则该年为闰年;否则不是闰年。PrivateSubCommand1_Click()y=InputBox(请输入年份)If(1)ThenPrinty&年为闰年ElsePrinty&年不是闰年LEndIfEndSub2. 下面的程序用于求三个数中的最大数、最小数。PrivateSubCommand1_Click()a=Val(InputBox(请输入第一个数)b=Val(InputBox(请输入第二个数)C=Val(InputBox(请输入第三个数)Max=aMi

10、n=aIfb(1)ThenMax=bIfb(2)ThenMin=bIf(3)ThenMax=cIf(4)ThenMin=cPrint最大数为;MaxPrint最小数为;MinEndSub22. 以下程序判断从文本框Text1中输入的数据,如果该数据满足条件:除以3余2,除以5余3,除以7余4,则输出；否则将焦点定位在文本框Text1中，选中其中的确文本。PrivateSubCommand1_Click()x=Val(Text1.Text)If(1)ThenPrintxElse(2)(3)(4)EndIfEndSub23. 下面的程序用于根据文本框A中输入的内容进行以下处理：当A6.6时，打印A

11、6.6时，打印A6.6。PrivateSubCommand1_Click()If(1)ThenPrintA6.6(3)EndSub24. 下面的程序用于根据文本框X中输入的内容进行以下处理：若X为2、4、6，则打印X的值为2、4、6；若X为3、5，则打印X的值为3、5；若X为7、8，则打印X的值为7、8；否则,打印X不在范围内。PrivateSubCommand1_click()SelectCaseVal(X.Text)Case(1)PrintX的值为2、4、6Case(2)PrintX的值为3、5Case(3)PrintX的值为7、8(4)PrintX不在范围内EndSelectEndSub

12、25. 下面程序用来计算:A+B(A5)N=B/A(A=5)0(A5)PrivateSubCommand1_C1ick()A=Val(Text1.Text)B=val(Text2.Text)SelectCaseACase(1)N=A+BCase(2)N=B/ACase(3)N=OEndSelectText3.Text=NEndSub第六章循环结构程序设计一、判断程序或程序段的执行结果26. 下列程序段的执行结果为【】。I=0ForG=10To19Step3I=I+1NextGPrintI(A)4(B)5(C)3(D)627. 下列程序段的执行结果为【】。X=0ForK=1To10Step2X=

13、X+KNextKPrintK;X(A)-16(B)-116(C)16(D)113128. 下列程序段的执行结果为【】。K=0ForI=1To3A=IIKPrintANextI(A)111(B)149(C)000(D)12329. 下列程序段的执行结果为【】。N=10ForK=NTo1Step-1X=Sqr(K)X=X-2NextKPrintX-2(A)-3(B)-1(C)1(D)1.1622776530. 下列程序段的执行结果为【】。X=1Y=1ForI=1To3F=X+YX=YY=FPrintFNextI(A)236(B)222(C)234(D)23531. 下列程序段的执行结果为【】。A=

14、ABBACDDCBAForI=6To2Step-2X=Mid(A,I,I)Y=Left(A,I)Z=Right(A,I)Z=X&Y&ZNextIPrintZ(A)ABA(B)AABAAB(C)BBABBA(D)ABBABA32. 给出下面程序段的输出结果【】。ForX=1.5To5Step1.5PrintXNextX33. 给出下面程序段的输出结果【】。ForI=-5ToLoStep-1X=X+IPrintXNextI34. 给出下面程序段的输出结果【】。Z=ABCDEFGABCDEFGForI=6To2Step-3U=String(I,Z)V=Left(Z,I)W=Mid(Z,I,I)X=R

15、ight(Z,I)Y=X+W+V+UNextIPrintU,V,W,X,Y35. 给出下面程序段的输出结果【】。ForI=OTo3PrintTab(4*I+1);I;2&INextI36. 给出下面程序段的输出结果【】。其中,Trim函数用于去除字符串前后的空格。ForI=1To7PrintTab(8-I);String(I,Trim(Str(I)NextI37. 下列程序段的执行结果为【】。A=0:B=1DoA=A+BB=B+1LoopWhileA=7PrintI=;IPrintA=;A(A)I=4(B)I=7(C)I=8(D)I=7A=5A=13A=7A=1139. 下列程序段的执行结果为

16、【】。N=OJ=1DoUntilN2N=N+1J=J+N*(N+1)LoopPrintN;J(A)01(B)37(C)321(D)31340. 给出下面程序段的输出结果【】。P=OS=0DoP=P+2S=S+PLoopWhileP11PrintS=;S41. 给出下面程序段的输出结果【】。M1=1M2=1DoWhileM26M1=M1*M2M2=M2+1LoopPrintM1=;M1,M2=;M242. 下列程序段的执行结果为【】。N=0ForI=1To3ForJ=5To1Step-1N=N+1NextJNextIPrintN;J;I(A)1204(B)1504(C)1231(D)153143

17、. 下列程序段的执行结果为【】。A=0B=0ForI=-1To2Step-1ForJ=1To2B=B+1NextJA=A+1NextIPrintA;B(A)24(B)-22(C)42(D)2344. 下列程序段的执行结果为【】。K=0ForJ=1To2ForI=1To3K=I+1NextIForI=1To7K=I+1NextINextJPrintK(A)10(B)6(C)11(D)1645. 下列程序段的执行结果为【】。ForX=5To1Step-1ForY=1To6-XPrintTab(Y+5);*;NextyPrintNextX(A)*(B)*(C)*(D)*46. 下列程序段的执行结果为

18、【】。S=0:T=0:U=OForX=1To3ForY=1ToXForZ=YT03S=S+1NextZT=T+1NextYU=U+1NextXPrintS;T;U(A)3614(B)1463(C)1436(D)164347. 给出下面程序段的输出结果【】。Fora=1To6PrintTab(7-a);Forb=1To2*a-1Print*;NextbNexta48. 给出下面程序段的输出结果【】。N=1DoFork=NTo5Print*;NextkPrintN=N+1LoopUntilN549. 给出下面程序段的输出结果【】。ForA=OTo1ForB=1To2ForC=2To3Print(A

19、=OOrB=1)And(C=2AndA=B)OrNot(C=3);NextCNextBNextA50. 给出下面程序段的输出结果【】。DimiAsInteger,jAsInteger,kAsIntegerk=0Fori=OTo10Step3Forj=1To10Ifj5Thenk=k+4:ExitFork=k+1NextjPrintI,kIfi8ThenExitForNextiPrinti,k二、程序填空3. 以下程序用来产生20个(0,99)之间的随机整数,并将其中的偶数打印出来。PrivateSubCommand1_Click()RandomizeForI=1To20X=Int(Rnd*(1

20、)IfX/2=(2)ThenPrintXNextIEndSub4. 以下程序用来计算由键盘输入的N个数中正数之和,负数之和,正数的个数,负数的个数。其中用C累加负数之和,IC累加负数的个数,D累加正数之和,ID累明加正数的个数。PrivateSubCommand1_Click()N=lOC=0:IC=0:D=0:ID=OFork=IToNA=Val(InputBox(请输入A)IfAOThenD=(3):(4)NextkPrint负数的个数为:,ICPrint负数的和为:,CPrint正数的个数为:,IDPrint正数的和为:,DEndSub51. 下面是一个体操评分程序。20位评委，除去一个

21、最高分和一个最低分,计算平均分（设满分为100分）。PrivateSubCommand1_Click()Max=0Min=10ForI=1To20N=Val(InputBox(请输入分数)If(1)ThenMax=NIf(2)ThenMin=NS=S+NNextIS=(3)P=S/18Print最高分;Max,最低分;MinPrint最后得分:;PEndSub52. 搬砖问题:36块砖，36人搬,男的搬4块,女的搬3块,2个小儿抬1块,要求1次全部搬完,问需男、女、小儿各多少人。PrivateSubCommand1_click()ForMale=1To9ForFemale=1To12ForBo

22、y=2To36Step2IfBoy+Female+Male=36And(1)ThenPrintMale,Female,BoyEndIfNextBoyNextFemaleNextMaleEndSub53. 以下程序用于计算N=1+(1+3)+(1+3+5)+(1+3+5+39)。PrivateSubCommand1_Click()T=OM=1Sum=0DoT=T+(1)Sum=Sum+(2)M=M+2LoopWhile(3)PrintSum=;SumEndSub54. 以下程序用于计算数学表达式12-22+32-42+.+(N-1)2-N2。PrivateSubCommand1_Click()N

23、=val(InputBox(请输入大于零的偶数N:)S=0I=1C=1DoS=S+C*I*IC=(1)I=(2)LoopWhile(3)PrintS=;SEndSub55. 以下程序用于求S=1+3+32+33+310的值。PrivateSubCommand1_Click()S=(1)T=1ForI=1To10T=(2)S=S+TNextIPrintS=;SEndSub56. 以下程序输入N个书名,并将书名中含有连续3个字母COM的所有书名显示出来。PrivateSubCommand1_Click()n=InputBox(请输入数量:)Fori=1Tonbookname=InputBox(请输

24、入书名:)l=Len(1)Ifl=3ThenIf(2)ThenPrintbooknameEndIfNextiEndSub57. 以下程序用于在带垂直滚动条的文本框Textl中输出3到100之间的全部素数。PrivateSubCommand1_Click()Text1.Text=ForN=3TolOOK=Int(sqr(N)I=2Flag=ODOWhileI=(1)AndFlag=0IfNModI=OThenFlag=1ElseI=I+1LoopIf(2)ThenText1.Text=Text1.Text&Str(N)&Chr(13)&Chr(10)EndIfNextNEndSub58. 以下程

25、序用来输出20个在开区间(10,87)中的随机整数R,每行输出4个整数。PrivateSubCommand1_Click()ForI=1To20R=(1)PrintR;If(2)ThenPrintNextIEndSub59. 以下程序在文本框Text1中输入任一字符串,并按相反的次序显示在文本框Text2中。PrivateSubCommand1_Click()DimNAsString,CASString,DASStringN=Text1.TextM=(1)ForI=MTo1Step1C=Mid(N,I,1)D=D&(2)NextI(3)=DEndSub60. 以下程序用于在单击图片框Pictu

26、re1时显示图6_1所示的结果。PrivateSubPicture1_Click()Picture1.PrintTab(5);*ForI=1To4Picture1.Print(1)NextIForI=3To1Step1Picture1.Print(2)NextIPicture1.PrintTab(5);*EndSub61. 以下程序在窗体上打印出如图6_2示的数据。PrivateSubFonm_Click()ForN=1To6PrintTab(20-3*N);ForM=1To2*N-1IfM=NThen(1)Else(2)PrintANextMPrintNextNEndSub62. 单击窗体时

27、输出斐波那契数列的前20项。该数列第一项为0,第二项为1,其后每一项的值都是前两项之和。即:0,1,1,2,3,5,8,13,从题后供选择的答案中选出正确答案,填入以下程序中相应处,构成完整程序。PrivateSubFonm_Click()X1=0X2=1N=0DoWhile(1)PrintX1,X2X1=(2)X2=(3)N=N+1LoopEndSub供选择的答案:(1)(A)N10(B)N9(C)N10(D)N20(2)(A)X1+X2(B)X2(C)X1+N(D)X2+N(3)(A)X1+X2(B)X2(C)X1+N(D)X2+N63. 单击窗体时输出图6_3所示的图形。从题后供选择的答

28、案中选出正确答案,填入以下程序中相应处,构成完整程序。PrivateSubForm_Click()ForN=1To6Print(1)ForM=1To6Print*;NextMPrint(2)ForM=1To6Print*;NextMPrintNextNEndSub供选择的答案:(1)(A)Tab(6-N);(B)Tab(6+N);(C)Tab(7-N);(D)Tab(7+N);(2)(A)Tab(12+N);(B)Tab(11+N);(C)Tab(11-N);(D)Tab(12-N);64. 单击命令按钮Command时1利用台劳级数展开式求sinx的近似值。展开式为:x-x3/3!+x5/5!-+(-1)i*x(2i+1)/(2i+1)!+(i=0,1,2