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