1、最新VB循环结构测试题及答案循环结构测试题(四)一:选择题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 do
2、I=I-1 I=I-2 Loop 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 jprintnext I(A) 4下列程序在文本框输入“ABCD”四个字符时,窗体上显示的是( ) private sub text1_change( ) print text1.text;end sub(A) ABCD (B) ( C ) AABABCABCD 5哪个程序段不能分别正确显示1!,2!,3!,4!的( ) 二:填空题1:要使下列For语
3、句循环执行20次,循环变量的初值应当是: for 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
4、 I=1 to 2 for j=1 to I 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
5、 x$=string(len(a$)+I,b$)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 command
6、1_click() dim a$,I%,c$ 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、输入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( )elseif markmax1 then( (22) )end ifend if( (23) )next Iaver=((24) )print averend sub 11:由键盘上输入一个正整数,找出大于或等于该数的第一个质数。 Private
8、 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 (mnend sub测试题(四)答案一)选择题14、“体验化” 消费2据介绍,经常光顾“碧芝”的都是些希望得到世界上“独一无二”饰品的年轻人,他们在琳琅满目的货架上挑选,然后亲手串连,他们就是偏爱这种的方式,完全自助。34、宏观营销环境分析4为了解目前大学生对DIY手工艺品制作的消费情况,我们于己于人2004年3月22日下午利用下课时间在校园
9、内进行了一次快速抽样调查。据调查本次调查人数共50人,并收回有效问卷50份。调查分析如下:5人民广场地铁站有一家名为“漂亮女生”的饰品店,小店新开,10平方米不到的店堂里挤满了穿着时尚的女孩子。不几日,在北京东路、淮海东路也发现了“漂亮女生”的踪影,生意也十分火爆。现在上海卖饰品的小店不计其数,大家都在叫生意难做,而“漂亮女生”却用自己独特的经营方式和魅力吸引了大批的女生。6789我们女生之所以会钟爱饰品,也许是因为它的新颖,可爱,实惠,时尚,简单等。的确,手工艺品价格适中。也许还有更多理由和意义。那么大学生最喜欢哪种手工艺品呢?此次调查统计如下图(1-3)1011大学生购买力有限,即决定了要
10、求商品能价廉物美,但更注重的还是在购买过程中对精神文化爱好的追求,满足心理需求。12是 否B标题:大学生究竟难在哪?创业要迈五道坎 2004年3月23日C“碧芝自制饰品店”拥有丰富的不可替代的异国风采和吸引人的魅力,理由是如此的简单:世界是每一个国家和民族都有自己的饰品文化,将其汇集进行再组合可以无穷繁衍。BCB二) 填空题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
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1