VB循环结构测试题及答案

VB循环结构测试题及答案内部编号：（YUUT-TBBY-MMUT-URRUY-UOOY-DBUYI-0128）VB循环结构测试题及答案循环结构测试题(四)一：选择题1：以下（）是正确的for….next结构。forx=1tostep10(B)forx=3to–3step-3…..…..nextxnextx(C)forx=1to10(D)forx=3tostep3re:….……NextxnextyIfI=10thengotore2:下列循环语句能正常结束循环的是（）I=5(B)I=1dodoI=I+1I=I+2LoopuntilI<0loo...

内部编号：（YUUT-TBBY-MMUT-URRUY-UOOY-DBUYI-0128）VB循环结构测试题及答案循环结构测试题(四)一：选择题1：以下（）是正确的for….next结构。forx=1tostep10(B)forx=3to–3step-3…..…..nextxnextx(C)forx=1to10(D)forx=3tostep3re:….……NextxnextyIfI=10thengotore2:下列循环语句能正常结束循环的是（）I=5(B)I=1dodoI=I+1I=I+2LoopuntilI<0loopuntilI=10(C)I=10(D)I=6dodoI=I-1I=I-2LoopuntilI<0loopuntilI=13:下面程序段的运行结果为（）forI=3to1step–1printspc(5-I);forj=1to2*I-1print“*”;nextjprint*********(B)*********(C)*********(D)*********nextI4下列程序在文本框输入“ABCD”四个字符时，窗体上显示的是（）privatesubtext1_change()print;endsubABCD(D)AABABCABCD(A)ABCD(B)(C)AABABCABCD5哪个程序段不能分别正确显示1!,2!,3!,4!的（）forI=1to4n=1forj=1toIn=n*jnextjprintnnextiforI=1to4forj=1toIn=1n=n*jnextjprintnnexti(C)N=1forj=1to4n=n*jprintnnextjN=1J=1Dowhilej<=4n=n*jprintnj=j+1loop二：填空题1：要使下列For语句循环执行20次，循环变量的初值应当是：fork=(①)to–5step–22:下面程序段显示（②）个“*”。ForI=1to5Forj=2toIPrint“*”;NextjNextI3:下列第40句共执行了（③）次，第41句共执行（④）次。forj=1to12step3fork=6to2step–2printj,knextknextj4:以下程序运行后，si,sj,I,j,k的结果分别是（⑤），（⑥），（⑦），（⑧），（⑨），（⑽）privatesubcommand1_click()forI=1to2forj=1toIsk=0fork=jto3sk=sk+1nextksj=sj+1nextjsi=si+1nextIprintsi,sj,sk,I,j,kendsub5:下面程序运行后输出的结果是（⑾）privatesubcommand1_click()forI=0to3printtab(5*I+1);”2”+I;”2”&I;nextIendsub6:下面程序运行后输出的结果是（⑿）privatesubcommand1_click()a$=”*”;b$=”$”forI=2to4ifImod2=0thenx$=string(len(a$)+I,b$)elsex$=string(len(a$)+I,a$)endifprintx$;nextIendsub7:执行下面程序，打印结果是（⒀）optionexplicitprivatesubform_click()dimIasinteger,jasintegerj=10forI=1tojstep2I=I+1J=j-INextIPrintI,jEndsub8:输入任意长度的字符串，要求将字符顺序倒置，例如：将输入“ABCDEFG”变换成“GFEDCBA”privatesubcommand1_click()dima$,I%,c$a=inputbox(“输入字符串”)n=(⒁)forI=1to(⒂)c=mid(a,I,1)mid(a,I,1)=(⒃)(⒄)=cnextIprintaendsub9：找出被3，5，7除，余数为1的最小的5个正整数。Privatesubcommand1_click()DimcountN%,n%CountN=0N=1DoN=n+1If(⒅)thenPrintnCountN=countN+1EndifLoop(⒆)Endsub10：某次大奖赛，有7个评委打分，如下程序对一名参加比赛者，输入7个评委的打分分数，去掉一个最高分，一个最低分数，求出平均分为该参赛选手的得分。Privatesubcommand1_click()Dimmark!,aver!,I%,max!,min!Aver=0ForI=1to7Mark=inputbox(“输入第“&I&”位评委的打分”)IfI=1thenMax1=mark(⒇)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=falseloopfactor=factor+1loopuntilfactor>nendsub测试题（四）答案一）选择题123456789101112BCBCB填空题1：332：103:4，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，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

VB循环结构测试题及答案

你可能还喜欢