vb循環(huán)結(jié)構(gòu)選擇題教學(xué)文案

1、Good is good, but better carries it.精益求精，善益求善。vb循環(huán)結(jié)構(gòu)選擇題-選擇題1、無(wú)條件轉(zhuǎn)移GoTo語(yǔ)句后面是（A）A、標(biāo)號(hào)或行號(hào)B、輸出語(yǔ)句C、輸入語(yǔ)句D、子過(guò)程2、無(wú)條件轉(zhuǎn)移GoTo語(yǔ)句后面的行號(hào)或標(biāo)號(hào)以字母開(kāi)頭，后跟（A）A、冒號(hào)B、分號(hào)C、逗號(hào)D、空格3、無(wú)條件轉(zhuǎn)移GoTo語(yǔ)句后面的行號(hào)或標(biāo)號(hào)在同一過(guò)程中（A）A、必須唯一B、可以重復(fù)C、以數(shù)字開(kāi)頭D、以漢字開(kāi)頭4、while循環(huán)結(jié)構(gòu)中的條件表達(dá)式取值為（A）A、TrueB、FalseC、True或FalseD、05、while循環(huán)結(jié)構(gòu)中的條件表達(dá)式取值為（A）時(shí)執(zhí)行語(yǔ)句組A、TrueB、Fals

2、eC、True或FalseD、06、while循環(huán)結(jié)構(gòu)中與（A）匹配使用，不能單獨(dú)出現(xiàn)A、WendB、endC、loopD、next7、Do、loop循環(huán)結(jié)構(gòu)中的循環(huán)體執(zhí)行的最少次數(shù)為（A）A、0B、1C、2D、38、前測(cè)型Do、loop循環(huán)結(jié)構(gòu)中的循環(huán)體執(zhí)行的最少次數(shù)為（A）A、0B、1C、2D、39、后測(cè)型Do、loop循環(huán)結(jié)構(gòu)中的循環(huán)體執(zhí)行的最少次數(shù)為（B）A、0B、1C、2D、310、Doloop循環(huán)結(jié)構(gòu)中的ExitDo語(yǔ)句的功能是（B）A、退出整個(gè)程序B、退出當(dāng)層循環(huán)C、退出最外層循環(huán)D、退出所在子程序11、Doloop中使用while關(guān)鍵字時(shí)，條件為（B）執(zhí)行循環(huán)體A、FalseB

3、、TrueC、0D、假或真12、Doloop中使用until關(guān)鍵字時(shí)，條件為（A）執(zhí)行循環(huán)體A、FalseB、TrueC、0D、假或真13、Doloop中使用while關(guān)鍵字時(shí)，條件為（A）終止循環(huán)A、FalseB、TrueC、0D、假或真14、Doloop中使用until關(guān)鍵字時(shí)，條件為（B）終止循環(huán)A、FalseB、TrueC、0D、假或真15、ForNext循環(huán)結(jié)構(gòu)中（C）用來(lái)控制循環(huán)變量A、forB、stepC、nextD、to16、ForNext循環(huán)結(jié)構(gòu)中step用來(lái)控制（D）A、循環(huán)變量B、循環(huán)變量初值C、循環(huán)變量終值D、循環(huán)變量增量17、ForNext循環(huán)結(jié)構(gòu)中循環(huán)變量初值大于終

4、值時(shí),步長(zhǎng)為（A）A、負(fù)數(shù)B、非負(fù)數(shù)C、正整數(shù)D、正數(shù)18、ForNext循環(huán)結(jié)構(gòu)中循環(huán)變量初值小于終值時(shí),步長(zhǎng)為（A）A、負(fù)數(shù)B、負(fù)整數(shù)C、正整數(shù)D、正數(shù)19、ForNext循環(huán)結(jié)構(gòu)中next后的循環(huán)變量（A）A、可以省略B、不可以省略C、與for后的變量名可以不同D、與for后的變量不是同一變量20、ForNext中循環(huán)變量初值與終值間使用的關(guān)鍵字是（A）A、ToB、InC、gotoD、private21、ForNext中循環(huán)變量初值與終值間使用的關(guān)鍵字是（A）A、ToB、InC、gotoD、private22、執(zhí)行下面的程序段后，s的值為（C）PrivateSubForm_Click()

