1、循環(huán)結(jié)構(gòu)測試題（四）:選擇題1:以下（）是正確的for-.next結(jié)構(gòu)。(A)forx=1tostep10(B)forx=3to3step-3nextxnextx(C)forx=1to10(D)forx=3tostep3re:NextxnextyIfI=10thengotore2:下列循環(huán)語句能正常結(jié)束循環(huán)的是（(A)I=5(B)I=1dodoI=I+1I=I+2LoopuntilI<0loopuntilI=10(C)I=10(D)I=6dodoI=I-2I=I-1LoopuntilI<0loopuntilI=13:下面程序段的運行結(jié)果為()forI=3to1step1prints

2、pc(5-I);forj=1to2*I-1printnextjprintnextIII*(B)_(C)*(D)*4下列程序在文本框輸入“ABCD四個字符時，(啕體上顯示的是(D).*privatesubtext1_change()print;endsub(A)ABCD(B)(D)AABABC(C)AABABCABCD5哪個程序段不能分別正確顯示1!,2!,3!,4!的（(A)forI=1to4(B)forI=1to4一：填空題n=1forj=1toI1:要使下列For裕網(wǎng)區(qū)潛林彳p20次，循環(huán)變量的初值應(yīng)當(dāng)是：n=1fork=(C)N=1)to-5step_2(D)N=12:下面程序段顯示(盜

3、)自“*”。J=1to4ForI=1to5Dowhilej<=4Forj=2toIPrintNextjNextI3:下列第40句共執(zhí)行了（）次，第41句共執(zhí)行（）次30forj=1to12step340fork=6to2step241printj,k42nextk43nextj4:以下程序運行后，si,sj,I,j,k的結(jié)果分別是（），（），（），（），（）,（）privatesubcommand1_click（）forI=1to2forj=1toIsk=0fork=jto3sk=sk+1nextksj=sj+1nextjsi=si+1nextIprintsi,sj,sk,I,j,ken

4、dsub5:下面程序運行后輸出的結(jié)果是(11)privatesubcommand1_click()forI=0to3printtab(5*I+1);“2"+I;“2"&I;nextIendsub6:下面程序運行后輸出的結(jié)果是()privatesubcommand1_click()a$=”*"；b$="$”forI=2to4ifImod2=0thenx$=string(len(a$)+I,b$)elsex$=string(len(a$)+I,a$)endifprintx$;nextIendsub7:執(zhí)行下面程序，打印結(jié)果是()optionexpli

5、citprivatesubform_click()dimIasinteger,jasintegerj=10forI=1tojstep2I=I+1J=j-INextIPrintI,jEndsub8:輸入任意長度的字符用，要求將字符順序倒置，例如：將輸入“ABCDEF次換成“GFEDCBAprivatesubcommand1_click()dima$,I%,c$a=inputbox（"輸入字符串”）n=(14)forI=1to(15)c=mid(a,I,1)mid(a,I,1)=(16)(17)二cnextIprintaendsub9:找出被3,5,7除，余數(shù)為1的最小的5個正整數(shù)Pri

6、vatesubcommand1_click()DimcountN%,n%CountN=0N=1DoN=n+1If(18)thenPrintnCountN=countN+1EndifLoop(19)Endsub10:某次大獎賽，有7個評委打分，如下程序?qū)σ幻麉⒓颖荣愓?，輸?個評委的打分分?jǐn)?shù),去掉一個最高分，一個最低分?jǐn)?shù)，求出平均分為該參賽選手的得分。Privatesubcommand1_click()Dimmark!,aver!,I%,max!,min!Aver=0ForI=1to7Mark=inputbox("輸入第“&I&”位評委的打分”)IfI=1thenMax

7、1=mark(20)elseifmark<min1then(21)elseifmark>max1then(22)endifendif(23)nextIaver=(24)printaverendsub11:由鍵盤上輸入一個正整數(shù)，找出大于或等于該數(shù)的第一個質(zhì)數(shù)。Privatesubcommand1_click()Dimm%,x%,tagasBooleanTag=falseX=inputbox(“輸入正整數(shù)”)DowhilenottagM=2Tag=(25)Dowhiletagand(m<(x2)Ifxmodm=0then(26)else(27)LoopIfnottagthenx

8、=x+1LoopPrintxEndsub12:將一個正整數(shù)分解為質(zhì)因數(shù)乘機，例如：234=2*3*3*13privatesubcommand1_click()dimn%,factor%,firstasBooleann=inputbox(“輸入一個正整數(shù)”)factor=2first=truedodowhile(28)iffirstthenprintn;"="factor;elseprint"*”;factor;endif(29)first=falseloopfactor=factor+1loopuntilfactor>nendsub測試題（四）答案）選擇題123456789101112BCBCB二)填空題1: 332: 103: 4,124:2,3,2,3,3,45:2203214225236:*$*$7:13-168:LEN(a),int(n2),mid(a,n-I+1,1),mid(a,n-I+1,1)9:nmod3=1andnmod5=1andnmod7=1untilco