VB控制結(jié)構(gòu)試題

《VB控制結(jié)構(gòu)試題》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。

VB控制結(jié)構(gòu)ー、單選題1.下面的程序運(yùn)行后,顯示的結(jié)果是〇Dimx%IfxThenPrintx+1ElsePrintxA)1B)0C)顯示錯(cuò)誤信息D)22.語(yǔ)句!fx=1Theny=1?下面說(shuō)法正確的是A)x=1和y=1均為賦值語(yǔ)句B)x=1和y=!均為關(guān)系表達(dá)式C)x=1為賦值語(yǔ)句,y二1為關(guān)系表達(dá)式D)x=1為關(guān)系表達(dá)式,y二!為賦值語(yǔ)句3.下面分段函數(shù),下面不正確的程序段是0A)Ifx》二1thenf=sqr(x+1)f=x*x+3B)Ifx》二1thenf=sqr(x+1)Ifx《Ithenf=x*x+3C)Ifx》二1thenf=sqr(x+1)_

1Elsef=x*x+3Elsef=sqr(x+1)2.計(jì)算函數(shù)的值。,下面程序段中正確的是ーA)Ifx《〇theny=0Ifx《1theny=1Ifx《2theny=2Ifx》二2theny=3B)Ifx》二2theny=3Ifx》二1theny=2Ifx》〇theny=1Ifx《〇theny=0C)Ifx《〇theny=0Elselfx》〇theny二!Elselfx》1theny=2Elsey=3EndIf

2A)Ifx》二2theny=3Elselfx》二0theny=1Elsey=0EndIf5.下面的程序段,顯示的結(jié)果是Dimxx=Int(RnD)+5SelectCasexCase5Print“優(yōu)秀”Case4Print“良好”Case3Print“及格”CaseElsePrint“不及格”EndSelect

3A)不及格B)良好D)優(yōu)秀6.下面程序段求兩個(gè)數(shù)中較大數(shù),不正確。A)Max=HF(x》y,x,y)B)Ifx》yThenMax=xElseMax=yC)Max=xIfy》二xMax二yD)Ify》二xMax-yMax二x7.下列循環(huán)語(yǔ)句能正常結(jié)束的是〇A)i=5Do1=i+1LoopUntili《〇B)i=1Do1=i+2LoopUntili=10C)i=10

4Do1=i-1LoopUntili《〇

5Doi=i-2LoopUntili=18.下面的程序段的運(yùn)行結(jié)果是ーFori=3To1Step-1PrintSpc(5-i)Forj=1To2*i-1Print"$”；NextjPrintNextiA)$$$$B)$$$$$$$$$C)$$$$$$$$$D)$$$$$$$$9,下列程序當(dāng)在文本框輸入“ABCD”時(shí),窗體1二顯示的是—

6PrivateSubTextlChange()PrintTextl.Text；EndSubA)ABCDB)ABCDC)AABABCABCDD)AABABCABCD10.下列哪個(gè)程序段不能正確顯示1!、2!、3!、4!的值ーA)fori=1to4n=1forj=1toin=n*jnextjprintn

7nextiA)fori=1to4forj=1toin=1n=n*jnextjprintnnextiB)n=1forj=1to4n=n*jprintnnextjC)n=1j=1dowhilej《二4n-n*jprintnj=j+1loop11.下列程序段的執(zhí)行結(jié)果為

8A=O:B=1A=A+B:B=B+A:PrintA;BA=A+B:B=B+A:PrintA;BA)1235B)1135C)1334D)123412.變量未賦值時(shí),數(shù)值型變量的值為〇A)0B)空串C)NullD)沒(méi)任何值13.在窗體上畫(huà)一個(gè)名稱為Commandl的命令按鈕,然后編寫(xiě)如下事件過(guò)程:PrivateSubCominandl_Click()Forn=lTo20IfnMod300thenm=m+n\3NextnprintnEndsub程序運(yùn)行后,如果單擊命令按鈕,則窗體上顯示的內(nèi)容是,A)15

9A)18B)21C)2412.窗體中存在命令按鈕Command1?其Click事件代碼如下:PrivateSubCommandl_Click()X二2Y二1IfX*Y《1ThenY=Y-1ElseY二一1PrintY-X》〇EndSub程序運(yùn)行后,單擊命令按鈕,輸出結(jié)果為〇A)TrueB)FalseC)-1D)115.設(shè)a=5,b=6,c=7,d=8J執(zhí)行下列語(yǔ)句后,x的值為x=IIf((a》B)And(c》D),10,20)A)10B)20C)True

