vb控制結(jié)構(gòu)綜合練習(xí)

控制結(jié)構(gòu)一、選擇題1.VB的3種結(jié)構(gòu)化程序設(shè)計(jì)的3種基本結(jié)構(gòu)是________。A)選擇結(jié)構(gòu)、過(guò)程結(jié)構(gòu)、順序結(jié)構(gòu) B)遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、順序結(jié)構(gòu)C)過(guò)程結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu)、遞歸結(jié)構(gòu) D)選擇結(jié)構(gòu)、順序結(jié)構(gòu)、循環(huán)結(jié)構(gòu)2.用If語(yǔ)句表示分段函數(shù)，以下________表示方法不正確。A)f=x^3+1 Ifx>=1Thenf=s^3-1 B)Ifx>=1Thenf=x^3-1 Ifx<1Thenf=x^3+1C)Ifx>=1Thenf=x^3-1 f=x^3+1 D)Ifx<1Thenf=x^3+1Else F=x^3-13.執(zhí)行下面的程序段后顯示結(jié)果是________。PrivateSubForm_Click() Dimm IfmThenPrintmElsePrintm+1EndSubA)0 B)1 C)”” D)False4．設(shè)a=6，則執(zhí)行x=IIf(a>5,-1,0)后，x的值為________。A)5 B)6 C)0 D)–15．下面程序段的運(yùn)行結(jié)果是________。cj=85Ifcj>90Thendj="A"Ifcj>80Thendj="B"Ifcj>70Thendj="C"Ifcj>60Thendj="D"Ifcj<60Thendj="E"Print"dj=";djA)dj=B B)dj=C C)dj=D D)dj=E6．下列語(yǔ)句正確的是________。A)IfK<3*NAndk>NThenN=k^3B)IfK<3*NAndk>NThenN=k3C)IfK<3*N:k>NThenN=k^3D)IfK<3*NAndk>NThenN=k**37．設(shè)X=2.0，y=8.0，z=6.0，L=True，則下列VisualBasic表達(dá)式中值為True的是________。A)X+Z>YANDL B)NOT(Y<Z+X)<>NOTLC)NOTLOR(L=Y+X=Z) D)Y+X>=Z+XAND(LANDFALSE)8．要判斷”月收入在2000元以上（含2000元）且5000元以下（不含5000元）”的職工，應(yīng)使用的邏輯表達(dá)式是________。A)M>=2000ANDM<=5000 B)M>=2000ORM<=5000C)M>=2000ANDM<5000 D)M>=2000ORM<50009．下列程序段的執(zhí)行結(jié)果為________。x=Int((69-60)*Rnd+60)SelectCasex CaseIs>90 Print"優(yōu)秀" Case80To89 Print"良好" Case60To79 Print"合格" CaseElse Print"不合格"EndSelectA)優(yōu)秀 B)良好 C)合格 D)不合格10．在窗體上畫一個(gè)命令按鈕，名稱為Command1。然后編寫如下程序：運(yùn)行結(jié)果________。PrivateSubCommand1_Click()ForI=1To4 ForJ=0ToI PrintChr(65+I); NextJ PrintNextIEndSub單擊命令按鈕后，運(yùn)行結(jié)果________。A)BB B)ACCC BBDDDD CCCEEEEE DDDD C)B D)AACC BBBDDD CCCCEEEE DDDDD11．在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：PrivateSubCommand1_Click() DimiAsInteger,nAsInteger Fori=0To50 i=i+3 n=n+1 Ifi>10ThenExitFor Next Text1.Text=Str(n)EndSub程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是________。A)2 B)3 C)4 D)512．在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程：PrivateSubCommand1_Click() Fori=1To4 x=4 Forj=1To3 x=3 Fork=1To2 x=x+6 Nextk Nextj Nexti PrintxEndSub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是________。A)7 B)15 C)157 D)53813．閱讀下面的程序段：Fori=1To3 Forj=1Toi Fork=jTo3 a=a+1 Nextk NextjNexti執(zhí)行上面的三重循環(huán)后，a的值為________。A)3 B)9 C)14 D)2114．在窗體上畫一個(gè)文本框（其Name屬性為Text1），然后編寫如下事件過(guò)程：PrivateSubForm_Load() Text1.Text="" Text1.SetFocus Fori=1To10 Sum=Sum+i Nexti Text1.Text=SumEndSub上述程序的運(yùn)行結(jié)果是________。在文本框Text1中輸出55 在文本框Text1中輸出0C)出錯(cuò) D)在文本框Text1中輸出不定值15．有如下程序：a=10b=4Forj=1To20Step-2 a=a+5 b=b+4NextjPrinta;b運(yùn)行后，輸出的結(jié)果是________。A)104 B)6024 C)11044 D)554016．有如下程序：d$=""a$="abcde" Fori=Len(a)To1Step-1 d=d+Mid(a,i,1) Nexti Printd$ 運(yùn)行后，輸出的結(jié)果是________。A)abcde B)edcba C)acebd D)ecadb17．在Command1_Click事件程序的功能是：按順序讀入10名學(xué)生4門課程的成績(jī)。計(jì)算出每位學(xué)生的平均分并輸出，程序如下：DimnAsInteger,kAsIntegerDimscoreAsSingle,sunAsSingle,aveAsSinglesum=0#Forn=1To10 Fork=1To4 score=InputBox("請(qǐng)輸入一門課的成績(jī)") sum=sum+score Nextkave=sum/4 print"第";n;"個(gè)人的平均成績(jī)?yōu)椋?;aveNextn上述程序運(yùn)行后結(jié)果不正確，調(diào)試中發(fā)現(xiàn)有一條語(yǔ)句出現(xiàn)在程序中的位置不正確。這條語(yǔ)句是________。A)sum=0# B)sum=sum+scoreC)ave=sum/4 D)print"第";n;"人的均分：";ave18．下列程序的輸出結(jié)果是________。DimyAsIntegery=10Whiley<>0 y=y-1WendPrint"y=";y A)y=0 B)y=1 C)y=隨機(jī)值 D)y=-119．以下程序的輸出結(jié)果是________。DimmAsInteger m=1 Whilem<=3 m=m+1 Printm; WendA)2 B)23 C)234 D)234520．下面的程序運(yùn)行結(jié)果是________。PrivateSubForm_Click() m=0 DoUntil0 m=m+1 Ifm>10ThenExitDo Loop PrintmEndSubA)0 B)10 C)11 D)出錯(cuò)21．下面程序運(yùn)行語(yǔ)句Printm執(zhí)行的次數(shù)是________。PrivateSubForm_Click() DimmAsInteger,nAsInteger m=0 Do m=m+1 Forn=10To1Step-3 m=m+n Printm Nextn LoopWhilem<50EndSubA)4 B)8 C)12 D)1622．在窗體上畫兩個(gè)名稱分別為Text1、Text2的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：PrivateSubCommand1_Click() DimxAsInteger,nAsInteger x=1 n=0 DoWhilex<20 x=x*3 n=n+1 Loop Text1.Text=Str(x) Text2.Text=Str(n)EndSub程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別是________。A)15和1B)27和3C)195和3D)600和423．在窗體上畫兩個(gè)文本框（其Name屬性分別為Text1和Text2）和一個(gè)命令按鈕（其Name屬性為Command1），然后編寫如下事件過(guò)程：PrivateSubCommand1_Click() x=0 DoWhilex<50 x=(x+2)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x)EndSub程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為________。A)1和0 B)2和72C)3和50D)4和16824．在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程：PrivateSubCommand1_Click() x=0 DoUntilx=-1 a=InputBox("請(qǐng)輸入A的值") a=Val(a) b=InputBox("請(qǐng)輸入B的值") b=Val(b) x=InputBox("請(qǐng)輸入x的值") x=Val(x) a=a+b+x Loop PrintaEndSub程序運(yùn)行后，單擊命令按鈕，依次在輸入對(duì)話框中輸入5、4、3、2、1、-1，則輸出結(jié)果為________。A)2 B)3 C)14 D)15二、填空題1．執(zhí)行下面的程序，當(dāng)輸入的值為5時(shí)輸出為________。PrivateSubForm_Click() DimxAsSingle x=InputBox("X") Ifx<0Then' y=1:Printy ElseIfx>=0Then y=2:Printy ElseIfx>=1Then y=3:Printy Else y=4:printy EndIfEndSub2．下面的程序?qū)腎nputBox輸入對(duì)話框得到的3個(gè)數(shù)按從大到小輸出。閱讀程序并填空。如果程序運(yùn)行時(shí)分別輸入12.3、35.8和25.7三個(gè)數(shù)，則輸出為________。PrivateSubForm_Click() DimaAsInteger,bAsInteger,cAsInteger a=InputBox("輸入一個(gè)數(shù)") b=InputBox("輸入一個(gè)數(shù)") c=InputBox("輸入一個(gè)數(shù)") Ifb>aThen d=a:a=b:b=d EndIf Ifc>aThen d=a:a=c:c=d EndIf Ifc>bThen EndIf Printa;b;cEndSub3．下列程序運(yùn)行時(shí)，單擊窗體，執(zhí)行結(jié)果為______________________________。說(shuō)明：在窗體上有一個(gè)Label控件，名為lblDate。DimYAsInteger,DAsInteger,W1AsIntegerDimRqAsDateDimW2AsStringPrivateSubForm_Click() Rq=Date Y=Year(Rq):m=Month(Rq):d=Day(Rq) W1=Weekday(x) SelectCaseW1 Case1 W2="日" Case2 W2="一" Case3 W2="二" Case4 W2="三" Case5 W2="四" Case6 W2="五" Case7 W2="六" EndSelectlbldate.Caption="今天是"&Y&"年"&M&"月"&D&"日"&W2EndSub4．執(zhí)行下面的程序段后，s的值為____________。a=5Fori=2.6To4.9Step0.6s=s+1Nexti5．下面是一個(gè)體操評(píng)分程序。20位評(píng)委，除去一個(gè)最高分和一個(gè)最低分，計(jì)算平均分（設(shè)滿分為10分）。Max=0Min=10Fori=1To20 n=Val(InputBox"請(qǐng)輸入分?jǐn)?shù)") If______________ThenMax=n If______________ThenMin=n s=s+nNextis=______________p=s/18Print"最高分";Max,"最低分";MinPrint"最后得分:";p6．下面程序的功能是求1到100的平方和，如果平方和超過(guò)了1000則跳出循環(huán)，輸出此時(shí)的和S。ForI=1To100 s=s+i*i Ifs>1000Then ______________ EndIfnextiabc:Prints7．以下程序段的輸出結(jié)果是____________。num=0Whilenum<=2 num=num+1 PrintnumWend8．以下程序段的輸出結(jié)果是____________。DimjAsInteger,sAsIntegerDo s=s+j j=j+1LoopUntilj=5Print"s=";s9．以下程序段，程序運(yùn)行后，要求執(zhí)行4次循環(huán)。x=1Do x=x+1 print15loopUntil___________10．下列程序運(yùn)行后，內(nèi)層循環(huán)的循環(huán)總次數(shù)___________。Forx=1to4 Fory=1tox PrintyNextyNextx四、程序閱讀題1．寫出下面程序的運(yùn)行結(jié)果。PrivateSubForm_Click() DimsAsInteger,kAsInteger,mAsInteger,nAsInteger s=1 Form=1To3 Forn=mTo3 Fork=nTomStep-1 s=s*k Nextk,n,m PrintsEndSub2．寫出下面程序的運(yùn)行結(jié)果。PrivateSubForm_Click() Fori=3To1Step-1 PrintSpc(10-i); Forj=1To2*i-1 Print"*"; Nextj Print NextiEndSub3．寫出下面程序的運(yùn)行結(jié)果。PrivateSubForm_Click() Fori=1To4 x=4 Forj=1To3 x=3 Fork=1To2 x=x+6 Nextk Nextj Nexti printxEndSub4．寫出下面程序的運(yùn)行結(jié)果。PrivateSubForm_Click() m=0 Do m=m+1 Ifm>10ThenExitDo LoopUntilm<10 PrintmEndSub5．寫出下面程序的運(yùn)行結(jié)果。PrivateSubForm_Click() DimmAsInteger,nAsInteger m=10 Do m=m+n Forn=10Tomstep-1 m=m+n Nextn LoopWhilem<50 Printm;nEndSub6．寫出下面程序的運(yùn)行結(jié)果。PrivateSubForm_Click() DimmAsInteger,nAsInteger,kAsInteger m=1:n=a:k=5 DoWhilem<=k*n m=m*n n=n+1 Printm;n Loop Printm;nEndSub7．寫出下面程序的運(yùn)行結(jié)果。DimiAsInteger,aAsInteger DoWhilei<20 DoWhileTrue IfiMod10=0Then ExitDo Else i=i-1 EndIf Loop i=i+11:a=a+iLoopPrinta五、程序填空題1．下面的程序段是檢查輸入的文字段中大括號(hào)是否配對(duì)，并顯示相應(yīng)的結(jié)果。本程序在文本框中邊輸入，邊統(tǒng)計(jì)大括號(hào)的個(gè)數(shù)，以輸入回車符作為輸入結(jié)束標(biāo)志，然后顯示結(jié)果。Dimcount1%,strAsStringPrivateSubText1_KeyPress(KeyAsciiAsInteger) str= Ifstr="{"Then count1=count1+1 ElseIfstr="}"Then EndIf IfKeyAscii=13Then IfThen Print"左右大括號(hào)配對(duì)" ElseIfThen Print"左大括號(hào)多"；count1;"個(gè)" Else Print"右大括號(hào)多"；-count1;"個(gè)" EndIf EndIfEndSub2．閱讀下面分段函數(shù)及其程序，請(qǐng)?zhí)羁眨?DimxAsSingle,yAsSinglex=inputBox("請(qǐng)輸入x")If(x<-10)Then y=0#ElseIf(x<0)Then y=2*x+20ElseIf()Then y=20ElseIf(x<40)Then ElseIf(x<50)Then y=50-x y=0EndIfPrint"X=";x;"Y=";y3．隨機(jī)產(chǎn)生0~100的整數(shù)作為某門功課的分?jǐn)?shù)，按0~59、60~69、70~89、90~100劃分為不及格、及格、良好、優(yōu)秀4個(gè)層次，閱讀程序并填空。PrivateSubForm_Click() Dimm m=Int(101*Rnd) Printm Printm SelectCasemCase(此空不能超過(guò)5個(gè)字符) Print"不及格" Case6 Print"良好" Case7,8 Print"良好" CaseElse Print"優(yōu)秀" EndSelectEndSub4．下面的程序輸入X的值，按以下公式求Y值。 PrivateSubCommand1_Click() X=Val(Text1.Text) SelectCaseX Case Print"X<-100ORX>200" Case Y=100-X Case Y=100+X Case Y=400 EndSelect Text2.Text=YEndSub5．以下程序是利用公式來(lái)計(jì)算的值。其中，變量k表示當(dāng)前符號(hào)項(xiàng)，t表示當(dāng)前項(xiàng)，n表示當(dāng)前項(xiàng)的序號(hào)，要求精度控制在0.00001內(nèi)。試分析程序，完成空格處填的內(nèi)容。DimpiAsSingle,tAsSingleDimnAsSingle,kAsSinglepi=0:n=1k=1:t=1DoWhile() pi=pi+t k=-k t= n=n+1Looppi=Print"pi=";pi6．下列程序的功能是輸出的前20項(xiàng)，按每行5個(gè)數(shù)的形式輸出。Fibonacci數(shù)列：F1=1,F2=1,Fn=Fn-1+Fn-2(n>=2)DimaAsInteger,bAsIntegerDimcAsInteger,iAsIntegera=1:b=1:i=3Printa,b,DoWhile(i<=20)c=a+ba=bb=cIfThenPrintEndIfLoop7