5、StaticsAsIntegers=5Fori=1.4To2.1Step0.6s=s+1NextiPrintsEndSubA、5B、6C、7D、123、下面程序的作用是利用隨機(jī)函數(shù)產(chǎn)生10個(gè)100200之間（包含100、200）的隨機(jī)數(shù)，打印其中為5的倍數(shù)的數(shù)將程序補(bǔ)充完整（）PrivateSubCommand1_Click()Form=1To10 x=Int(Rnd*101+100)If（）ThenPrintx;EndIfNextmEndSubA、xmod5=0B、xmod5=0C、x/5=0D、x5=024、設(shè)有如下程序：OptionBase1PrivateSubForm_Click()D

6、ima(10),P(3)AsIntegerk=5Fori=1To10a(i)=iNextiFori=1To3P(i)=a(i*i)NextiFori=1To3k=k+P(i)*2NextiPrintkEndSub程序運(yùn)行后，單擊窗體，則在窗體上顯示的是（A）A、33B、35C、37D、3825、在窗體上畫一個(gè)命令按紐Command1，然后編寫如下事件過(guò)程：PrivateSubCommand1_Click()X=0N=val(inputbox(“n=?”)Fori=1tonForj=1toiX=x+1NextjNextiPrintxEndsub程序運(yùn)行后、單擊命令按鈕,輸入3,在窗體上顯示的內(nèi)容

7、是(D)A、9B、44C、5D、626、以下能夠正確計(jì)算n！的程序是（C）A、privatesubcommand1_click()N=5:x=1DoX=x*1I=i+1LoopwhileinPrintxEndsubB、privatesubcommand1_click()N=5:x=1:i=1DoX=x*iI=i+1LoopwhileinPrintxEndsubC、privatesubcommand1_click()N=5:x=1:i=1DoX=x*iI=i+1LoopwhileinPrintxEndsub27、在窗體上畫一個(gè)命令按紐Command1，標(biāo)簽Label1然后編寫如下事件過(guò)程：Pri

8、vatesubcommand1_click()Fori=1to15X=2*i-1Ifxmod3=0thens=s+1NextiLabel1、caption=sEndsub程序運(yùn)行后,單擊命令按鈕,標(biāo)簽中顯示的內(nèi)容是(B)A、1B、5C、27D、4528、在窗體上畫一個(gè)命令按紐Command1，然后編寫如下事件過(guò)程：Privatesubcommand1_click()Fori=1to4Forj=0toiPrintchr$(65+i)NextiPrintEndsub程序運(yùn)行后,單擊命令按鈕,窗體中顯示的內(nèi)容是(A)A、BBCCCDDDDEEEEEB、ABBCCCDDDDC、BCCDDDEEEED、

9、AABBBCCCCDDDDD28、在窗體上畫兩個(gè)名稱分別為text1，text2的文本框和一個(gè)名稱為command1的命令按鈕，然后編寫如下事件過(guò)程：Privatesubcommand1_click()Dimxasinteger，nasintegerX=1：n=0Dowhilex20X=x*3N=n+1LoopText1、text=str(x)Text2、text=str(n)Endsub程序運(yùn)行后,單擊命令按鈕,在兩個(gè)文本框中顯示的值分別是(B)A、15和1B、27和3C、195和3D、600和429、在窗體中添加一個(gè)命令按鈕，名稱為Command1，然后編寫如下程序：PrivateSubC

10、ommand1_Click()Dima(5),b(5)Forj=1to4A(j)=3*jB(j)=a(j)*3NextjText1、text=b(j2)EndSub程序運(yùn)行后，單擊命令按鈕，在文本框中顯示（B）A、25B、18C、36D、3530、下面程序運(yùn)行時(shí)，內(nèi)層循環(huán)的循環(huán)總次數(shù)是（A）Form=1To3Forn=0Tom-1NextnNextmA、6B、3C、0D、931、定義語(yǔ)句DimA(-3to3)asInteger，定義數(shù)組的元素個(gè)數(shù)是（D）A、6B、3C、0D、732、執(zhí)行下面的程序段后，X的值為（C）X=5ForI=1to10Step2X=X+I5NextIA、7B、10C、8

11、D、533、如果整型變量a、b的值分別為3和1，則下列語(yǔ)句中循環(huán)體的執(zhí)行次數(shù)是（D）ForI=atobPrintINextIA、0B、1C、2D、334、下列關(guān)于dowhileloop和doloopuntil循環(huán)執(zhí)行循環(huán)體次數(shù)的描述正確的是（D）A、dowhileloop循環(huán)和doloopuntil循環(huán)至少都執(zhí)行一次B、dowhileloop循環(huán)和doloopuntil循環(huán)可能都不執(zhí)行C、dowhileloop循環(huán)至少執(zhí)行一次，doloopuntil循環(huán)可能不執(zhí)行D、dowhileloop循環(huán)可能不執(zhí)行，doloopuntil循環(huán)至少執(zhí)行一次35、在窗體中添加一個(gè)名稱為Command1的命令按

12、鈕，然后編寫如下程序：PrivateSubCommand1_Click()Fori=1To4a=1Forj=1To3a=2Fork=1To2a=a+6NextkNextjNextiPrintaEndSub程序運(yùn)行后，單擊命令按鈕，則在窗體上顯示的內(nèi)容是（A）A、14B、15C、16D、1736、設(shè)有如下程序：PrivateSubForm_Click()a=1Fori=1To3SelectCaseiCase1,3a=a+1Case2,4a=a+2EndSelectNextiPrintaEndSub程序運(yùn)行后，單擊窗體，則在窗體上顯示的內(nèi)容是（B）A、6B、5C、4D、337、在窗體中添加一個(gè)名稱

13、為Command1的命令按鈕，然后編寫如下程序：subss(b()asInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubCommand1_Click()Dima(1To4)AsIntegera(1)=5:a(2)=6a(3)=7:a(4)=8ssa()Fori=1To4Printa(i)NextiEndSub運(yùn)行上面的程序，單擊命令按鈕，則在窗體上顯示的內(nèi)容是（B）A、5678B、2468C、1234D、576838、在窗體中添加一個(gè)名稱為Command1的命令按鈕，然后編寫如下程序：Functionfun(xAsInteger)Staticzy=y+

14、1:z=z+1fun=x+y+zEndFunctionPrivateSubCommand1_Click()DimxAsIntegerx=1Fori=1To2Printfun(x)NextiEndSub程序運(yùn)行后，如果單擊命令按鈕，窗體中顯示的內(nèi)容是（B）A、33B、34C、35D、3639、若I、n均為整型變量，下列程序段的輸出結(jié)果為（C）PrivateSubForm_Click()n=0Fori=1To10IfiMod2=1Thenn=n+1NextiPrintnEndSubA、0B、4C、5D、340、在窗體中添加一個(gè)文本框（其中Name屬性為Text1）,然后編寫如下代碼：Private

15、SubForm_click()Text1、Text=Text1、SetFocusFori=1To10Sum=Sum+iNextiText1、Text=SumEndSub上述程序運(yùn)行后，單擊窗體，則運(yùn)行的結(jié)果（A）A、在文本框Text1中輸出55B、在文本框Text1中輸出0C、出錯(cuò)D、在文本框Text1中輸出不定值41、在窗體中添加一個(gè)名稱為Command1的命令按鈕，然后編寫如下代碼：PrivateSubCommand1_Click()x=0DoUntilx=-1a=InputBox(請(qǐng)輸入A的值)a=Val(a)b=InputBox(請(qǐng)輸入B的值)b=Val(b)x=InputBox(請(qǐng)輸

16、入X的值)x=Val(x)a=a+b+xLoopPrintaEndSub程序運(yùn)行后，單擊命令按鈕，依次在輸入對(duì)話框中輸入12345-1，則輸出結(jié)果為（A）A、8B、9C、14D、1542、設(shè)有如下程序：OptionBase1PrivateSubForm_Click()Dima(10),P(3)AsIntegerk=5Fori=1To10a(i)=iNextiFori=1To3P(i)=a(i*i)NextiFori=1To3k=k+P(i)*2NextiPrintkEndSub程序運(yùn)行后，單擊窗體，則在窗體上顯示的是（A）A、33B、35C、37D、3843、在窗體中添加一個(gè)名稱為Comman

17、d1的命令按鈕，然后編寫如下代碼：FunctionF(aAsInteger)b=0Staticcb=b+1c=c+1F=a+b+cEndFunctionPrivateSubCommand1_Click()DimaAsIntegerDimbAsIntegera=2Fori=1To3b=F(a)PrintbNextiEndSub程序運(yùn)行后，如果單擊命令按鈕，則窗體上顯示的內(nèi)容是（A）A、456B、123C、0123D、23444、在窗體上畫一個(gè)命令按鈕，名稱為Command1。然后編寫如下程序：PrivateSubCommand1_Click()Fora=1To4Forb=0ToaPrintChr

18、(65+a)NextbPrintNextaEndSub程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是（B）A、ABBCCCDDDDB、BBCCCDDDDEEEEEC、BCCDDDEEEED、BCDE45、循環(huán)是一組重復(fù)執(zhí)行的指令，重復(fù)次數(shù)由（B）決定A、int（終值-初值）+1B、int（終值-初值）/步長(zhǎng)）+1C、int（終值-初值）/步長(zhǎng)）D、（終值-初值）/步長(zhǎng)46、假定有以下程序段：Fori=1To3Forj=5To1Step-1Printi*jNextj,i則語(yǔ)句Printi*j的執(zhí)行次數(shù)是（A）A、15B、16C、17D、1847、以下程序段的輸出結(jié)果是（C）num=0Whi

19、lenum=2num=num+1PrintnumWendA、135B、234C、123D、01248、在窗體中添加一個(gè)命令按鈕（其Name屬性為Command1），然后編寫如下代碼：PrivateSubCommand1_Click()Dimn()AsIntegerDima,bAsIntegera=InputBox(Enterthefirstnumber)b=InputBox(Enterthesecondnumber)ReDimn(aTob)Fork=LBound(n,1)ToUBound(n,1)n(k)=kPrintn(k)NextkEndSub程序運(yùn)行后，單擊命令按鈕，在輸入對(duì)話框中分別輸

20、入2和3，輸出結(jié)果為（D）A、01B、13C、12D、2349、在窗體中添加兩個(gè)文本框（其Name屬性分別為Text1和Text2）和一個(gè)命令按鈕（其Name屬性為Command1），然后編寫如下事件過(guò)程：PrivateSubCommand1_Click()x=0DoWhilexxThenPrinta(i);NextiEndSub程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是（D）A、12B、123C、345D、4556、以下程序段的輸出結(jié)果是（A）num=0Whilenum=5num=num+1WendPrintnumA、6B、2C、5D、157、PrivateSubForm_Click()

21、DimxAsInteger,nAsIntegerx=1n=0DoWhilex28x=x*3n=n+1LoopPrintx,nEndSub程序運(yùn)行后，單擊窗體，輸出結(jié)果是(A)A、814B、563C、281D、243558、有如下程序：PrivateSubForm_Click()DimiAsInteger,sumAsIntegersum=0Fori=2To10IfiMod20AndiMod3=0Thensum=sum+iEndIfNextiPrintsumEndSub程序運(yùn)行后，單擊窗體，輸出結(jié)果為（A）A、12B、30C、24D、1859、在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Co

22、mmand1的命令按鈕，然后編寫如下事件過(guò)程：PrivateSubCommand1_Click()Dimarray1(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=2To4array1(i,j)=i+jNextjNextiText1.Text=array1(2,3)+array1(3,4)EndSub程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是（A）A、12B、3C、14D、1560、在窗體上畫一個(gè)命令按鈕，其名稱為Command1，然后編寫如下事件過(guò)程：PrivateSubCommand1_Click()Dima1(4,4),a2

23、(4,4)Fori=1To4Forj=1To4a1(i,j)=i+ja2(i,j)=a1(i,j)+i+jNextjNextiPrinta1(3,3);a2(3,3)EndSub程序運(yùn)行后，單擊命令按鈕，在窗體上輸出的是（D）A、66B、105C、721D、61261、有如下程序：OptionBase1PrivateSubForm_Click()Dimarr,SumSum=0arr=Array(1,3,5,7,9,11,13,15,17,19)Fori=1To10Ifarr(i)/3=arr(i)3ThenSum=Sum+arr(i)EndIfNextiPrintSumEndSub程序運(yùn)行后，

24、單擊窗體，輸出結(jié)果為（C）A、25B、26C、27D、2862、在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程：PrivateSubCommand1_Click()Dima(5)AsStringFori=1To5a(i)=Chr(Asc(A)+(i-1)NextiForEachbInaPrintb;NextEndSub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是（A）A、ABCDEB、12345C、abcdeD、出錯(cuò)信息63、設(shè)有以下函數(shù)過(guò)程：Functionfun(mAsInteger)AsIntegerDimkAsInteger,sumAsIntegersum=0Fork=mTo1Step-2sum

25、=sum+kNextkfun=sumEndFunction若在程序中用語(yǔ)句s=fun(10)調(diào)用此函數(shù)，則s的值為（A）A、30B、26C、27D、2864、在窗體上畫一個(gè)命令按鈕和一個(gè)文本框，然后編寫命令按鈕的Click事件過(guò)程。程序運(yùn)行后，在文本框中輸入一串英文字母（不區(qū)分大小寫），單擊命令按鈕，程序可找出未在文本框中輸入的其他所有英文字母，并以大寫方式降序顯示到Text1中。例如，若在Text1中輸入的是abDfdb，則單擊Command1按鈕后Text1中顯示的字符串是ZYXWVUTSRQPONMLKJIHGEC。請(qǐng)?zhí)羁?。PrivateSubCommand1_Click()Dimstr

26、AsString,sAsString,cAsStringstr=UCase(Text1)s=c=ZWhilec=AIfInStr(str,c)=0Thens=CEndIfc=Chr$(Asc(c)-1)WendIfsThenText1=sEndIfEndSubA、1B、sC、s&cD、065、在n個(gè)運(yùn)動(dòng)員中選出任意r個(gè)人參加比賽，選法有多種，用組合公式計(jì)算等于n！/r！/（n-r）！。窗體中有3個(gè)文本框的名稱依次是Text1、Text2、Text3。程序運(yùn)行時(shí)在Text1、Text2中分別輸入n和r的值，單擊Command1按鈕即可求出選法的個(gè)數(shù)，并顯示在Text3文本框中，請(qǐng)?zhí)羁?。Priva

27、teSubCommand1_Click()DimrAsInteger,nAsIntegern=Text1r=Text2Text3=fun(n)/C/fun(r)EndSubFunctionfun(nAsInteger)aslongDimtAsLongt=1Fork=1Tont=t*kNextfun=tEndFunctionA、fun（n）B、fun（m）C、fun（n-r）D、fun（r-n）66、以下是一個(gè)比賽評(píng)分程序。在窗體上建立一個(gè)名為Text1的文本框數(shù)組，然后畫一個(gè)名為Text2的文本框和名為Command1的命令按鈕。運(yùn)行時(shí)在文本框數(shù)組中輸入7個(gè)分?jǐn)?shù)，單擊“計(jì)算得分”命令按鈕，則最

