vb考試復(fù)習(xí)5章

1、第5章選擇結(jié)構(gòu)程序設(shè)計(jì) -、選擇題1.下列語(yǔ)句正確的是【(A)lf X 工 Y The n Prin t "X(C)lf X><Y Then Prinit "X2. 下列語(yǔ)句正確的是【】。(A) lf A > B The n T=A A=B B=T(C)lf A>=B The n T=A A=B B=T(B) lf A > B The n T=A;A=B;B=T(D)lf A>=B The n T=A:A=B:B=T3. 下列語(yǔ)句正確的是【】。(A) lf X<3*Y And X>Y The n Y=X3(C) lf X<

2、;3*Y:X>Y The n Y=X3(B) lf X<3*Y And X>Y The n Y=X3(D) lf X<3*Y And X>Y The n Y=X*34. 關(guān)于語(yǔ)句lf x=l Then y=1,下列說(shuō)確的是【】。(A) x=1和y=1均為賦值語(yǔ)句(C) x=1為關(guān)系表達(dá)式,y=1為賦值語(yǔ)句(B) x=1和y=1均為關(guān)系表達(dá)式(D) x=1為賦值語(yǔ)句,y=1為關(guān)系表達(dá)式5.執(zhí)行以下語(yǔ)句后顯示結(jié)果為【Dim x As In tegerlf x Then Print x Else Print x-1(A)1(B)O】。(C) 一 1(D)不確定6.如果X

3、的值小于或等于Y的平方，則打印"0K",表示這個(gè)條件的單行格式lf語(yǔ)句是(A)lf x<=y 2 The n Prin t "OK"(B)lf x<=yA2 Prin t "OK"(C)lf x<=yA2 The n "OK"(D)lf x<=yA2 The n Prin t "OK"】。7.如果A為整數(shù)且|A|=100,則打印"OK",否則打印"Error",表示這個(gè)條件的單行格式 【 】。(A) lf lnt(A)=A And

4、Sqr(A)>=1O Then Print "OK" Else Print "Error"(B) lf Fix(A)=A And Abs(A)>=100 Then Print "OK" Else Print "Error"(C) lf lnt(A)=A And (A>=100,A<=-100) Then Print "OK" Else Print "Error"(D) lf Fix(A)=A And A>=100 And A<=-100 T

5、hen Print "OK" Else Print "Error"lf語(yǔ)句是8.下列程序段【(A)lf X<Y The n A=15A=-15Print A(C)lf X<Y The n A=15:Pri nt AElseA=-15:Pri nt AEnd lf】能夠正確實(shí)現(xiàn)條件：如果X<Y,則A=15,否則A=-15。(B)lf X<Y Then A=15:Print AA=-15Print A(D)lf X<Y Then A=15Else A=-15Print AEnd lf9.能夠?qū)崿F(xiàn)以下分段函數(shù)的程序段是【】。(多選

6、)】。(多選)不等于 Y"(B)lf X<>Y Then Print "X 不等于 Y"不等于 Y" (D)lf X=Y Print "X 不等于 Y"f(x)= 1+X X >OM-X X<O(A) lf X>=O Then Y=1+X Y=1-X(B) lf X > O The n Y=1+X Else Y=1-X(C) lf X>=O The n Y=1+X lf X<O Then Y=1-XEnd lf(D) lf X<O Then Y=1-XY=1-XElse: Y=1+

7、XEnd lf10.下列【 f(x)=sqr(x+1)x 2+3(A) x=Val(Text1.Text) f=x*x+3If x>=1 Then f=Sqr(x+1) Print f(C) x=Val(Text1.Text) If x<1 The n f(x)=x*x*+3 ElseF(x)=Sqr(X+1)End IfPrint f】程序段不能實(shí)現(xiàn)以下分段函數(shù)。（多選）x>1x<1(B) x=Val(Text1.Text)If x>=1Then f=Sqr(x+1)If x<1 Then f=x*x+3Print f(D) x=Val(Text1.Tex

8、t)If x>=1Then f=Sqr(X+1)f=x*x*+3Print f(B) If x>=2 Then y=3 If x>=1 Then y=2 If x>=0 Then y=1If x<0 Then y=0(D) If x>=2 Then y=3ElseIf x>=1 The n y=2ElseIf x>=0 Theny=1Elsey=0End If12.計(jì)算分段函數(shù)：0f(x)=x<00 w x<1 w x<2x >211計(jì)算分段函數(shù)：-0 x<01 0 wx<1 f(x)=2 1w x<2匚

