2022年VB循环结构测试题及答案 .pdf

循环结构测试题(四)一：选择题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 re 2:下列循环语句能正常结束循环的是（）（A）I=5(B)I=1 do do I=I+1 I=I+2 Loop until I0 loop until I=10(C)I=10(D)I=6 do do I=I-1 I=I-2 Loop until I0 loop until I=1 3:下面程序段的运行结果为（）for I=3 to 1 step 1 print spc(5-I);名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 10 页 -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)AABABCABCD 5 哪个程序段不能分别正确显示1!,2!,3!,4!的（）*(B)*(C)*(D)*A B C D(D)A AB ABC ABCD 名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 10 页 -二：填空题1：要使下列 For 语句循环执行 20 次，循环变量的初值应当是：for k=()to 5 step 2 2:下面程序段显示（）个“*”。For I=1 to 5 For j=2 to I Print“*”;Next j Next I 3:下列第 40 句共执行了（）次，第 41 句共执行（）次。30for j=1 to 12 step 3 40for k=6 to 2 step 2 41print j,k（A）for I=1 to 4 n=1 for j=1 to I n=n*j next j print n next i（B）for I=1 to 4 for j=1 to I n=1 n=n*j next j print n next i(C)N=1 for j=1 to 4 n=n*j print n next j(D)N=1 J=1 Do while j=4 n=n*j print n j=j+1 loop 名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 10 页 -42next k 43next j 4:以下程序运行后，si,sj,I,j,k 的结果分别是（），（），（），（），（），（）private sub command1_click()for I=1 to 2 for j=1 to I sk=0 for k=j to 3 sk=sk+1 next k sj=sj+1 next j si=si+1 next I print si,sj,sk,I,j,k end sub 5:下面程序运行后输出的结果是（）private sub command1_click()for I=0 to 3 print tab(5*I+1);”2”+I;”2”&I;next I 名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 10 页 -end sub 6:下面程序运行后输出的结果是（）private sub command1_click()a$=”*”;b$=”$”for I=2 to 4 if I mod 2=0 then x$=string(len(a$)+I,b$)else x$=string(len(a$)+I,a$)end if print x$;next I end sub 7:执行下面程序，打印结果是（）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 I 名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 10 页 -Print I,j End sub 8:输入任意长度的字符串，要求将字符顺序倒置，例如：将输入“ABCDEFG”变换成“GFEDCBA”private sub command1_click()dim a$,I%,c$a=inputbox(“输入字符串”)n=()for I=1 to()c=mid(a,I,1)mid(a,I,1)=()()=c next I print a end sub 9：找出被 3，5，7 除，余数为 1 的最小的 5 个正整数。Private sub command1_click()Dim countN%,n%CountN=0 N=1 Do N=n+1 名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 10 页 -If()then Print n CountN=countN+1 End if Loop()End sub 10：某次大奖赛，有 7 个评委打分，如下程序对一名参加比赛者，输入7 个评委的打分分数，去掉一个最高分，一个最低分数，求出平均分为该参赛选手的得分。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()else if markmax1 then(（22）)名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 10 页 -end if end if(（23）)next I aver=(（24）)print aver end sub 11：由键盘上输入一个正整数，找出大于或等于该数的第一个质数。Private sub command1_click()Dim m%,x%,tag as Boolean Tag=false X=inputbox(“输入正整数”)Do while not tag M=2 Tag=(（25）)Do while tag and(mn end sub 测试题（四）答案一）选择题名师资料总结-精品资料欢迎下载-名师精心整理-第 9 页，共 10 页 -1 2 3 4 5 6 7 8 9 10 11 12 B C B C B 二）填空题1：33 2：10 3:4，12 4:2，3，2，3，3，4 5:2 20 3 21 4 22 5 23 6：*$*$7:13-16 8: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 countN5 10：min1=mark；min1=mark；max1=mark aver=aver+mark；(aver-max1-min1)/5 11:true；tag=true；m=m+1 12:n mod factor=0；n=nfactor 名师资料总结-精品资料欢迎下载-名师精心整理-第 10 页，共 10 页 -