10D)False16.執(zhí)行以下程序段a$-"abbacddcba”Fori=6To2Step-2X=Mid(a,i,i)Y=Left(a,i)Z=Right(a,i)Z=UCase(X&Y&Z)NextiPrintz輸出結(jié)果為〇A)ABAB)BBABBAC)ABBABAD)AABAAB17.在窗體上畫(huà)一個(gè)名稱為Command].的命令按鈕,然后編寫(xiě)如下事件過(guò)程:PrivateSubComniandl_Click()c二1234cl=Trim(Str(C))Fori=lTo4PrintNext

11EndSub程序運(yùn)行后,單擊命令按鈕，要求在窗體上顯示如下內(nèi)容:1121231234則在下劃線處應(yīng)填入的內(nèi)容為。A)Right(cl,i)B)Left(cl,i)C)Mid(cl,i,1)D)Mid(cl,i,i)18.InputBox函數(shù)返回值的類型為。A)數(shù)值B)字符串〇變體D)數(shù)值或字符串(視輸入的數(shù)據(jù)而定)19.MsgBox函數(shù)返回值的類型為。A)整型數(shù)值B)字符串C)變體D)數(shù)值或字符串(視輸入的數(shù)據(jù)而定)

1218.窗體上畫(huà)一個(gè)命令按鈕和一個(gè)文本框,其名稱分別為command1和textL把文本框的text屬性設(shè)置為空白,然后編寫(xiě)如下事件過(guò)程」PrivateSubCommand1Click()a=InputBox(EnteranInteger)b=InputBox("EnteranInteger)TextLText=b+aEndSub程序運(yùn)行后,單擊命令按鈕,如果在輸入對(duì)話框中分別輸入8和10,則文本框中顯示的內(nèi)容是〇A)108B)180810D)出錯(cuò)21.在窗體上畫(huà)一個(gè)名稱為Commandl的命令按鈕,然后編寫(xiě)如下事件過(guò)程:PrivateSubCommandl_Click()DimaAsInteger,sAsIntegera-8s=lDos=s+aa=a-lLoopWhilea《ニ〇Prints;a

13EndSub程序運(yùn)行后,單擊命令按鈕,則窗體上顯示的內(nèi)容是ーA)79B)340C)97D)死循環(huán)21.下面程序段的執(zhí)行結(jié)果為〇1二4A=5Do1=1+1A=A+3LoopUntilI》二9Print“I二”；IPrint“A二”；AA)1=9B)1=10C)1=10D)1=9A=20A=20A=23A=2322.以下能夠正確計(jì)算n!的程序是0A)PrivateSubCommandl_Click()N=5：X=1Do

14LoopWhilei《nPrintxEndSubA)PrivateSubCommandl_Click()N=5：x=1：i=1Dox=x*ii=i+1LoopWhilei《nPrintxEndSubB)PrivateSubCommand1_Click()N=5：x=1：i=1Dox=x*ii=i+1LoopWhilei《二nPrintxEndSubC)PrivateSubCommand1_Click()Dox=x*ii=i+1LoopWhilei》nPrintxEndSub24.在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕,然后編寫(xiě)如下事件過(guò)程:

15PrivateSubCommandl_Click()DimnumAsIntegernum=lDoUntilnum》6Printnum;num=num+2.4LoopEndSub程序運(yùn)行后,單擊命令按鈕,則窗體上顯示的內(nèi)容是。A)13.45.8B)1350147D)無(wú)數(shù)據(jù)輸出24.設(shè)有如下程序段Fori=1to10step2x=x+iNext運(yùn)行以上程序后,X的值是〇A)36B)27C)38D)57

1624.在窗體上畫(huà)一個(gè)名稱為T(mén)extl的文本框和一個(gè)名稱為Command1的命令按鈕,然后編寫(xiě)如下事件過(guò)程:PrivateSubCommandlClick()DimiAsInteger,nAsIntegerFori二0To50i=i+3n=n+1Ifi》10ThenExitForNextTextl.Text=Str(n)EndSub程序運(yùn)行后,單擊命令按鈕,在文本框中顯示的值是0A)2B)3

17D)527.下列程序段的執(zhí)行結(jié)果為X=6ForK=1To10Step-2X-X+KNextKPrintK;XA)-16B)-116C)16D)113128.執(zhí)行以下程序段DimxAsInteger,iAsIntegerx二。Fori=20To1Step-2x=x+i\5Nexti后,x的值為。A)16B)17

18D)1929.在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕和一個(gè)名稱為T(mén)extl的文本框,然后編寫(xiě)如下事件過(guò)程:PrivateSubCommandl_Click()n=Val(Textl.Text)Fori=2TonForj=2ToSqr(i)IfiModj=0ThenExitForNextjIfj》Sqr(i)ThenPrintiNextiEndSub該事件過(guò)程的功能是〇A)輸出n以內(nèi)的奇數(shù)B)輸出n以內(nèi)的偶數(shù)〇輸出n以內(nèi)的素?cái)?shù)D)輸出n以內(nèi)能被j整除的數(shù)30.新建立窗體中畫(huà)一個(gè)命令按鈕,其中事件代碼如下:Forx=4To1Step-1Fory=lTo5-xPrintTab(y+5);；

