资源描述：
《VB循环结构测试题及答案.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、循环结构测试题(四)一：选择题1：以下（）是正确的for….next结构。（A）forx=1tostep10(B)forx=3to–3step-3…..…..nextxnextx(C)forx=1to10(D)forx=3tostep3re:….……NextxnextyIfI=10thengotore2:下列循环语句能正常结束循环的是（）（A）I=5(B)I=1dodoI=I+1I=I+2LoopuntilI<0loopuntilI=10(C)I=10(D)I=6dodoI=I-1I=I-2LoopuntilI<0loopuntilI=13:下面程序段的运行结果为（）forI=3to1ste
2、p–1printspc(5-I);forj=1to2*I-1print“*”;nextjprint*********(B)*********(C)*********(D)*********nextI(A)4下列程序在文本框输入“ABCD”四个字符时，窗体上显示的是（）privatesubtext1_change()printtext1.text;endsubABCD(D)AABABCABCD(A)ABCD(B)(C)AABABCABCD5哪个程序段不能分别正确显示1!,2!,3!,4!的（）（A）forI=1to4n=1forj=1toIn=n*jnextjprintnnexti（B）for
3、I=1to4forj=1toIn=1n=n*jnextjprintnnexti(C)N=1forj=1to4n=n*jprintnnextj(D)N=1J=1Dowhilej<=4n=n*jprintnj=j+1loop二：填空题1：要使下列For语句循环执行20次，循环变量的初值应当是：fork=(①)to–5step–22:下面程序段显示（②）个“*”。ForI=1to5Forj=2toIPrint“*”;NextjNextI3:下列第40句共执行了（③）次，第41句共执行（④）次。30forj=1to12step340fork=6to2step–241printj,k40nextk41
4、nextj4:以下程序运行后，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:下面程序运行后输出的结果是（⑿）privatesubcomman
5、d1_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”privat
6、esubcommand1_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个评委的打分分数，去掉一个最高分，一个最低
7、分数，求出平均分为该参赛选手的得分。Privatesubcommand1_click()Dimmark!,aver!,I%,max!,min!Aver=0ForI=1to7Mark=inputbox(“输入第“&I&”位评委的打分”)IfI=1thenMax1=mark(⒇)elseifmarkmax1then(（22）)endifendif(（23）)ne
