完整版VB循环结构测试题及答案.docx

1、完整版VB循环结构测试题及答案循环结构测试题 （四）一：选择题1以下（ ）是正确的for.nex结构。A) for x=1 to step 10(B) for x=3 to -3 step -3next x(D) for x=3 to step 3next y)(B) I=1 doI=I+2loop until I=10(D) I=6doI=I-2loop until I=1next x(C ) for x=1 to 10 re: .Next xIf I=10 then goto re2:下列循环语句能正常结束循环的是( A) I=5doI=I+1Loop until I0(C) I=10do

2、I=I-1Loop until I03:下面程序段的运行结果为( )for I=3 to 1 step -1print spc(5-I);for j=1 to 2*1-1printnext j printn ext I(D) AABABCABCDprivate sub text1_cha nge()print textl.text;end sub(A) ABCD (B) A(C )AABABCABCD BCD5哪个程序段不能分别正确显示1!,2!,3!,4!的（）(A) for 1=1 to 4n=1 for j=1 to I n=n*j n ext j print n n ext i(C)

3、N=1for j=1 to 4n=n*jprint nn ext j(D) N=1J=1Do while j=4 n=n*j print n j=j+1 loop:填空题1:要使下列For语句循环执行20次，循环变量的初值应当是:for k=（ ）to 45 step 2:下面程序段显示（）个“ * ”。For I=1 to 5For j=2 to IPri nt “ * ”；Next jNext I3:下列第40句共执行了()次，第41句共执行( )30 for j=1 to 12 step 340for k=6 to 2 step 41prin t j,k43 next j4:以下程序运行

4、后，si,sj,l,j,k的结果分别是（），（）,（）， （），（）,（）private sub command1_click（ ）for l=1 to 2for j=1 to lsk=0for k=j to 3sk=sk+1next ksj=sj+1next jsi=si+1next lprint si,sj,sk,l,j,kend sub5:下面程序运行后输出的结果是（11）private sub command1_click（）for l=0 to 3print tab（5*l+1）; ”2”+l; ”2”&l;next lend sub(12)6:下面程序运行后输出的结果是( priv

5、ate sub command1_click() a$=”*”;b$= ”$”for I=2 to 4if I mod 2=0 then x$=string(len(a$)+I,b$)elsex$=string(len(a$)+I,a$)end ifprint x$;next Iend sub7：执行下面程序，打印结果是(13)option explicitprivate sub form_click( )dim I as integer,j as integerj=10for I=1 to j step 2I=I+1J=j-INext IPrint I,jEnd sub8:输入任意长度的字符

6、串，要求将字符顺序倒置，例如：将输入“ ABCDEFG ”变换成“ GFEDCBA ”private sub command1_click()dim a$,I%,c$a=inputbox( 输“入字符串 ”)n=( (14) )for I =1 to ( (15)c=mid(a,I,1)mid(a,l,1)=( (16)(17) )=cnext Iprint aend sub9：找出被 3，5，7 除，余数为 1 的最小的 5个正整数。Private sub command1_click()Dim countN%,n%CountN=0N=1DoN=n+1If ( (18) ) the nPri

7、nt nCountN=countN+1End ifLoop ( (19)End sub10：某次大奖赛， 有 7 个评委打分，如下程序对一名参加比赛者，输入7 个评委的打分分数，去掉一个最高分，一个最低分数，求出平均分 为该参赛选手的得分。Private sub command1_click()Dim mark!,aver!,I%,max!,min!Aver=0For I=1 to 7Mark=inputbox( 输“入第“ &I& ”位评委的打分 ”)If I=1 thenMax1=mark(20)elseif markmax1 thenend ifend if( ( 23) )next I

8、aver=(24) )print averend sub11：由键盘上输入一个正整数， 找出大于或等于该数的第一个质数。Private sub command1_click( )Dim m%,x%,tag as BooleanTag=falseX=inputbox( 输“入正整数 ”)Do while not tagM=2Tag=( (25) )Do while tag and (mn end sub测试题（四）答案）选择题123456789101112BCBCB二) 填空题1: 332: 103: 4, 124:2, 3, 2, 3, 3, 45:2 20 3 21 4 22 5 236 ： *$*$7:13-16 8:LEN(a),i nt(n 2),mid(a ,n-l+1,1),mid(a ,n-1+1,1)9:n mod 3=1 and n mod 5=1 and n mod 7=1until countN=5 或 while countN510: min 1二mark ; min 1二mark ; max1二markaver二aver+mark ; (aver-max1- min 1)/511:true; tag二true ; m=m+1