19PrintNextx窗體運(yùn)行后,單擊命令按鈕,輸出結(jié)果是?A)**********B)**********C)**************D)****31.在窗體上畫(huà)一個(gè)命令按鈕,然后編寫(xiě)如下事件過(guò)程:PrivateSubCommandl_Click()

20Fori=lTo4

21x=3Fork=lTo2x=x+6NextkNextjNextiPrintxEndSub程序運(yùn)行后,單擊命令按鈕,輸出結(jié)果是〇A)7B)15C)157D)53831.在窗體上有一個(gè)命令按鈕,并有如下代碼,程序執(zhí)行后,單擊命令按鈕輸出結(jié)果為0PrivateSubCommandIClick()K=0ForJ=1To2For1=1To3K=I+1NextI

22For1=1To7K=K+1NextINextJPrintKEndSubA)10B)6C)11D)1631.在窗體上畫(huà)一個(gè)命令按鈕和兩個(gè)標(biāo)簽,其名稱分別為CommandDLabe11和Label2,然后編寫(xiě)如下事件過(guò)程:PrivateSubCommandl_Click()a=0Fori=lTo10a=a+lb=0Forj=lTo10a=a+lb=b+2Nextj

23Label1.Caption=Str(A)Labe12.Caption=Str(B)EndSub程序運(yùn)行后,單擊命令按鈕,在標(biāo)簽Labell和Label2中顯示的內(nèi)容分別是。A)10和20B)20和110C)200和110D)110和2031.有一個(gè)分段函數(shù),當(dāng)X《〇時(shí),Y-1I當(dāng)X=0時(shí),Y=0;當(dāng)X》〇時(shí),丫二1。該分段函數(shù)在程序段中可表達(dá)為〇A)IfX《〇ThenY=-lIfX=0ThenY二。ElseY=1B)IfX》〇ThenY=1IfX=0ThenY=0ElseY=-1C)IfX《〇ThenY=-lElselfX=0ThenY=0ElseY=1EndIfD)IfX《〇ThenY=-l

24Y=0ElseY=1Endif31.下列語(yǔ)句正確的是?A)IfX《3*Y,X》YThenY=X3B)IfX《3*YAndX》YThenY=X3C)IfX《3*Y：X》YThenY=X3D)IfX《3*YAndX》YThenY=X**332.下列程序的執(zhí)行結(jié)果為。A=75IfA》60Then1=1ElselfA》70Then1=2ElselfA》80Then1=3ElselfA》90Then1=4Endlf

25B)1=2C)1=3D)1=437.設(shè)@=丘”，b=“b"，c="c"，d=“d”,執(zhí)行語(yǔ)句x=IIf((a《B)Or(c》D),“A”，“B”)后,x的值為.A)“a”B)“b”C)“B”D)“A”38.在窗體上畫(huà)一個(gè)命令按鈕,名稱為Commandl。然后編寫(xiě)如下程序:PrivateSubCommand1Click()for1=1To4ForJ=0ToIPrintChr$(65+1);NextJPrintNextIEndSub程序運(yùn)行后,如果單擊命令按鈕,則在窗體上顯示的內(nèi)容為是〇A)BBCCC

26DDDDEEEEEA)ABBCCCDDDDB)BCCDDDEEEEC)AABBBCCCCDDDDD37.有如下程序:PrivateSubForm_Click()xcase=lt=InputBox(“請(qǐng)輸入ー個(gè)數(shù):")SelectCasetCaseIs》0Y=xcase+1

27CaseIs=OY二xcase+2CaseElseY=xcase+3EndSelectPrintxcase;YEndSub若輸入T,輸出結(jié)果為:A)14B)13C)12D)1137.下列程序段中,若要使輸出結(jié)果為輸入的兩個(gè)數(shù)中較大者的平方,空白處應(yīng)填寫(xiě)語(yǔ)句。x=Val(InputBox(“請(qǐng)輸入x的值:"))y=Val(InputBox(“請(qǐng)輸入y的值:"))s=s*sPrintsA)If(xB)Ifx》yThens=yC)If(xD)Ifx》ys=y41.設(shè)X初值為〇,則下列循環(huán)語(yǔ)句執(zhí)行后,X的值等于ー

28Fori=lTo10Step2X=X+INextiA)25B)36C)24D)2741.執(zhí)行以下程序段時(shí),〇x=lDoWhilex00x=x*xprintx;LoopA)循環(huán)體將執(zhí)行1次B)循環(huán)體將執(zhí)行。次C)循環(huán)體將執(zhí)行無(wú)限次D)系統(tǒng)將提示語(yǔ)法錯(cuò)誤42.設(shè)窗體中包含1個(gè)命令按鈕Command1,1個(gè)標(biāo)簽Label1;并有以下的事件過(guò)程。程序運(yùn)行后,單擊Commandl按鈕,標(biāo)簽中顯示的內(nèi)容是,PrivateSubComniandl_Click()DimIAsInteger,nAsInteger1=1：n=0DoWhile1《10