9、 3x >2下面程序段中正確的是【(A) If x<0 Then y=0If x<1 Then y=1If x<2 Then y=2If x>=2 Then y=3(C) If x<0 Theny=0ElseIf x>=0 The ny=1ElseIf x>=1 The ny=2Elsey=2End If(B) Select Case xCase x<O y=0Case x<1 y=1Case x<2 y=2Case Else y=3End Select(D) Select Case x下面程序段中正確的是【(A) Select

10、 Case xCase x<Oy=0Case x>=O And x<1 y=1Case x>=1 And x<2 y=2Case Elsey=3End Select(C) Select Case xCase Is <O y=0Case Is<1 y=1Case Is<2 y=2Case Else y=3 End SelectCase Is<Oy=0Case ls>=0,ls<1 y=1Case ls>=1,ls<2 y=2Case ls>=2 y=3End Select二、判斷程序或程序段的執(zhí)行結(jié)果1. 下列程

11、序段的執(zhí)行結(jié)果為【】。X=2Y=1lf X*Y<1 The n Y=Y-1 Else Y=-1Print Y-X>O(A)True(B)False(C)-12. 下列程序段的執(zhí)行結(jié)果為【】。J1=10J2=30If J1<J2 Then Print J2;Print J1(A)10(B)30(C)10 303. 下列程序段的執(zhí)行結(jié)果為【】。X=5Y=-20If Not X>O The n X=Y-3 Else Y=X+3Print X-Y;Y-X(A)-3 3(B)5 -8(C)3 - 34. 下列程序段的執(zhí)行結(jié)果為【】。A="1"B="2

12、"A=Val(A)+Val(B)B=Val("12")If A<>B Then Print A-B Else Print B-A(A)-9(B)9(C)12-125. 下列程序段的執(zhí)行結(jié)果為【】。A=75If A>6O Then l=1If A>70 Then l=2If A>80 Then l=3If A>90 Then l=4Prin t "l="l(A)l=1(B)l=2(C)l=36. 下列程序段的執(zhí)行結(jié)果為【】。A="abed"B="bcde"E=Right(

13、A,3)F=Mid(B,2,3)If E<F Then Print E+F Else Print F+E(A)cdebcd(B)cdd(C)cdcd7. 下列程序段的執(zhí)行結(jié)果為【】。A=75If A>60 Then(D)1(D)30 10(D)25 -25(D)0(D)l=4(D)bcdcde1=1Elself A>70 Then 1=2Elself A>80 Then l=3Elself A>90then l=4En dlfPrin t "l="l(A)l=1(B)l=2(C)l=3(D)l=48.下列程序段的執(zhí)行結(jié)果為【】A=1:B=OSe

14、lect Case ACase 1Select Case BCase OPrintO*Case lPrintEnd SelectCase 2Prin t "*2End Select(A)*O*(B)*1(C)*2*(D)O9.下列程序段的執(zhí)行結(jié)果為【】。x=l nt(R nd+4)Select Case xCase 5Print "優(yōu)秀”Case 4Print "良好”Case 3Print "通過(guò)”Case ElsePrint " 不通過(guò)”End Select(A)優(yōu)秀(B)良好(C)通過(guò)(D)不通過(guò)三、程序填空1.以下程序用于判斷輸入的年份

