VB循环结构测试题及答案.doc

该【VB循环结构测试题及答案 】是由【泰山小桥流水】上传分享，beplayapp体育下载一共【9】页，该beplayapp体育下载可以免费在线阅读，需要了解更多关于【VB循环结构测试题及答案 】的内容，可以使用beplayapp体育下载的站内搜索功能，选择自己适合的beplayapp体育下载，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此beplayapp体育下载到您的设备，方便您编辑和打印。循环结构测试题(四)一:选择题1:以下()是正确的for.next结构。(A)forx=1tostep10(B)forx=3to–3step-3..nextx(C)forx=1to10..nextx(D)forx=3tostep3re: .NextxnextyIfI=10thengotore2:下列循环语句能正常结束循环的是( )(A)I=5doI=I+1LoopuntilI<0(C)I=10do(B)I=1doI=I+2loopuntilI=10(D)I=6doI=I-1LoopuntilI<0I=I-2loopuntilI=13:下面程序段的运行结果为()forI=3to1step–1printspc(5-I);forj=1to2*I-1print“*”;nextjprintnextI*(B)*****)4下列程序在文本框输入“ABCD”四个字符时,窗体上显示的是(***(C)*****(D)*************)******privatesubtext1_change(***;endsub(A)ABCD(B)A(D)A(C)AABABCABCDBAB5哪个程序段不能分别正确显示1!,2!,3!,4!的()ABCC(A)forI=1to4D(B)forI=1to4ABCDn=1forj=1toI二:填空题forj=1toIn=1n=n*jn=n*j1:要使下列nextjnextjFor语句循环执行20次,循环变量的初值应当是:printnprintnfork=(nexti①)to–5step–2nexti2:下面程序段显(C)示N=1(②)个“*”。(D)N=1forj=1to4J=1ForI=1ton=n*j5Dowhilej<=4printnn=n*jFornextj=2jtoIprintnPrint“*”;j=j+1loopNextjNextI3:下列第40句共执行了(③)次,第41句共执行(④)次。30forj=1to12step3fork=6to2step–2printj,knextknextj以下程序运行后,si,sj,I,j,k的结果分别是(⑤),(⑥),(⑦),(⑧),(⑨),(⑽)mand1_click()forI=1to2forj=1toIsk=0fork=jto3sk=sk+1nextksj=sj+1nextjsi=si+1nextIprintsi,sj,sk,I,j,kendsub5:下面程序运行后输出的结果是( ⑾)mand1_click()forI=0to3printtab(5*I+1); ”2”+I;”2”&I;nextIendsub6:下面程序运行后输出的结果是( ⑿)mand1_click()a$=”*”;b$=”$”forI=2to4ifImod2=0thenx$=string(len(a$)+I,b$)elsex$=string(len(a$)+I,a$)endifprintx$;nextIendsub执行下面程序,打印结果是(⒀)optionexplicitprivatesubform_click()dimIasinteger,jasintegerj=10forI=1tojstep2I=I+1J=j-INextIPrintI,jEndsub8:输入任意长度的字符串,要求将字符顺序倒置,例如:将输入“ ABCDEFG”变换成“GFEDCBA”mand1_click()dima$,I%,c$a=inputbox(输“入字符串”)n=(⒁)forI=1to(⒂)c=mid(a,I,1)mid(a,I,1)=( ⒃)( ⒄)=cnextIprintaendsub9:找出被3,5,7除,余数为1的最小的5个正整数。mand1_click()DimcountN%,n%CountN=0N=1DoN=n+1If( ⒅ ) thenPrint nCountN=countN+1EndifLoop( ⒆)Endsub10:某次大奖赛,有7个评委打分,如下程序对一名参加比赛者,输入 7个评委的打分分数,去掉一个最高分,一个最低分数,求出平均分为该参赛选手的得分。mand1_click()Dimmark!,aver!,I%,max!,min!Aver=0ForI=1to7Mark=inputbox(输“入第“&I&”位评委的打分”)IfI=1thenMax1=mark( ⒇ )elseifmarkmax1then( (22))endifendif((23) )nextIaver=((24) )printaverendsub11:由键盘上输入一个正整数,找出大于或等于该数的第一个质数。mand1_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*13mand1_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