291=1*(1+1)LoopLabel1=1&”-"&nEndSubA)6-3B)24-9C)42-9D)6-944.有劃下程序:Do循環(huán)體LoopWhile《條件》則以下敘述中錯(cuò)誤的是〇A)若“條件"是ー個(gè)為O的常數(shù),則ー次也不執(zhí)行循環(huán)體8)“條件”可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù)〇循環(huán)體中可以使用ExitDo語(yǔ)句D)如果“條件”總是為T(mén)rue,則不停地執(zhí)行循環(huán)體45.有如下程序:Fori=1to3

30Forj-5to1Step-1

31NextjNexti則語(yǔ)句Printi*j的執(zhí)行次數(shù)是ー。A)15B)16C)17D)1844.在窗體上畫(huà)一個(gè)命令按鈕,名稱為Commandl,然后編寫(xiě)如下事件過(guò)程:PrivateSubCommandl_Click()DimiAsInteger,xAsIntegerFori=1To6Ifi=1Thenx=iIfi《二4Thenx=x+1Elsex=x+2EndIfNextiPrintxEndSub程序運(yùn)行后,單擊命令按鈕,其輸出結(jié)果為〇

32A)9B)6C)12D)1547,在窗體上畫(huà)一個(gè)名稱為Conunandl的命令按鈕,然后編寫(xiě)如下事件過(guò)程:PrivateSubCommandl_Click()c二"ABCD”Forn=1To4PrintNextEndSub程序運(yùn)行后,單擊命令按鈕,要求在窗體上顯不如下內(nèi)容:DCDBCDABCD則在處應(yīng)填入的內(nèi)容為〇A)Left(c,n)B)Right(c,n)C)Mid(c,n,1)D)Mid(c,n,n)48.如果A為整數(shù),且|A|》-100I則打印“OK”,否則打印“Error”,表示這個(gè)條件語(yǔ)句的單行語(yǔ)句是。

33A)IfInt(A)=AAndSqr(A)》=100ThenPrint"Ok"ElsePrint"Error"B)IfInt(A)=AAnd(A》=100,A《=T00)ThenPrint"Ok"ElsePrint"Error"C)IfFix(A)=AAndAbs(A)》=100ThenPrint"Ok"ElsePrint"Error"D)IfFix(A)=AAndA?=100AndA<=-100ThenPrint"0k"ElsePrint"Error"49.在窗體上畫(huà)一個(gè)命令按鈕和一個(gè)文本框,名稱分別為Command1和Text1,然后編寫(xiě)如下程序:PrivateSubCommandl_Click()a=InputBox("請(qǐng)輸入日期(C31)")t="旅游景點(diǎn):"&Ilf(a》0Anda《=10,"長(zhǎng)城"，"")一&Ilf(a》!0Anda《=20,"故宮"，"")一&Ilf(a》20Anda《=30,"頤和園"，"")Textl.Text=tEndSub程序運(yùn)行后,如果從鍵盤(pán)輸入16,則在文本框中顯示的內(nèi)容是。A)旅游景點(diǎn)：長(zhǎng)城故宮B)旅游景點(diǎn)：長(zhǎng)城頤和園〇旅游景點(diǎn):頤和園D)旅游景點(diǎn)：故宮50.下列程序段顯示個(gè)"才'。Fori=Ito5Forj=2to5Print

34NextjNextiA)25B)10C)20D)15在51.要使下面程序段能正確顯示1!、2!、3!、4!的值,第一行橫線處應(yīng)填寫(xiě)Forj=lto4n=n*jPrintnNextjA)n=0B)n=lOj=1D)產(chǎn)。52.在窗體上畫(huà)一個(gè)名稱為Commandl的命令按鈕,然后編寫(xiě)如下事件過(guò)程:PrivateSubCommandl_Click()a="ABBACKDIEKEI”ForI=9To2Step-3x=Mid(a,I,I)

35y=Left(a,I)z=Right(a,I)z=x&y&zNextIPrintzEndSub程序運(yùn)行后,如果單擊命令按鈕,則輸出結(jié)果是〇A)BACABBKEIB)EKEIABBACKDIEAACKEIEKEIC)DEIEKEIABBACKDIEKEID)ACKABBKEI52.在窗體上畫(huà)一個(gè)名稱為Commandl的命令按鈕,然后編寫(xiě)如下事件過(guò)程:PrivateSubCommandl_Click()Ml=lM2=2DoWhileM2《》5M1=M1*M2M2=M2+1LoopPrint“Ml二”；ML“M2二”;M2EndSub

