《vb循环结构测试题及答案.doc》由会员分享，可在线阅读，更多相关《vb循环结构测试题及答案.doc（10页珍藏版）》请在金锄头文库上搜索。
1、循环结构测试题(四)一：选择题1：以下（ ）是正确的for.next结构。（A） for x=1 to step 10 (B) for x=3 to 3 step -3 . .next x next x(C ) for x=1 to 10 (D) for x=3 to step 3 re: . Next x next y If I=10 then goto re2:下列循环语句能正常结束循环的是（ ）（A） I=5 (B) I=1do do I=I+1 I=I+2 Loop until I0 loop until I=10(C) I=10 (D) I=6 do doI=I-1 I=I-2 Lo
2、op until I0 loop until I=13:下面程序段的运行结果为（ ）for I=3 to 1 step 1 print spc(5-I);for j=1 to 2*I-1 print “*”;next jprint * * * * * * * * (B) * * * * * * * * * (C) * * * * * * * * * (D) * * * * * * * * * next I(A)4下列程序在文本框输入“ABCD”四个字符时，窗体上显示的是（ ） private sub text1_change( ) print text1.text;end subABCD(D)
3、 AABABCABCD(A) ABCD (B) ( C ) AABABCABCD 5哪个程序段不能分别正确显示1!,2!,3!,4!的（ ） （A） for I=1 to 4n=1for j=1 to In=n*jnext jprint nnext i（B） for I=1 to 4for j=1 to In=1n=n*jnext jprint nnext i(C) N=1for j=1 to 4n=n*jprint nnext j(D) N=1J=1Do while j=4n=n*jprint nj=j+1loop 二：填空题1：要使下列For语句循环执行20次，循环变量的初值应当是： fo
4、r k=( ) to 5 step 22:下面程序段显示（ ）个“*”。 For I=1 to 5 For j=2 to I Print “*”; Next jNext I 3: 下列第40句共执行了（ ）次，第41句共执行（ ）次。30 for j=1 to 12 step 340 for k=6 to 2 step 241 print j,k42 next k43 next j4: 以下程序运行后，si,sj,I,j,k的结果分别是（ ），（ ），（ ），（ ），（ ），（ ） private sub command1_click( ) for I=1 to 2 for j=1 to I
5、sk=0 for k=j to 3sk=sk+1 next ksj=sj+1next jsi=si+1next Iprint si,sj,sk,I,j,kend sub5:下面程序运行后输出的结果是（ ） private sub command1_click() for I=0 to 3 print tab(5*I+1);”2”+I;”2”&I;next Iend sub6:下面程序运行后输出的结果是（ ） private sub command1_click() a$=”*”;b$=”$”for I=2 to 4if I mod 2=0 then x$=string(len(a$)+I,b$
6、)else x$=string(len(a$)+I,a$)end ifprint x$;next Iend sub7: 执行下面程序，打印结果是（ ） option explicit private sub form_click( ) dim I as integer,j as integer j=10 for I=1 to j step 2 I=I+1 J=j-I Next IPrint I,jEnd sub8:输入任意长度的字符串，要求将字符顺序倒置，例如：将输入“ABCDEFG”变换成“GFEDCBA” private sub command1_click() dim a$,I%,c$
7、a=inputbox(“输入字符串”) n=( ) for I =1 to ( ) c=mid(a,I,1) mid(a,I,1)=( ) ( )=cnext Iprint aend sub9：找出被3，5，7除，余数为1的最小的5个正整数。 Private sub command1_click() Dim countN%,n% CountN=0 N=1 Do N=n+1 If ( ) then Print n CountN=countN+1 End if Loop ( ) End sub10：某次大奖赛，有7个评委打分，如下程序对一名参加比赛者，输入7个评委的打分分数，去掉一个最高分，一个最
8、低分数，求出平均分为该参赛选手的得分。 Private sub command1_click() Dim mark!,aver!,I%,max!,min! Aver=0 For I=1 to 7 Mark=inputbox(“输入第“&I&”位评委的打分”) If I=1 then Max1=mark( )elseif markmax1 then( （22） )end ifend if( （23） )next Iaver=(（24） )print averend sub 11：由键盘上输入一个正整数，找出大于或等于该数的第一个质数。 Private sub command1_click( )
9、Dim m%,x%,tag as Boolean Tag=false X=inputbox(“输入正整数”) Do while not tag M=2 Tag=( （25） )Do while tag and (mnend sub测试题（四）答案一）选择题123456789101112BCBCB二） 填空题1：332：103: 4，124:2，3，2，3，3，45:2 20 3 21 4 22 5 236：*$*$7:13-168:LEN(a),int(n2),mid(a,n-I+1,1),mid(a,n-I+1,1)9:n mod 3=1 and n mod 5=1 and n mod 7=1 until countN=5 或while countN510：min1=mark ； min1=mark ； max1=markaver=aver+mark ； (aver-max1-min1)/511:true； tag=true ； m=m+112: n mod factor=0 ； n=nfactor解决党委自身和基层党支部存在的的突出问题，发挥各村、社区、机关单位党支部在当前城市征迁、园区建设、招商引资、服务群众、维护稳定的作用，我镇党委高度重视，制定了切合临淮实际的活动实施方案，按照中央规定的活动步骤和要求扎实有效的开展了基层组织建设年活动。
