循环结构测试题〔四〕一：选择题(A)forx=1tostep101:以下〔〕是正确的for•••.next结构(B)forx=3to-3step-3nextx(C)forx=1to10re:NextxIfI=10thengotorenextx(D)forx=3tostep3nexty2:以下循环语句能正常结束循环的是〔〕(A)I=5doI=I+1LoopuntilI<0I=10doI=I-1LoopuntilI<0(B)I=1doI=I+2loopuntilI=10I=6doI=I-2loopuntilI=13:下面程序段的运行结果为〔〕forI=3to1stepprintspc(5-I);forj=1to2*I-1print…nextjprintnextIll4以下程序在文本框输(^“*A*CD四个尚时,*窝体上显示陟G****)•,I<,/I***7\private*subtext1_change()******printtext1.text;endsub(A)ABCD(B)(C)AABABCABCD5哪个程序段不能分别正确显示1!,2!,3!,4!(A)forI=1toA(D)AC勺()ABCD(B)forI=1toABCD二：填空题1:要使以下国=福句循环执行20次,循环变量的初值应由降1tofork=(forj=1④)to-5step—22:下面程序段显示(②)个“*(C)N=1ForI=1to5forj=1Forj=2toIto4Print"*"；(D)N=1J=1Dowhilej<=4NextjNextI3:以下第40句共执行了〔③〕次,第41句共执行〔④〕次.30forj=1to12step340fork=6to2step-2printj,knextknextj4:以下程序运行后,si,sj,I,j,k的结果分别是〔⑤〕,〔⑥〕,〔⑦〕,〔⑧〕,〔⑨〕,〔〔10〕〕privatesubcommand1_click〔〕forI=1to2forj=1toIsk=0fork=jto3sk=sk+1nextksj=sj+1nextjsi=si+1nextIprintsi,sj,sk,I,j,kendsub5:下面程序运行后输出的结果是((11))privatesubcommand1_click()forI=0to3printtab(5*I+1);“2"+I;“2"&I;nextIendsub6:下面程序运行后输出的结果是((12))privatesubcommand1_click()a$=〞*"；b$="$〞forI=2to4ifImod2=0thenx$=string(len(a$)+I,b$)elsex$=string(len(a$)+I,a$)endifprintx$;nextIendsub7:执行下面程序,打印结果是((13))optionexplicitprivatesubform_click()dimIasinteger,jasintegerj=10forI=1tojstep2I=I+1J=j-INextIPrintI,jEndsub8:输入任意长度的字符串,要求将字符顺序倒置,例如：将输入“ABCDEFG变换成“GFEDCBAprivatesubcommand1_click()dima$,I%,c$a=inputbox("输入字符串〞)TOC\o"1-5"\h\zn=((14))forI=1to((15))c=mid(a,I,1)mid(a,I,1)=((16))((17))二cnextIprintaendsub9:找出被3,5,7除,余数为1的最小的5个正整数.Privatesubcommand1_click()DimcountN%,n%CountN=0N=1DoN=n+1If((18))thenPrintnCountN=countN+1EndifLoop((19))Endsub10:某次大奖赛,有7个评委打分,如下程序对一名参加比赛者,输入7个评委的打分分数,去掉一个最高分,一个最低分数,求出平均分为该参赛选手的得分.Privatesubcommand1_click()Dimmark!,aver!,I%,max!,min!Aver=0ForI=1to7Mark=inputbox("输入第“&I&〞位评委的打分〞)IfI=1thenMax1=mark((20))elseifmarkmax1then((22))endifendif((23))nextIaver=((24))printaverendsub11:由键盘上输入一个正整数,找出大于或等于该数的第一个质数.Privatesubcommand1_click()Dimm%,x%,tagasBooleanTag=falseX=inputbox(“输入正整数〞)DowhilenottagM=2Tag=((25))Dowhiletagand(m<(x\2))Ifxmodm=0then((26))else((27))LoopIfnottagthenx=x+1LoopPrintxEndsub12:将一个正整数分解为质因数乘机,例如：234=2*3*3*13privatesubcommand1_click()dimn%,factor%,firstasBooleann=inputbox(“输入一个正整数〞)factor=2first=truedodowhile((28))iffirstthenprintn;"=";factor;elseprint"*〞;factor;endif((29))first=falselooploopuntilfactor>nendsub测试题(四)答案〕选择题123456789101112BCBCB二)填空题33104,124:2,3,2,3,3,45:2203214225236:**$$$****$$$$$7:13-168:LEN(a),int(n\2),mid(a,n-I+1,1),mid(a,n-I+1,1)9:nmod3=1andnmod5=1andnmod7=1untilcountN=5或whilecountN<510:min1=mark;min1=mark;max1=markaver=aver+mark;(aver-max1-min1)/511:true;tag=true;m=m+112:nmodfactor=0;n=n\factor
本文档为【VB循环结构测试题及答案】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483