36程序運(yùn)行后,如果單擊命令按鈕,輸出結(jié)果是。A)Ml=24M2=5B)Ml=1M2=2C)Ml二24M2=5D)Ml=1M2=254.閱讀下面的程序段:Fori=lTo3Forj=lToiFork=jTo3a=a+lNextkNextjNexti執(zhí)行上面的三重循環(huán)后,a的值為〇A)3B)9C)14D)2155.在窗體上畫(huà)兩個(gè)文本框(其Name屬性分別為T(mén)extl和Text2)和一個(gè)命令按鈕(其Name屬性為Commandl),然后編寫(xiě)如下事件過(guò)程:

37PrivateSubCommandlClick()x=0DoWhilex《50x=(x+2)*(x+3)n=n+lLoopTextl.Text=Str(n)Text2.Text=Str(x)EndSub程序運(yùn)行后,單擊命令按鈕,在兩個(gè)文本框中顯示的值分別為。A)1和0B)2和72C)3和50D)416854.在窗體上畫(huà)兩個(gè)名稱分別為T(mén)extl、Text2的文本框和一個(gè)名稱為Commandl的命令按鈕,然后編寫(xiě)如下事件過(guò)程:PrivateSubCommandl_Click()DimxAsInteger,nAsIntegerx=ln=0DoWhilex<20x=x*3n=n+l

38LoopTextl.Text=Str(x)&a,mp;n,bsp;Text2.Text=Str(n)EndSub程序運(yùn)行后,單擊命令按鈕,在兩個(gè)文本框中顯示的值分別是ーA)15和1B)27和3〇195和3D)600和457,下列語(yǔ)句組中,不能循環(huán)100次的有〇A)N=0D0N=N+1LOOPUNTILN》=100B)N=0DON=N+1LOOPWHILEN<100C)N=0DON=N+1

39LOOPUNTILNU00D)N=0DOWHILEN?100N=N+1LOOP58.假定有如下事件過(guò)程:PrivateSubFormClick()DimxAsIntegerx=lnニ〇DoWhilex《28x=x*3n=n+lLoopPrintx,nEndSub程序運(yùn)行后,單擊窗體,輸出結(jié)果是。A)814B)563C)281D)2435

4058.新建窗體上新建立一個(gè)命令按鈕,其中有如下事件代碼:PrivateSubCommandl_Click()ForG=10To19Step31=1+1NextGPrintIEndSub窗體運(yùn)行后,單擊命令按鈕,輸出結(jié)果為〇A)3B)4C)5D)660.在窗體上畫(huà)一個(gè)名稱為Commandl的命令按鈕,然后編寫(xiě)如下事件過(guò)程:PrivateSubCommandl_Click()x=InputBox("input")SelectCasexCase1,3Print“分支1"CaseIs》4Print“分支2”CaseElse

41Print"Else分支”EndSub程序運(yùn)行后,如果在輸入對(duì)話框中輸入2,則窗體上.顯示的是〇A)分支1B)分支2C)Else分支D)程序出錯(cuò)61.以下Case語(yǔ)句中錯(cuò)誤的是〇A)Case0To10B)CaseIs》10C)CaseIs》10AndIs《50D)Case3,5,Is》1062.在窗體上畫(huà)一個(gè)名稱為Commandl的命令按鈕,然后編寫(xiě)如下事件過(guò)程:PrivateSubCommandl_Click()x=0n二!nputBox("")Fori=1TonForj=1Toix=x+1NextjNextiPrintx

42程序運(yùn)行后,單擊命令按鈕,如果輸入3,則在窗體上顯示的內(nèi)容是ーA)3B)4C)5D)6E).下列程序代碼,執(zhí)行后單擊鼠標(biāo)結(jié)果為ー。PrivateSubForm_Click()A=0：B=0ForI=-1To-2Step-1ForJ=1To2B=B+1NextJA=A+1NextIPrintA;BEndSubA)24B)-22C)42D)2364.PrivateSubFormClick()

43DimCheck,Counter

44Check=ODoDoWhileCounter《20Counter=Counter+lIfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounter,CheckEndSub程序運(yùn)行后,單擊窗體,輸出結(jié)果為ーA)150B)20-1C)10TrueD)10False64.設(shè)有如下程序:PrivateSubCommandl_Click()DimsumAsDouble,XAsDoublesum=0

45Fori=lTo5x=n/in=n+lsum=sum+xNextEndSub該程序通過(guò)For循環(huán)計(jì)算ー個(gè)表達(dá)式的值,這個(gè)表達(dá)式是ーA)1+1/2+2/3+3/4+4/5B)1+1/2+2/3+3/4C)1/2+2/3+3/4+4/5D)1+1/2+1/3+1/4+1/564.有如下程序:PrivateSubForm_Click()DimiAsInteger,SumAsIntegerSum=0Fori=2to10IfiMod200AndiMod3=0ThenSum=Sum+iEndIfNextiPrintSum