28、后得分顯示在Text2文本框中（去掉一個(gè)最高分和一個(gè)最低分后的平均分即為最后得分），請(qǐng)?zhí)羁?。PrivateSubCommand1_Click()DimkAsIntegerDimsumAsSingle,maxAsSingle,minAsSinglesum=Text1(0)max=Text1(0)min=Text1(0)Fork=_A_To6IfmaxText1(k)Thenmin=Text1(k)EndIfsum=sum+Text1(k)NextkText2=(sum-max-min)/5EndSubA、0B、1C、-1D、267、在列表框List1中已經(jīng)有若干人的簡(jiǎn)單信息，運(yùn)行時(shí)在Text1文

29、本框輸入一個(gè)姓或姓名，單擊“查找”按鈕，則在列表框中進(jìn)行查找，若找到，則把該人的信息顯示在Text2文本框中。若有多個(gè)匹配的列表項(xiàng)，則只顯示第1個(gè)匹配項(xiàng)；若未找到，則在Text2中顯示“查無(wú)此人”。請(qǐng)?zhí)羁铡rivateSubCommand1_Click()DimkAsInteger,nAsInteger,foundAsBooleanfound=Falsen=Len(_A_)k=0Whilek=AIfInStr(str,c)=0Thens=s&cEndIfc=Chr$(Asc(c)_A_)WendIfsThenText1=sEndIfEndSubA、-1B、0C、1D、+169、在n個(gè)運(yùn)動(dòng)員中

