VB循环结构测试题及答案

1、VB循环结构测试题及答案循环结构测试题(四)一：选择题1：以下（）是正确的for.next结构。（A）f or 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 3re: . Next x next y If I=10 then goto re2:下列循环语句能正常结束循环的是（）（A）I=5 (B) I=1do doI=I+1 I=I+2 Loop until I(C) I=10 (D) I=6do doI=I-1 I=I-2 Loop until If

2、or I=3 to 1 step 1print spc(5-I);for j=1 to 2*I-1 print “*”; next j print next I (A)4下列程序在文本框输入“ABCD ”四个字符时，窗体上显示的是（ ）private sub text1_change( ) print text1.text; end sub(A) ABCD (B) ( C ) AABABCABCD5哪个程序段不能分别正确显示1!,2!,3!,4!的（ ）* * * * * * * * *(B) * * * * * * * *(C) * * * * * * * *(D) * * * * * *

3、* *A B C D(D) AAB ABC ABCD 二：填空题1：要使下列For 语句循环执行20次，循环变量的初值应当是：for k=( ) to 5 step 2 2:下面程序段显示（ ）个“*”。For I=1 to 5 For j=2 to I Print “*”; Next j Next I3: 下列第40句共执行了（ ）次，第41句共执行（ ）次。30 for j=1 to 12 step 3 40 for k=6 to 2 step 2 41print j,k（A ） for I=1 to 4n=1for j=1 to I n=n*j next j print n next i

4、（B ）for I=1 to 4 for j=1 to I n=1 n=n*j next j print n next i(C) N=1for j=1 to 4 n=n*j print nnext j(D) N=1J=1Do while jmax1 then( （22）)end ifend if( （23）)next Iaver=(（24）)print averend sub11：由键盘上输入一个正整数，找出大于或等于该数的第一个质数。Private sub command1_click( )Dim m%,x%,tag as BooleanTag=falseX=inputbox(“输入正整数”

5、)Do while not tagM=2Tag=( （25）)Do while tag and (mIf x mod m=0 then ( （26）) else ( （27）)LoopIf not tag then x=x+1LoopPrint xEnd sub12：将一个正整数分解为质因数乘机，例如：234=2*3*3*13 private sub command1_click()dim n%,factor%,first as Booleann=inputbox(“输入一个正整数”)factor=2first=truedodo while ( (28) )if first thenprint

6、 n;”=”;factor;elseprint “*”;factor;end if(29) )first=falseloopfactor=factor+1loop until factornend sub测试题（四）答案一）选择题二）填空题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=1until countN=5 或while countN10：min1=mark ；min1=mark ；ma