46程序運(yùn)行后,單擊窗體,輸出結(jié)果為〇A)12B)30024D)1864.設(shè)有如下程序PrivateSubCommandl_Click()DimcAsInteger,dAsIntegerc=4d-InputBox(“請(qǐng)輸入ー個(gè)整數(shù)”)DoWhiled》0Ifd》cThenc=c+lEndIfd=InputBox(“請(qǐng)輸入ー個(gè)整數(shù)”)LoopPrintc+dEndSub程序運(yùn)行后,單擊命令按鈕,如果在輸入對(duì)話框中依次輸入1、2、3、4、5、6、7,8,9、0?則輸出結(jié)果是。A)12B)11

47D)968.下列程序段的執(zhí)行結(jié)果為。N=10ForK=NTo1Step-1X=Sqr(K)X二X-2NextKPrintX-2A)-3B)-1C)1D)1.1622776569,在窗體上畫(huà)一個(gè)名稱為Commandl的命令按鈕,ー個(gè)名稱為L(zhǎng)abell的標(biāo)簽,然后編寫(xiě)如下事件過(guò)程:PrivateSubCommandl_Click()s二0Fori=1To15x=2*i-1IfxMod3=0Thens=s+1NextiLabell.Caption=s

48EndSub程序運(yùn)行后,單擊命令按鈕,則標(biāo)簽中顯示的內(nèi)容是〇A)1B)5〇27D)4570.在窗體上畫(huà)一個(gè)命令按鈕,然后編寫(xiě)如下事件過(guò)程:PrivateSubCommandl_Click()x=0DoUntilx=-la=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+xLOOPPrintaEndSub程序運(yùn)行后,單擊命令按鈕,依次在輸入對(duì)話框中輸入5、4、3、2、1、T,輸出結(jié)果

49A)2B)3C)14D)1571.語(yǔ)句:If表達(dá)式Then……中的表達(dá)式不可以是表達(dá)式。A)算術(shù)B)邏輯C)關(guān)系D)字符72,下列語(yǔ)句執(zhí)行后,變量w的值是。W-Choose(weekday(n2009,4,1"),"Red","Green","Blue","Yellow")A)NullB)RedC)BlueD)Yellow73.下面if語(yǔ)句統(tǒng)計(jì)滿足性別為男、職務(wù)為副教授以上、年齡小于40歲條件的人數(shù),不正確的語(yǔ)句是。A)ifsex="男"Andage《40AndInStr(duty,"教授‘')》〇Thenn=n+lB)ifsex="男"AndageGOAnd(duty="教授"Orduty="畐殿授")Thenn=n+lC)ifsex="男"Andage《40AndRight(duty,2)="教授"Thenn=n+lD)ifsex="男"Andage《40Andduty="教授"Andduty="副教授"Thenn=n+l74.關(guān)于Do-Loop循環(huán)結(jié)構(gòu)執(zhí)行循環(huán)體次數(shù)的描述正確的是〇A)DoWhile…Loop循環(huán)和D〇…LoopUntil循環(huán)至少都執(zhí)行一次

50A)DoWhile…Loop循環(huán)和D〇…LoopUntil循環(huán)可能都不執(zhí)行B)DoWhile…Loop循環(huán)至少執(zhí)行ー次,D〇…LoopUntil循環(huán)可能不執(zhí)行C)DoWhile…Loop循環(huán)可能不執(zhí)行,D〇…LoopUntil循環(huán)至少執(zhí)行一次73.下面的程序段的運(yùn)行結(jié)果是〇PrivateSubCommand1ClickFori=lTo5n=0Forj=iTo5n=n+lNextjNextiPrintnEndSubA)1B)5C)10D)15二、填空題1.下面程序的輸出結(jié)果是ー[1]ー〇x=Int(RnD)+3Ifx'2》8Theny=x*2+1

51Ifx-2=9Theny=x^2-2Ifx2《8Theny=x31.下面程序的功能是.【2】〇Dimn%,m%PrivateSubTextl_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIfIsNumeric(Textl.Text)ThenSelectCaseTextl.TextMod2Case0n=n+Textl.TextCase1m=m+Textl.TextEndSelectEndIfTextl.Text=Textl.SetFocusEndIfEndSub2.下面的程序是檢查輸入的算術(shù)表達(dá)式中圓括號(hào)是否配對(duì)。并顯示相應(yīng)的結(jié)果。本程序在文本框輸入表達(dá)式,邊輸入邊統(tǒng)計(jì),以輸入回車作為表達(dá)式輸入結(jié)束。DimCount1%PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