30、選出任意r個(gè)人參加比賽，選法有多種，用組合公式計(jì)算等于n！/r！/（n-r）！。窗體中有3個(gè)文本框的名稱依次是Text1、Text2、Text3。程序運(yùn)行時(shí)在Text1、Text2中分別輸入n和r的值，單擊Command1按鈕即可求出選法的個(gè)數(shù)，并顯示在Text3文本框中，請(qǐng)?zhí)羁?。PrivateSubCommand1_Click()DimrAsInteger,nAsIntegern=Text1r=Text2Text3=fun(n)/fun(n-r)/fun(r)EndSubFunctionfun(nAsInteger)aslongDimtAsLong_B_Fork=1Tont=t*kNextf

31、un=tEndFunctionA、t=0B、t=1C、k=0D、k=170、以下是一個(gè)比賽評(píng)分程序。在窗體上建立一個(gè)名為Text1的文本框數(shù)組，然后畫一個(gè)名為Text2的文本框和名為Command1的命令按鈕。運(yùn)行時(shí)在文本框數(shù)組中輸入7個(gè)分?jǐn)?shù)，單擊“計(jì)算得分”命令按鈕，則最后得分顯示在Text2文本框中（去掉一個(gè)最高分和一個(gè)最低分后的平均分即為最后得分），請(qǐng)?zhí)羁?。PrivateSubCommand1_Click()DimkAsIntegerDimsumAsSingle,maxAsSingle,minAsSinglesum=Text1(0)max=Text1(0)min=_C_Fork=0To6

32、IfmaxText1(k)Thenmin=Text1(k)EndIfsum=sum+Text1(k)NextkText2=(sum-max-min)/5EndSubA、text1(1)B、text(0)C、text1(0)D、text2(0)71、以下是一個(gè)比賽評(píng)分程序。在窗體上建立一個(gè)名為Text1的文本框數(shù)組，然后畫一個(gè)名為Text2的文本框和名為Command1的命令按鈕。運(yùn)行時(shí)在文本框數(shù)組中輸入7個(gè)分?jǐn)?shù)，單擊“計(jì)算得分”命令按鈕，則最后得分顯示在Text2文本框中（去掉一個(gè)最高分和一個(gè)最低分后的平均分即為最后得分），請(qǐng)?zhí)羁?。PrivateSubCommand1_Click()DimkAsIntegerDim