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

vb考试复习5章-6章习题vb考试复习5章-6章习题vb考试复习5章-6章习题xxx公司vb考试复习5章-6章习题文件编号：文件日期：修订次数：第1.0次更改批准审核制定方案设计，管理制度第5章选择结构程序设计-、选择题下列语句正确的是【】。(多选)(A)IfX≠YThenPrint"X不等于Y" (B)IfX<>YThenPrint"X不等于Y"(C)IfX><YThenPrint"X不等于Y" (D)IfX=YPrint"X不等于Y"下列语句正确的是【】。(A)IfA≥BThenT=AA=BB=T (B)IfA≥BThenT=A;A=B;B=T(C)IfA>=BThenT=AA=BB=T (D)IfA>=BThenT=A:A=B:B=T下列语句正确的是【】。(A)IfX<3*YAndX>YThenY=X^3 (B)IfX<3*YAndX>YThenY=X3(C)IfX<3*Y:X>YThenY=X^3 (D)IfX<3*YAndX>YThenY=X**3关于语句Ifx=lTheny=1,下列说法正确的是【】。(A)x=1和y=1均为赋值语句 (B)x=1和y=1均为关系表达式(C)x=1为关系表达式,y=1为赋值语句 (D)x=1为赋值语句,y=1为关系表达式执行以下语句后显示结果为【】。DimxAsIntegerIfxThenPrintxElsePrintx-1(A)1 (B)O (C)一1 (D)不确定如果X的值小于或等于Y的平方,则打印"OK",表示这个条件的单行格式If语句是【】。(A)Ifx<=y2ThenPrint"OK" (B)Ifx<=y^2Print"OK"(C)Ifx<=y^2Then"OK" (D)Ifx<=y^2ThenPrint"OK"如果A为整数且|A|=100,则打印"OK",否则打印"Error",表示这个条件的单行格式If语句是【】。(A)IfInt(A)=AAndSqr(A)>=1OThenPrint"OK"ElsePrint"Error"(B)IfFix(A)=AAndAbs(A)>=100ThenPrint"OK"ElsePrint"Error"(C)IfInt(A)=AAnd(A>=100,A<=-100)ThenPrint"OK"ElsePrint"Error"(D)IfFix(A)=AAndA>=100AndA<=-100ThenPrint"OK"ElsePrint"Error"下列程序段【】能够正确实现条件:如果X<Y,则A=15,否则A=-15。(A)IfX<YThenA=15 (B)IfX<YThenA=15:PrintAA=-15 A=-15PrintA PrintA(C)IfX<YThen (D)IfX<YThenA=15A=15:PrintA ElseA=-15Else PrintAA=-15:PrintA EndIfEndIf能够实现以下分段函数的程序段是【】。(多选)f(x)=1+XX≥O1-XX<OIfX>=OThenY=1+X (B)IfX≥OThenY=1+XY=1-X ElseY=1-X EndIf(C)IfX>=OThenY=1+X (D)IfX<OThenY=1-XIfX<OThenY=1-X Y=1-X Else:Y=1+XEndIf下列【】程序段不能实现以下分段函数。(多选)f(x)= sqr(x+1) x≥1 x2+3 x<1x=Val(Text1.Text) (B)x=Val(Text1.Text)f=x*x+3 Ifx>=1Thenf=Sqr(x+1)Ifx>=1Thenf=Sqr(x+1) Ifx<1Thenf=x*x+3Printf Printf(C)x=Val(Text1.Text) (D)x=Val(Text1.Text)Ifx<1Then Ifx>=1Thenf=Sqr(X+1)f(x)=x*x*+3 f=x*x*+3Else PrintfF(x)=Sqr(X+1)EndIfPrintf计算分段函数:0x<0 10≤x<1f(x)=21≤x<2 3 x≥2下面程序段中正确的是【】。(A)Ifx<0Theny=0 (B)Ifx>=2Theny=3Ifx<1Theny=1 Ifx>=1Theny=2Ifx<2Theny=2 Ifx>=0Theny=1Ifx>=2Theny=3 Ifx<0Theny=0(C)Ifx<0Then (D)Ifx>=2Theny=0 y=3ElseIfx>=0Then ElseIfx>=1Theny=1 y=2ElseIfx>=1Then ElseIfx>=0Theny=2 y=1Else Elsey=2 y=0EndIf EndIf计算分段函数:0x<0 10≤x<1f(x)=21≤x<2 3 x≥2下面程序段中正确的是【】。(A)SelectCasex (B)SelectCasex Casex<O Casex<Oy=0 y=0Casex>=OAndx<1 Casex<1y=1 y=1Casex>=1Andx<2 Casex<2y=2 y=2CaseElse CaseElsey=3 y=3EndSelect EndSelect(C)SelectCasex (D)SelectCasexCaseIs<O CaseIs<Oy=0 y=0CaseIs<1 CaseIs>=0,Is<1y=1 y=1CaseIs<2 CaseIs>=1,Is<2y=2 y=2CaseElse CaseIs>=2y=3 y=3EndSelect EndSelect二、判断程序或程序段的执行结果1.下列程序段的执行结果为【】。X=2Y=1IfX*Y<1ThenY=Y-1ElseY=-1PrintY-X>O(A)True (B)False (C)-1 (D)12.下列程序段的执行结果为【】。J1=10J2=30IfJ1<J2ThenPrintJ2;PrintJ1(A)10 (B)30 (C)1030 (D)30103.下列程序段的执行结果为【】。X=5Y=-20IfNotX>OThenX=Y-3ElseY=X+3PrintX-Y;Y-X(A)-33 (B)5-8 (C)3–3 (D)25-254.下列程序段的执行结果为【】。A="1"B="2"A=Val(A)+Val(B)B=Val("12")IfA<>BThenPrintA-BElsePrintB-A(A)-9 (B)9 (C)12-12 (D)05.下列程序段的执行结果为【】。A=75IfA>6OThenI=1IfA>70ThenI=2IfA>80ThenI=3IfA>90ThenI=4Print"I=";I(A)I=1 (B)I=2 (C)I=3 (D)I=46.下列程序段的执行结果为【】。A="abed"B="bcde"E=Right(A,3)F=Mid(B,2,3)IfE<FThenPrintE+FElsePrintF+E(A)cdebcd (B)cdd (C)cdcd (D)bcdcde7.下列程序段的执行结果为【】。A=75IfA>60ThenI=1ElseIfA>70ThenI=2ElseIfA>80ThenI=3ElseIfA>9OthenI=4EndIfPrint"I=";I(A)I=1 (B)I=2 (C)I=3 (D)I=48.下列程序段的执行结果为【】A=1:B=OSelectCaseACase1SelectCaseBCaseOPrint"**O**"CaselPrint"**1**"EndSelectCase2Print"**2**"EndSelect(A)**O** (B)**1** (C)**2** (D)O9.下列程序段的执行结果为【】。x=Int(Rnd+4)SelectCasexCase5Print"优秀"Case4Print"良好"Case3Print"通过"CaseElsePrint"不通过"EndSelect(A)优秀 (B)良好 (C)通过 (D)不通过三、程序填空以下程序用于判断输入的年份是否是闰年。如果年份能被4整除但不能被100整除,或者年份能被400整除,则该年为闰年;否则不是闰年。PrivateSubCommand1_Click()y=InputBox("请输入年份")If(1)ThenPrinty&"年为闰年"ElsePrinty&"年不是闰年"LEndIfEndSub下面的程序用于求三个数中的最大数、最小数。PrivateSubCommand1_Click()a=Val(InputBox("请输入第一个数"))b=Val(InputBox("请输入第二个数"))C=Val(InputBox("请输入第三个数"))Max=aMin=aIfb>(1)ThenMax=bIfb<(2)ThenMin=bIf(3)ThenMax=cIf(4)ThenMin=cPrint"最大数为";MaxPrint"最小数为";MinEndSub以下程序判断从文本框Text1中输入的数据,如果该数据满足条件:除以3余2,除以5余3,除以7余4,则输出；否则将焦点定位在文本框Text1中，选中其中的确文本。PrivateSubCommand1_Click()x=Val(Text1.Text)If(1)ThenPrintxElse(2)(3)(4)EndIfEndSub下面的程序用于根据文本框A中输入的内容进行以下处理：当A<6.6时，打印"A<6.6"；当A=6.6时，打印"A=6.6"；当A>6.6时，打印"A>6.6"。PrivateSubCommand1_Click()If(1)ThenPrint"A<6.6"(2)Val(A.Text)=6.6ThenPrint"A=6.6"ElsePrint"A>6.6"(3)EndSub下面的程序用于根据文本框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)Print"X的值为2、4、6"Case(2)Print"X的值为3、5"Case(3)Print"X的值为7、8"(4)Print"X不在范围内"EndSelectEndSub下面程序用来计算:A+B (A>5)N=B/A (A=5)0 (A<5)PrivateSubCommand1_C1ick()A=Val(Text1.Text)B=val(Text2.Text)SelectCaseACase(1)N=A+BCase(2)N=B/ACase(3)N=OEndSelectText3.Text=NEndSub第六章循环结构程序设计一、判断程序或程序段的执行结果下列程序段的执行结果为【】。I=0ForG=10To19Step3I=I+1NextGPrintI(A)4 (B)5 (C)3 (D)6下列程序段的执行结果为【】。X=0ForK=1To10Step2X=X+KNextKPrintK;X(A)-16 (B)-116 (C)16 (D)1131下列程序段的执行结果为【】。K=0ForI=1To3A=I^I^KPrintANextI(A)111 (B)149 (C)000 (D)123下列程序段的执行结果为【】。N=10ForK=NTo1Step-1X=Sqr(K)X=X-2NextKPrintX-2(A)-3 (B)-1 (C)1 (D)1.16227765下列程序段的执行结果为【】。X=1Y=1ForI=1To3F=X+YX=YY=FPrintFNextI(A)236 (B)222 (C)234 (D)235下列程序段的执行结果为【】。A="ABBACDDCBA"ForI=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)ABBABA给出下面程序段的输出结果【】。ForX=1.5To5Step1.5PrintXNextX给出下面程序段的输出结果【】。ForI=-5To–LoStep-1X=X+IPrintXNextI给出下面程序段的输出结果【】。Z="ABCDEFGABCDEFG"ForI=6To2Step-3U=String(I,Z)V=Left(Z,I)W=Mid(Z,I,I)X=Right(Z,I)Y=X+W+V+UNextIPrintU,V,W,X,Y给出下面程序段的输出结果【】。ForI=OTo3PrintTab(4*I+1);I;"2"&INextI给出下面程序段的输出结果【】。其中,Trim函数用于去除字符串前后的空格。ForI=1To7PrintTab(8-I);String(I,Trim(Str(I)))NextI下列程序段的执行结果为【】。A=0:B=1DoA=A+BB=B+1LoopWhileA<10PrintA;B(A)105 (B)AB (C)01 (D)1030下列程序段的执行结果为【】。I=4A=5DoI=I+1A=A+2LoopUntilI>=7Print"I=";IPrint"A=";A(A)I=4 (B)I=7 (C)I=8 (D)I=7A=5 A=13 A=7 A=11下列程序段的执行结果为【】。N=OJ=1DoUntilN>2N=N+1J=J+N*(N+1)LoopPrintN;J(A)01 (B)37 (C)321 (D)313给出下面程序段的输出结果【】。P=OS=0DoP=P+2S=S+PLoopWhileP<11Print"S=";S给出下面程序段的输出结果【】。M1=1M2=1DoWhileM2<>6M1=M1*M2M2=M2+1LoopPrint"M1=";M1,"M2=";M2下列程序段的执行结果为【】。N=0ForI=1To3ForJ=5To1Step-1N=N+1NextJNextIPrintN;J;I(A)1204 (B)1504 (C)1231 (D)1531下列程序段的执行结果为【】。A=0B=0ForI=-1To–2Step-1ForJ=1To2B=B+1NextJA=A+1NextIPrintA;B(A)24 (B)-22 (C)42 (D)23下列程序段的执行结果为【】。K=0ForJ=1To2ForI=1To3K=I+1NextIForI=1To7K=I+1NextINextJPrintK(A)10 (B)6 (C)11 (D)16下列程序段的执行结果为【】。ForX=5To1Step-1ForY=1To6-XPrintTab(Y+5);"*";NextyPrintNextX(A)***** (B)***** (C)* (D)***** **** ** ****** *** *** ******* ** **** ******** * ***** *********下列程序段的执行结果为【】。S=0:T=0:U=OForX=1To3ForY=1ToXForZ=YT03S=S+1NextZT=T+1NextYU=U+1NextXPrintS;T;U(A)3614 (B)1463 (C)1436 (D)1643给出下面程序段的输出结果【】。Fora=1To6PrintTab(7-a);Forb=1To2*a-1Print"*";NextbNexta给出下面程序段的输出结果【】。N=1DoFork=NTo5Print"*";NextkPrintN=N+1LoopUntilN>5给出下面程序段的输出结果【】。ForA=OTo1ForB=1To2ForC=2To3Print(A=OOrB=1)And(C=2AndA=B)OrNot(C=3);NextCNextBNextA给出下面程序段的输出结果【】。DimiAsInteger,jAsInteger,kAsIntegerk=0Fori=OTo10Step3Forj=1To10Ifj>5Thenk=k+4:ExitFork=k+1NextjPrintI,kIfi>8ThenExitForNextiPrinti,k二、程序填空以下程序用来产生20个(0,99)之间的随机整数,并将其中的偶数打印出来。PrivateSubCommand1_Click()RandomizeForI=1To20X=Int(Rnd*(1))IfX/2=(2)ThenPrintXNextIEndSub以下程序用来计算由键盘输入的N个数中正数之和,负数之和,正数的个数,负数的个数。其中用C累加负数之和,IC累加负数的个数,D累加正数之和,ID累明加正数的个数。PrivateSubCommand1_Click()N=lOC=0:IC=0:D=0:ID=OFork=IToNA=Val(InputBox("请输入A"))IfA<OThenC=(1):(2)IfA>OThenD=(3):(4)NextkPrint"负数的个数为:",ICPrint"负数的和为:",CPrint"正数的个数为:",IDPrint"正数的和为:",DEndSub下面是一个体操评分程序。20位评委，除去一个最高分和一个最低分,计算平均分（设满分为100分）。PrivateSubCommand1_Click()Max=0Min=10ForI=1To20N=Val(InputBox("请输入分数"))If(1)ThenMax=NIf(2)ThenMin=NS=S+NNextIS=(3)P=S/18Print"最高分";Max,"最低分";MinPrint"最后得分:";PEndSub搬砖问题:36块砖，36人搬,男的搬4块,女的搬3块,2个小儿抬1块,要求1次全部搬完,问需男、女、小儿各多少人。PrivateSubCommand1_click()ForMale=1To9ForFemale=1To12ForBoy=2To36Step2IfBoy+Female+Male=36And(1)ThenPrintMale,Female,BoyEndIfNextBoyNextFemaleNextMaleEndSub以下程序用于计算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)Print"Sum=";SumEndSub以下程序用于计算数学表达式1^2-2^2+3^2-4^2+...+(N-1)^2-N^2。PrivateSubCommand1_Click()N=val(InputBox("请输入大于零的偶数N:"))S=0I=1C=1DoS=S+C*I*IC=(1)I=(2)LoopWhile(3)Print"S=";SEndSub以下程序用于求S=1+3+3^2+3^3+…+3^10的值。PrivateSubCommand1_Click()S=(1)T=1ForI=1To10T=(2)S=S+TNextIPrint"S=";SEndSub以下程序输入N个书名,并将书名中含有连续3个字母COM的所有书名显示出来。PrivateSubCommand1_Click()n=InputBox("请输入数量:")Fori=1Tonbookname=InputBox("请输入书名:")l=Len(1)Ifl>=3ThenIf(2)ThenPrintbooknameEndIfNextiEndSub以下程序用于在带垂直滚动条的文本框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)EndIfNextNEndSub以下程序用来输出20个在开区间(10,87)中的随机整数R,每行输出4个整数。PrivateSubCommand1_Click()ForI=1To20R=(1)PrintR;If(2)ThenPrintNextIEndSub以下程序在文本框Text1中输入任一字符串,并按相反的次序显示在文本框Text2中。PrivateSubCommand1_Click()DimNAsString,CASString,DASStringN=Text1.TextM=(1)ForI=MTo1Step–1C=Mid(N,I,1)D=D&(2)NextI(3)=DEndSub以下程序用于在单击图片框Picture1时显示图6_1所示的结果。PrivateSubPicture1_Click()Picture1.PrintTab(5);"*"ForI=1To4Picture1.Print(1)NextIForI=3To1Step–1Picture1.Print(2)NextIPicture1.PrintTab(5);"*"EndSub以下程序在窗体上打印出如图6_2示的数据。PrivateSubFonm_Click()ForN=1To6PrintTab(20-3*N);ForM=1To2*N-1IfM<=NThen(1)Else(2)PrintANextMPrintNextNEndSub单击窗体时输出"斐波那契数列"的前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)N<10 (B)N<9 (C)N<10 (D)N<20(2)(A)X1+X2 (B)X2 (C)X1+N (D)X2+N(3)(A)X1+X2 (B)X2 (C)X1+N (D)X2+N单击窗体时输出图6_3所示的图形。从题后供选择的答案中选出正确答案,填入以下程序中相应处,构成完整程序。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