52IfChr(KeyAscii)Then[3]ElselfChr(KeyAscii)=”ThenCount1=Count1一!EndIfIfKeyAscii=13ThenIfCount1=0ThenPrint”左右括號(hào)配對(duì)”Elself[4]ThenPrint”左括號(hào)多于右括號(hào)’'；Count1;“個(gè)”ElsePrint”右括號(hào)多于左括號(hào)”；-Count1;“個(gè)”EndIfEndIfEndSub4.要使下列語(yǔ)句執(zhí)行20次,循環(huán)變量的初值應(yīng)當(dāng)是—[5]Fork=To-5Step-25.下面程序段顯示ー[6]個(gè)“*”Fori=1to5Forj=2toiPrint“*”

53Nextj

544.下面程序第40句共執(zhí)行了一[7]一次。第41句共執(zhí)行了一[8]一次。30Forj=1to12step340Fork=6to2step-241Printj,k42Nextk42Nextj7.下面程序的運(yùn)行后輸出結(jié)果是ー[9]〇PrivateSubCommand_Click()Fori=0to3PrintTab(5*i+l)；“2”+i；“2”&i：NextiEndSub8.輸入任意長(zhǎng)度的字符串,要求將字符順序倒置,例如“ABCDEFG”變換為“GFEDCBA”。PrivateSubCommandl_Click()Dima$,i%,c$a=InputBox("輸入字符串”)n=Len(A)Fori=1ToInt(n/2)c=Mid(a,i,1)

55[10]

56NextiPrintaEndSub9.下面程序運(yùn)行后輸出的結(jié)果是ー【12】.PrivateSubCommand_Click()a$="ド:b$二"$”Fori=1to4IfiMod2=0Thenx$=String(Len(a$)+i,b$)Elsex$=String(Len(a$)+i,a$)EndifPrintx$;EndSub10.執(zhí)行下面的程序,輸出的結(jié)果是[13]OptionExplicitPrivateSubForm_Click()DimIasinteger,jasIntegerj=10Fori=1tojstep21=i+1

57NextiPrinti；jEndSub11.以下程序循環(huán)的執(zhí)行次數(shù)是ー【14】—。aニ〇DoWhilea《二10a=a+2Loop12.窗體上有一個(gè)命令按鈕和一個(gè)文本框,命令按鈕事件代碼如下:PrivateSubCommandl_Click()X=1y=1Textl.Text=For1=1To3F=X+yX=yy=FTextl.Text=Textl.Text+Str(y)NextIEndSub該程序運(yùn)行后,文本框的內(nèi)容是ー【15】ー13.執(zhí)行下面的程序段后,變量S的值為ー【16】—。

58Fori=2.6To4.9Step0.6S=S+1Nexti14.下面程序段的輸出結(jié)果為。**********試將程序段填寫(xiě)完整。PrivateSubCommandl_Click()[17]—【18】—Print_[19];NextbPrintNextaEndSub15.執(zhí)行下列程序段后,達(dá)到ー【20】_的目的。A=100

59B=50A=A+BB=A-BA=A-B3.在窗體上畫(huà)一個(gè)命令按鈕,然后編寫(xiě)如下事件過(guò)程:PrivateSubCommand1Click()Fori=lTo10x=3Forj=lTo3x=x+3NextjNextiPrintxEndSub程序運(yùn)行后,單擊命令按鈕,輸出結(jié)果是。A.9B.12C.90D.934.下列程序的功能為輸出如下的圖形。程序不完整,請(qǐng)?jiān)冢?］ヽ［2I處填入所需內(nèi)容。

60Fori=lTo4PrintTab(10+i)；Forj=[1]Print”;[2]PrintNextiEndSub5,下面程序執(zhí)行后,x的值為a=10:b=0DoWhilea-ba=a-lb=b+lx=x+a+bloopA.30B.40C.50D.606.假定有下面的程序段:Fori=lTo3Forj=lTo1Fork=jTo3Printi=;i,j=;,j,k=;kNextkNextjNexti

61這是ー個(gè)三重循環(huán)程序,在這個(gè)程序中,外層、中層和內(nèi)層循環(huán)的循環(huán)次數(shù)是A.3、6和14B.3、8和16C.3、4和12D.3、9和187.在窗體上畫(huà)一個(gè)命令按鈕,然后編寫(xiě)如下事件過(guò)程:PrivateSubCommand1_C1ick()b=0DoUntilb<0a=Vai(InputBox("輸入a的值”))b=Vai(InputBox("輸入b的值”))a=a+bLoopPrintaEndSub程序運(yùn)行后,依次輸入5、4、3、2、1、0、ー1、?2,則輸出結(jié)果是A.15B.12C.1D.-38.在窗體中添加命令按鈕,編寫(xiě)如下程序:PrivateSubCommand1C1ick()a=0Form=lTo10a=a+lb=0Forj=lTo10a=a+lNextj

