最新VB循环结构测试题及答案.docx
- 文档编号:14306013
- 上传时间:2023-06-22
- 格式:DOCX
- 页数:14
- 大小:34.93KB
最新VB循环结构测试题及答案.docx
《最新VB循环结构测试题及答案.docx》由会员分享,可在线阅读,更多相关《最新VB循环结构测试题及答案.docx(14页珍藏版)》请在冰点文库上搜索。
最新VB循环结构测试题及答案
循环结构测试题(四)
一:
选择题
1:
以下()是正确的for….next结构。
(A)forx=1tostep10(B)forx=3to–3step-3
…..…..
nextxnextx
(C)forx=1to10(D)forx=3tostep3
re:
….……
Nextxnexty
IfI=10thengotore
2:
下列循环语句能正常结束循环的是()
(A)I=5(B)I=1
dodo
I=I+1I=I+2
LoopuntilI<0loopuntilI=10
(C)I=10(D)I=6
dodo
I=I-1I=I-2
LoopuntilI<0loopuntilI=1
3:
下面程序段的运行结果为()
forI=3to1step–1
printspc(5-I);
forj=1to2*I-1
print“*”;
nextj
nextI
(A)
4下列程序在文本框输入“ABCD”四个字符时,窗体上显示的是()
privatesubtext1_change()
printtext1.text;
endsub
(A)ABCD(B)
(C)AABABCABCD
5哪个程序段不能分别正确显示1!
2!
3!
4!
的()
二:
填空题
1:
要使下列For语句循环执行20次,循环变量的初值应当是:
fork=(①)to–5step–2
2:
下面程序段显示(②)个“*”。
ForI=1to5
Forj=2toI
Print“*”;
Nextj
NextI
3:
下列第40句共执行了(③)次,第41句共执行(④)次。
30forj=1to12step3
40fork=6to2step–2
41printj,k
42nextk
43nextj
4:
以下程序运行后,si,sj,I,j,k的结果分别是(⑤),(⑥),(⑦),(⑧),(⑨),(⑽)
privatesubcommand1_click()
forI=1to2
forj=1toI
sk=0
fork=jto3
sk=sk+1
nextk
sj=sj+1
nextj
si=si+1
nextI
printsi,sj,sk,I,j,k
endsub
5:
下面程序运行后输出的结果是(⑾)
privatesubcommand1_click()
forI=0to3
printtab(5*I+1);”2”+I;”2”&I;
nextI
endsub
6:
下面程序运行后输出的结果是(⑿)
privatesubcommand1_click()
a$=”*”;b$=”$”
forI=2to4
ifImod2=0then
x$=string(len(a$)+I,b$)
else
x$=string(len(a$)+I,a$)
endif
printx$;
nextI
endsub
7:
执行下面程序,打印结果是(⒀)
optionexplicit
privatesubform_click()
dimIasinteger,jasinteger
j=10
forI=1tojstep2
I=I+1
J=j-I
NextI
PrintI,j
Endsub
8:
输入任意长度的字符串,要求将字符顺序倒置,例如:
将输入“ABCDEFG”变换成“GFEDCBA”
privatesubcommand1_click()
dima$,I%,c$
a=inputbox(“输入字符串”)
n=(⒁)
forI=1to(⒂)
c=mid(a,I,1)
mid(a,I,1)=(⒃)
(⒄)=c
nextI
printa
endsub
9:
找出被3,5,7除,余数为1的最小的5个正整数。
Privatesubcommand1_click()
DimcountN%,n%
CountN=0
N=1
Do
N=n+1
If(⒅)then
Printn
CountN=countN+1
Endif
Loop(⒆)
Endsub
10:
某次大奖赛,有7个评委打分,如下程序对一名参加比赛者,输入7个评委的打分分数,去掉一个最高分,一个最低分数,求出平均分为该参赛选手的得分。
Privatesubcommand1_click()
Dimmark!
aver!
I%,max!
min!
Aver=0
ForI=1to7
Mark=inputbox(“输入第“&I&”位评委的打分”)
IfI=1then
Max1=mark
(⒇)
else
ifmark ((21)) elseifmark>max1then ((22)) endif endif ((23)) nextI aver=((24)) printaver endsub 11: 由键盘上输入一个正整数,找出大于或等于该数的第一个质数。 Privatesubcommand1_click() Dimm%,x%,tagasBoolean Tag=false X=inputbox(“输入正整数”) Dowhilenottag M=2 Tag=((25)) Dowhiletagand(m<(x\2)) Ifxmodm=0then((26))else((27)) Loop Ifnottagthenx=x+1 Loop Printx Endsub 12: 将一个正整数分解为质因数乘机,例如: 234=2*3*3*13 privatesubcommand1_click() dimn%,factor%,firstasBoolean n=inputbox(“输入一个正整数”) factor=2 first=true do dowhile((28)) iffirstthen printn;”=”;factor; else print“*”;factor; endif ((29)) first=false loop factor=factor+1 loopuntilfactor>n endsub 测试题(四)答案 一)选择题 1 4、“体验化”消费2 据介绍,经常光顾“碧芝”的都是些希望得到世界上“独一无二”饰品的年轻人,他们在琳琅满目的货架上挑选,然后亲手串连,他们就是偏爱这种DIY的方式,完全自助。 3 4、宏观营销环境分析4 为了解目前大学生对DIY手工艺品制作的消费情况,我们于己于人2004年3月22日下午利用下课时间在校园内进行了一次快速抽样调查。 据调查本次调查人数共50人,并收回有效问卷50份。 调查分析如下: 5 人民广场地铁站有一家名为“漂亮女生”的饰品店,小店新开,10平方米不到的店堂里挤满了穿着时尚的女孩子。 不几日,在北京东路、淮海东路也发现了“漂亮女生”的踪影,生意也十分火爆。 现在上海卖饰品的小店不计其数,大家都在叫生意难做,而“漂亮女生”却用自己独特的经营方式和魅力吸引了大批的女生。 6 7 8 9 我们女生之所以会钟爱饰品,也许是因为它的新颖,可爱,实惠,时尚,简单等。 的确,手工艺品价格适中。 也许还有更多理由和意义。 那么大学生最喜欢哪种手工艺品呢? 此次调查统计如下图(1-3)10 11 大学生购买力有限,即决定了要求商品能价廉物美,但更注重的还是在购买过程中对精神文化爱好的追求,满足心理需求。 12 是□否□B 标题: 大学生究竟难在哪? —创业要迈五道坎2004年3月23日C “碧芝自制饰品店”拥有丰富的不可替代的异国风采和吸引人的魅力,理由是如此的简单: 世界是每一个国家和民族都有自己的饰品文化,将其汇集进行再组合可以无穷繁衍。 B C B 二)填空题 1: 33 2: 10 3: 4,12 4: 2,3,2,3,3,4 5: 220321422523 6: **$$$****$$$$$ 7: 13-16 8: LEN(a),int(n\2),mid(a,n-I+1,1),mid(a,n-I+1,1) 9: nmod3=1andnmod5=1andnmod7=1 untilcountN=5或whilecountN<5 10: min1=mark;min1=mark;max1=mark aver=aver+mark;(aver-max1-min1)/5 11: true;tag=true;m=m+1 12: nmodfactor=0;n=n\factor
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 最新 VB 循环 结构 测试 答案