15、是否是閏年。如果年份能被 400整除，則該年為閏年；否則不是閏年。Private Sub Comma nd1_Click()y=lnputBox("請(qǐng)輸入年份")If The nPrint y年為閏年”ElsePrint y &"年不是閏年"LEnd lfEnd Sub4整除但不能被100整除,或者年份能被2.下面的程序用于求三個(gè)數(shù)中的最大數(shù)、最小數(shù)。Private Sub Comma nd1_Click()a=Val(lnputBox("請(qǐng)輸入第一個(gè)數(shù)")b=Val(lnputBox("請(qǐng)輸入第二個(gè)數(shù)")

16、C=Val(InputBox(" 請(qǐng)輸入第三個(gè)數(shù)")Max=aMin =aIf b> (1) Then Max=bIf b< (2) Then Min=bIf The n Max=cIf (4) Then Min=cPri 大數(shù)為”;MaxPrint " 最小數(shù)為"MinEnd Sub3. 以下程序判斷從文本框 Text1中輸入的數(shù)據(jù),如果該數(shù)據(jù)滿足條件：除以3余2,除以5余3,除以7余 4,則輸出；否則將焦點(diǎn)定位在文本框Text1中，選中其中的確文本。Private Sub Comma nd1_Click()x=Val(Text1.Text

17、)If (1) ThenPrint xElseEnd IfEnd Sub4. 下面的程序用于根據(jù)文本框A中輸入的容進(jìn)行以下處理：當(dāng)A<6.6時(shí)，打印"A<6.6"當(dāng)A=6.6時(shí),打印"A=6.6"當(dāng) A>6.6 時(shí)，打印"A>6.6"。Private Sub Comma nd1_Click()If ThenPrin t "A<6.6"(2) Val(A.Text)=6.6 The nPrin t "A=6.6"ElsePrin t "A>6.6&qu

18、ot;(3)End Sub5. 下面的程序用于根據(jù)文本框X中輸入的容進(jìn)行以下處理：若X為2、4、6,則打印"X的值為2、4、6"若X為3、5,則打印"X的值為3、5"若X為7、8，則打印"X的值為7、8"否則，打印"X不在 圍”。Private Sub Comma nd1_click()Select Case Val(X.Text)Case (1)Print "X 的值為 2、4、6"Case (2)Print "X 的值為 3、5"Case (3)Print "X 的值為

19、7、8"_(4_Print "X 不在圍”End SelectEnd Sub6.下面程序用來(lái)計(jì)算："A+B(A>5)N= J B/A(A=5).0(A<5)Private Sub Comma nd1_C1ick()A=Val(Text1.Text)B=val(Text2.Text)Select Case ACase N=A+BCase (2)N=B/ACase (3)N=OEnd SelectText3.Text=NEnd Sub第六章循環(huán)結(jié)構(gòu)程序設(shè)計(jì)一、判斷程序或程序段的執(zhí)行結(jié)果1. 下列程序段的執(zhí)行結(jié)果為【】。1=0For G=10 To 19 S

20、tep 31=1+1Next GPrint I(A)4(B)5(C)32. 下列程序段的執(zhí)行結(jié)果為【】。X=0For K=1 To 10 Step 2X=X+KNext KPrint K;X(A)-1 6(B)-1 16(C)1 63. 下列程序段的執(zhí)行結(jié)果為【】。K=0For 1=1 To 3A=IAIAKPrint ANext I(A)1 1 1(B)1 4 9(C)0 0 04. 下列程序段的執(zhí)行結(jié)果為【】。N=10For K=N To 1 Step -1X=Sqr(K)X=X-2Next KPrint X-2(A)-3(B)-1(C)1(D)6(D)11 31(D)1 2 3(D)1.

21、16227765X=1Y=1For 1=1 To 3F=X+YX=YY=FPrint FNext I(A)2 3 6(B)2 2 26. 下列程序段的執(zhí)行結(jié)果為【A="ABBACDDCBA"For 1=6 To 2 Step -2X=Mid(A,l,l)Y=Left(A,l)Z=Right(A,l)Z=X & Y & ZNext IPrint Z(A)ABA(B)AABAAB7. 給出下面程序段的輸出結(jié)果【For X=1.5 To 5 Step 1.5Print XNext X8. 給出下面程序段的輸出結(jié)果【For I=-5 To Lo Step -1 X=

22、X+IPrint XNext I9. 給出下面程序段的輸出結(jié)果【Z="ABCDEFGABCDEFG"For I=6 To 2 Step -3U=Stri ng(I,Z) V=Left(Z,I) W=Mid(Z,I,I) X=Right(Z,I) Y=X+W+V+UNext IPrint U,V,W,X,Y10. 給出下面程序段的輸出結(jié)果【For I=O To 3Print Tab(4*l+1);l;"2" & INext I11. 給出下面程序段的輸出結(jié)果【For l=1 To 7Print Tab(8-I);Stri ng(I,Trim(Str

23、(I) Next I12. 下列程序段的執(zhí)行結(jié)果為【A=0:B=1Do(C)2 3 4】。(C)BBABBA】。】?！?。】。(D)2 3 5(D)ABBABA】。其中,Trim函數(shù)用于去除字符串前后的空格。】。A=A+BB=B+1Loop While A<10Print A;B(A)10 5(B)A B13.下列程序段的執(zhí)行結(jié)果為【1=4A=5Do1=1+1A=A+2Loop Un til l>=7Prin t "I="IPrin t "A="A(A) I=4(B)I=7A=5A=13(C)0 1】。(C)I=8A=7(D)10 30(D)I

24、=7A=1114. 下列程序段的執(zhí)行結(jié)果為【N=OJ=1Do Un til N>2N=N+1J=J+N*(N+1)LoopPrint N;J(A) 0 1(B)3 715. 給出下面程序段的輸出結(jié)果【P=OS=0DoP=P+2S=S+PLoop While P<11Prin t "S="S16. 給出下面程序段的輸出結(jié)果【M1=1M2=1Do While M2<>6M仁 M1*M2M2=M2+1LoopPrint "M 1="M1, "M2="M2】。(C)3 21】。(D)3 13】。17.下列程序段的執(zhí)行結(jié)

25、果為【N=0For I=1 To 3For J=5 To 1 Step -1N=N+1Next JNext IPrint N;J;I】。(A) 12 0 4(B)15 0 4(C)12 3 1(D)15 3 118. 下列程序段的執(zhí)行結(jié)果為【A=0B=0For I=-1 To - 2 Step -1For J=1 To 2B=B+1Next JA=A+1Next IPrint A;B(A) 2 4(B)-2 219. 下列程序段的執(zhí)行結(jié)果為【K=0For J=1 To 2For 1=1 To 3K=I+1Next IFor 1=1 To 7K=I+1Next INext JPrint K(A)

26、10(B)6】。(C)4 2(D)2 3】。For Y=1 To 6-XPrint Tab(Y+5);5Next yPrintNext X(A)*(B)*20.下列程序段的執(zhí)行結(jié)果為【For X=5 To 1 Step -1(C)11(D)16】。(C)*(D) *21.下列程序段的執(zhí)行結(jié)果為【】。S=0:T=0:U=OFor X=1 To 3For Y=1 To XFor Z=Y T0 3S=S+1Next ZT=T+1Next YU=U+1Next XPrint S;T;U(A)3 6 14(B)14 6 3(C)14 3 6(D)16 4 322. 給出下面程序段的輸出結(jié)果【】。For

27、a=1 To 6Print Tab(7-a);For b=1 To 2*a-1Print "*"Next bNext a23. 給出下面程序段的輸出結(jié)果【】。N=1DoFor k=N To 5Prin t "*"Next kPrintN=N+1Loop Un til N>524. 給出下面程序段的輸出結(jié)果【】。For A=O To 1For B=1 To 2For C=2 To 3Print (A=O Or B=1) And (C=2 And A=B) Or Not (C=3);Next CNext BNext A25. 給出下面程序段的輸出結(jié)果【

28、】。Dim i As In teger,j As In teger,k As In tegerk=0For i=O To 10 Step 3For j=1 To 10If j>5 The n k=k+4:Exit Fork=k+1Next jPrint I,kIf i>8 Then Exit ForNext iPrint i,k二、程序填空1. 以下程序用來(lái)產(chǎn)生20個(gè)(0,99)之間的隨機(jī)整數(shù)，并將其中的偶數(shù)打印出來(lái)。Private Sub Comma nd1_Click()Ran domizeFor 1=1 To 20X=I nt(R nd* (1)If X/2=(2) Then

29、 Pri nt XNext IEnd Sub2. 以下程序用來(lái)計(jì)算由鍵盤輸入的N個(gè)數(shù)中正數(shù)之和，負(fù)數(shù)之和，正數(shù)的個(gè)數(shù)，負(fù)數(shù)的個(gè)數(shù)。其中用 C累加負(fù)數(shù)之和，IC累加負(fù)數(shù)的個(gè)數(shù)，D累加正數(shù)之和，ID累明加正數(shù)的個(gè)數(shù)。Private Sub Comma nd1_Click()N=IOC=0:IC=0:D=0:ID=0Fork=I To NA=Val(lnputBox("請(qǐng)輸入 A")If A<0 The n C=：(2)If A>O The n D= (3) : (4)Next kPrint "負(fù)數(shù)的個(gè)數(shù)為：",ICPrint " 負(fù)數(shù)的

30、和為:",CPrint " 正數(shù)的個(gè)數(shù)為：",IDPrint " 正數(shù)的和為:",DEnd Sub3. 下面是一個(gè)體操評(píng)分程序。20位評(píng)委，除去一個(gè)最高分和一個(gè)最低分，計(jì)算平均分(設(shè)滿分為100 分)。Private Sub Comma nd1_Click()Max=0Min=10For I=1 To 20N=Val(InputBox("請(qǐng)輸入分?jǐn)?shù)")If (1) Then Max=NIf (2) Then Min=NS=S+NNext IS= J3)P=S/18Print " 最高分”;Max,"最低分

31、”;MinPrint "最后得分:"PEnd Sub4. 搬磚問(wèn)題:36塊磚，36人搬，男的搬4塊，女的搬3塊,2個(gè)小兒抬1塊，要求1次全部搬完，問(wèn)需男、女、 小兒各多少人。Private Sub Comma nd1_click()For Male =1 To 9For Female =1 To 12For Boy =2 To 36 Step 2If Boy + Female + Male =36 And (1) The nPrint Male,Female,BoyEnd IfNext BoyNext FemaleNext MaleEnd Sub5. 以下程序用于計(jì)算 N=

32、1+(1+3)+(1+3+5)+ +(1+3+5+ +39)。Private Sub Comma nd1_Click()T=OM=1Sum =0DoT=T + (1)Sum = Sum + (2)M=M + 2Loop While J3)Prin t "Sum="SumEnd Sub6. 以下程序用于計(jì)算數(shù)學(xué)表達(dá)式1A2-2A2+3A2-4A2+.+(N-1)A2-NA2Private Sub Comma nd1_Click()N=val(l nputBox(" 請(qǐng)輸入大于零的偶數(shù) N:")S=0I=1C=1DoS=S+C*I*IC= (1)I= _(2

33、)Loop While (3)Prin t "S="SEnd Sub7. 以下程序用于求 5=1+3+3人2+3人3+3A10的值。Private Sub Comma nd1_Click()S= (1)T=1For I=1 To 10T= (2)S=S + TNext IPrin t "S="SEnd Sub8. 以下程序輸入N個(gè)書名，并將書名中含有連續(xù)3個(gè)字母CO的所有書名顯示出來(lái)。Private Sub Comma nd1_Click()n=InputBox("請(qǐng)輸入數(shù)量:")For i=1 To nbookname=lnputB

34、ox("請(qǐng)輸入書名:")l=Le n (1)If l>=3 ThenIf (2) Then Print book nameEnd IfNext iEnd Sub9. 以下程序用于在帶垂直滾動(dòng)條的文本框Textl中輸出3到100之間的全部素?cái)?shù)。Private Sub Comma nd1_Click()Text1.Text ="For N=3 To lOOK=In t(sqr(N)I=2Flag =ODO While I<= (1) And Flag =0If N Mod I=O Then Flag =1 Else I=I+1LoopIf (2) The

35、nText1.Text=Text1.Text & Str(N) & Chr(13) & Chr(10)End IfNext NEnd Sub10. 以下程序用來(lái)輸出20個(gè)在開區(qū)間(10,87)中的隨機(jī)整數(shù)R,每行輸出4個(gè)整數(shù)。Private Sub Comma nd1_Click()For 1=1 To 20R= _(1Print R;If (2) Then Pri ntNext IEnd Sub11. 以下程序在文本框Textl中輸入任一字符串，并按相反的次序顯示在文本框Text2中。Private Sub Comma nd1_Click()Dim N As Stri

36、ng,C AS String,DAS StringN=Text1.TextM= (1)For I=M To 1 Step - 1C=Mid(N,I,1)D=D &Next I=DEnd Sub12. 以下程序用于在單擊圖片框Picture1時(shí)顯示圖6_1所示的結(jié)果。Private Sub Picture1_Click()Picture1.Pri nt Tab(5); "*"For I=1 To 4Picture1.Pri nt (1)Next IFor I=3 To 1 Step - 1Picture1.Pri nt (2)Next IPicture1.Pri nt

37、 Tab(5) ;"*"End Sub13. 以下程序在窗體上打印出如圖6_2示的數(shù)據(jù)。Private Sub Fon m_Click()For N=1 To 6Print Tab(20-3*N);For M=1 To 2*N-1If M<=N The n (1) Else (2)Print ANext MPrintNext NEnd Sub14. 單擊窗體時(shí)輸出”斐波那契數(shù)列”的前20項(xiàng)。該數(shù)列第一項(xiàng)為0,第二項(xiàng)為1,其后每一項(xiàng)的值都是前兩項(xiàng)之和。即：0,1,1,2,3,5,8,13, 從題后供選擇的答案中選出正確答案，填入以下程序中相應(yīng)處，構(gòu)成完整程序。Priva

38、te Sub Fon m_Click()X1=0X2=1N=0Do While (1)Print X1,X2X1= (2)X2= (3)N=LoopEnd Sub供選擇的答案(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+N15. 單擊窗體時(shí)輸出圖6_3所示的圖形。從題后供選擇的答案中選出正確答案，填入以下程序中相應(yīng)處,構(gòu)成完整程序。Private Sub Form_Click()For N=1 To 6Print (1For M=1 To 6卩和t "*&q