62NextmPrinta,bEndSub單擊命令按鈕,程序的執(zhí)行結(jié)果為?A.10,20B.20,110C.110,20D.200,1107.閱讀下面程序段:DimLnAsSingle,mAsSingleDimkAsInteger,tAsSinglek=0.0:Ln=0.0:m=1.0:t=1.0x!=Vai(InputBoxC輸入x的值”))Dok=k+1:t=t*xs=m*t/k:Ln=Ln+sm=-mLoopWhilek

63c=4:d=Val（InputBox（"請(qǐng)輸入ー個(gè)數(shù)”））DoWhiled>0Ifd>cThenc=c+ld=Val（InputBox（"請(qǐng)輸入ー個(gè)數(shù)”））LoopPrintc+dEndSub運(yùn)行時(shí)輸入9,8,7,6,5,4,3,2,1,0,輸出的結(jié)果是A.5B.6C.7D.87.閱讀下面的程序段:Fori=lTo2Forj=iTo3Fork=jTo4Printi*j*kNextkNextjNexti執(zhí)行上面的程序段后,輸出的數(shù)的個(gè)數(shù)是個(gè)。A.24B.14C.12D.88.閱讀卜.面的程序:PrivateSubFormClickODimm,nAsIntegerm二InputBox（"請(qǐng)輸入m的值"）m=Val（m）

64ml=mn二InputBox("請(qǐng)輸入n的值”)n=Val(n)nl=nDoWhilen<>0remin=mModnm=nn=reminLoopPrintml,nl,mEndSub程序運(yùn)行后,單擊窗體,在輸入對(duì)話框屮分別輸入16和24,則程序在窗體上的輸出結(jié)果為A.16244B.16248C.24166D.2416814.閱讀下面的程序段:k=5DoWhilekt=t*kk=k-1Loop執(zhí)行上面的程序段后,t的值為16.計(jì)算s=l+2+3+-+100的程序段如下:S=0:k=0DoUntil

65Loop表示Do循環(huán)條件的表達(dá)式屮是16.執(zhí)行下面程序段后,s的值為。s=0:k=10DoWhileks=s+10k=k-2Loop18.下面程序段的輸出結(jié)果是。DimxAsInteger,numAsIntegerNum=12345:x=12345DoWhilex>lx=numMod10num=num\10PrintxLoop19.在窗體中添加一個(gè)命令按鈕,然后編寫(xiě)如下程序:PrivateSubForm_Click()DimiFori=lTo13Step2i=i+lPrinti;Nexti

66EndSub單擊命令按鈕,程序的執(zhí)行結(jié)果為。A.24681012B.135791113C.258D.258111418.在窗體中添加?命令按鈕,并在命令按鈕中編寫(xiě)如下代碼:PrivateSubCommandl_Click()DimaAsSinglea=-1.234567b=Int(a):c=Sgn(a):d=Abs(a):e=Fix(a)Ifa

67S=S+2*nLoopWhileS<=mPrint"N=";n,"S=";SEndSub14.執(zhí)行下面程序段后,變量Ic的值是.Ia=3：Ib=4：Ic=5Ia=IbIb=IaIc=Ib15.下面程序的輸出是〇PrivateSubForm_Click()Print7\3EndSub16.在窗體上畫(huà)一個(gè)命令按鈕,然后編寫(xiě)如下事件過(guò)程:PrivateSubCommand1Click()a=InputBoxぐ請(qǐng)輸入?個(gè)整數(shù)”)b=InputBox("請(qǐng)輸入ー個(gè)整數(shù)”)Printa+b/3EndSub程序運(yùn)行后,單擊命令按鈕,在輸入對(duì)話框中分別輸入321和456,輸出結(jié)果為17.下面程序的運(yùn)行結(jié)果:。PrivateSubCommandl_Click()

68Fork=lTo3Ifk<=lThena=x*xIfk<=2Thena=x*x+lIfk>=3Thena=x*x+2PrintaNextkEndSub14.下面的程序段運(yùn)行后,顯示的結(jié)果是。DimxIfxThenPrintxElsePrintx+1EndIf15.編程求方程5X+4Y=2,在|XI<=50,方Iく=100內(nèi)的整數(shù)解,X+Y最大值是多少.PrivateSubForm_click()Max=0Forx=-50To50Fory=-100To100If[1]Thens=x+yIfs>MaxThen[2]NextyNextxPrintMaxEndSub

6914.求方程5X-4Y=2,在|X|く二100,|Y|く=50內(nèi)的整數(shù)解中|X|+|Y|最大值。PrivateSubForm_click()Max=0Forx=-100To100Fory=-50To50If5*x-4*y=2Thens=[1]If[2]ThenMax=sEndIfNextyNextxPrintMaxEndSub