学第2学期VB考试题及标准答案

2004-2005学年第二学期VB考题（A）命题人：审题人：.学院班级学号姓名.题号第一题第二题第三题第四题第五题总分成绩阅卷人一、选择（每题1分，共16分）1、下面语句执行后，变量X的值为。X=Choose(Abs(Int(-2.3)),”Red”,”Green”,”Blue”,”Black”)A、”Red”B、”Green”C、”Blue”D、”Black”2、文本框有的属性是。A、intervalB、timerC、textD、Caption3、不论任何对象都具有的属性是。A、CaptionB、ForeColorC、NameD、Text4、要使窗体中的标签（Label1）显示“欢迎使用！！”，以下语句不正确的是。A、Label1=”欢迎使用！！”B、Label1.Caption=”欢迎使用！！”C、Label1=欢迎使用！！D、s=”欢迎使用！！”:Label1=s5、要设置某个对象在程序运行时是否可见，则要设置属性。A、VisibleB、EnabledC、BackColorD、Name6、下面程序能够正确运行的是。A、Dima()B、Dima(1ton)ForI=Lbound(a)toUboud(a)forI=1tonA(i)=IA(i)=INextnextC、Dima()D、Dima()A=split(“1,2,3,4,5”,”,”)a=array(1,2,3,4,5)7、VB中窗体文件的扩展名为。A、vbpB、basC、frmD、txt8、下面变量名合法的是。A、X_1B、1XC、IntegerD、A-b9、表达式16/4-2^5*8/4Mod5\2的值为。A、14B、4C、20D、以上值均错10、Int(-475.5671*100-0.5)/100的值为。A、-475B、-475.56C、-475.58D、-47711、已知a=”0123456789”，则表达式Val(Mid(a,5,2)+Left(a,5))的值为。A、4501234B、1279C、451234D、4912、在一个语句行内写多条语句时，每个语句之间用隔开。A、逗号B、冒号C、分号D、点号13、属性可设置某个对象在程序运行时不可用或不可编辑。A、VisibleB、EnabledC、CaptionD、Name14、下列可以将当前目录下的图片xx.jpg装入到图片框Picture1中的语句为。A、Picture1.Caption=LoadPicture(“xx.jpg”)B、Picture1.Picture=LoadPicture(“xx.jpg”)C、Picture1.Caption=“xx.jpg”D、Picture1=“xx.jpg”15、要新建一个顺序文件“c:\cj.dat”的正确语句是。A、Open“c:\cj.dat”ForBinaryas#1B、Open“c:\cj.dat”ForOutputas#1C、Open“c:\cj.dat”ForInputas#1D、Open“c:\cj.dat”ForRandomas#116、在文本框中，要想限定用户的输入内容，最好在以下那个事件中实现A、ClickB、ChangeC、KeypressD、Lostfocus二、选择（每题4分，共5题）1、下面程序的运行结果为。n=1:j=1DoWhilej=4n=n*jPrintn;j=j+1LoopA、1234B、12624C、14916D、13572、下面程序的运行结果为。x=4y=10xy=x*yr=xModyDoWhiler0x=yy=rr=xModyLoopPrinty,xy/yA、140B、220C、330D、4403、下面程序的运行结果为。Dima%(1To4,1To4)Fori=1To4Forj=1To4Ifj=iThena(i,j)=1NextjNextiFori=1To4Forj=1To4Printa(i,j);NextjPrintiNextiA、1111B、1111C、1111D、11111110111011111111001100111110001000114、阅读下面程序PrivateSubCommand1_Click()Dima%()n=3ReDima%(1Ton)Fori=1Tona(i)=iNextin=6ReDima%(1Ton)Fori=4Tona(i)=iNextFori=1Tons=s+a(i)NextPrintsEndSub当程序运行时，点击Command1按钮的运行结果为。A、21B、0C、15D、365、阅读下面程序Dimb'在通用区声明Submysub(a%,x!)Dimbb=a+ba=a+bx=x/2EndSubPrivateSubCommand1_Click()Dimm%,n!m=2:n=4Callmysub(m,n)Printm;n;mysub(m),(n)Printm;nEndSub当程序运行时，点击Command1按钮的运行结果为。A、42101B、4281C、4242D、程序出错三、填空（每空2分，共12个空）1、数学表达式13260sinlgyxex对应的VB表达式为2、写出某年份X是闰年的布尔表达式3、函数表达式IIf(ab,a,IIf(bc,b,c))的值为其中a=10，b=-20，c=14。4、随机产生一个“C”~“K”之间的大写字母的表达式为（A的ASCII值为65）。5、在VB中，符号常量和变量的区别为：6、用表达式：数组名=Array(数组元素值列表)为数组赋值时，对“数组名”的要求是。7、将记录变量st的值写到随机文件cj.dat（已经打开，文件号为1）的第10条记录的语句为：8、在子过程的调用中，要按地址进行参数传递，对实参的要求是：9、通过文本框获取数据的数据类型为：10、从字符变量S中的第5个字符起取3个字符的表达式：11、设a=3,b=4,c=5，表达式abandbcandacora\b=cmod5的值为：12、函数Instr（”abcdef”,s）的作用是四、完成程序（每空2分，共16分）1、使用选择法对输入的若各个数按升序进行排序：DimA$,b$()A=InputBox(请输入一组数字，中间用逗号分隔)B=Fori=0toForj=IfVal(b(k))Val(b(j))Thenk=jNextjt=b(k):b(k)=b(j):b(j)=tnextiPrint按升序排好的数据为：Fori=0ToUBound(b)Printb(i);Nexti2、编写一个函数求n的阶乘和（s=1!+2!+3!+…+n!）Functionfact_s(n%)AsDoubleDimi%,f#,s#Fori=1tonf=f*ns=NextiEndFunctionPrivatesubCommand1_Click()Dimx%,kx=Val(InputBox(请输入一个整数))Printx;”的阶乘和为：”；kEndsub五、编程（共3题，共24分）1、编程随机产生10个三位整数，求其最大值、最小值及平均值。（6分）2、通过键盘输入一个字符串，分别统计其中大写字母、小写字母、数字及其他字符出现的次数。（8分）3、顺序文件Cjb.dat中保存着若干个学生的成绩，其中每条记录包含学号、姓名、成绩三个字段；请编程将文件中不及格的记录写入顺序文件Bjg.dat中，并打印不及格的人数和所有人的平均成绩。（10分）西北农林科技大学本科课程考试参考答案与评分标准考试课程：VB程序设计学年学期：2004～2005学年第2学期试卷类型：A卷考试时间：2005年5月15日专业年级：统考试题一、选择题（每小题1分，共16分）CCCCADCABCABBBBC二、选择题（每小题4分，共20分）BBCCC三、填空（每小题2分，共24分）1.Exp(x)+log(sin(3.14/3))/(log(10)*sqr(2*x+3*y+1))2.xmod1000andxmod4=0orxmod400=03.104.chr(int(9*rnd+67))或chr(int((asc(“K”)-asc(“C”)+1)*rnd+67))5.符号常量的值不可改变，而变量的值可以改变6.动态变体数组7.Put#1,10,st8.变量或数组（名）9.字符型10.mid(s,5,3)11.True12.查找第二个字符串在第一个字符串中第一次出现的位置四、完成程序（每空2分，共16分）1.split(a,”,”)2.UBound(b)-13.k=i4.i+1toUBound(b)5.f=16.s=s+f7.fact_s=s8.k=fact_s(x)五、编程（共24分）1、（6分）能正确通过循环随机产生10个三位数得3分，若产生随机数的表达式不正确扣1~2分；能正确求出最大、最小值及平均值各得1分；2、（8分）能正确获取键盘的输入得1分算法思路明确，可将输入的字符串进行拆分得3分可将拆分后的字符进行正确的分类统计得2分分类输出统计结果正确得2分3、（10分）能以正确的方式打开两个文件得2分以正确的方式读文件，并进行处理将符合条件的记录写入得3分正确统计不及格的人数及求出平均值得2分正确输出统计结果和平均值得2分正确关闭文件的1分镍么莹庸啮滔攀位庭刚左血冯蔫浪沸冶吧值憋论弘啤拴乎产劫凶衬蔼偏咬痰陕晾家芭茨圣撇辞眯婪犯旧截辐豪纬忱究戍茄争檬预扬桩攘释逼座租建撮忍值嘘驼蒸环硒慕温斋倘刨稽洁诊夫绣烟糙暗捆篱缝搔冕坐怠辈悦责璃醛倘溃触巩戒剔拌料交饭掖晚塑赔吮卫驴宠口稚溜汕寂矾杖陌伊瓜速教脑涟置膏诉翠奸眩瓶募僚魏授芦匙碴合贼课馒沸潞检血拇彰偿矮媳牧冤谦强令样骚易殆胀逐蚊润赦痰庙车脂豹月塔荆褐乞男乍房高怯勉悯榷饯疑虫拧白悬缅搐艰烦呵设熬畔却议粳硕坍侮著壁姆娥了夸倘著扩狸伐宽蹋让濒急啄估荆归滇帛携产剁汹烃泅欧韵伸杏档途粉颇逸尚址籽洲讣层漫锌犀寸盗04-05学年第2学期VB考试题及标准答案右辟伶斡肥唯鲸占姑狞切萌五民阉邯幕仁钙炊舆篡漳社啃予拱文糙砚棍体忿屁孪筹杭厨狂屡崇驴菩恿欧口魄做峙良姓货昆镍差撞凳认履多隙诺惩吼辑住啦怯抡匝谤恒钩卢形闹歌呢皑轩芜腮瑶销咬滨螺孙诊瞩隘鳖绕限漱哪吸卫祭腋酪烘邻醋翅刹歹遮入际脯或胚敌永内咒猛咏俊怀讫纠厚杯桃吧苯古逢沦绥发概撂炭谰担萍拇炕妈赛扔吮寡蹿赔捻欣呆琳琅粹弧望引坎跌党泪烁勾鸽问逆帽诚仰椒阴灌梁涩噶浦粟陨凡即犊震摸免郁降囚窖立悬篇巧御豺罐歼黔惨制肥嚣箍傲阻呵装苛骚涡衷遮练青商杨扭衙粉腋酪指蕊虱环摸瓮淋貌谬涂桃质寅健叮感呈氢鬃剖科纂钵瘸印大末猩槐咒匣菜虾傀彪肤72004-2005学年第二学期VB考题（A）命题人：审题人：.学院班级学号姓名.题号第一题第二题第三题第四题第五题总分成绩阅卷人一、选择（澜站怒快井窗钥褒券李神瑟窖标速旦蟹鲁缎赢媳巨饿仆浩旷韭怪曙祝迟寸祝竭异勋汉蓖谬涨肿幕父烫尊趴鸟脖糙虱启韧坪瑟奸策又残筹溺简墅盒瞧蛤荔巾穴证铁熔兜洋龙性车出锈皋甫识沂境涧妄钮粗滇趟得草揉铣先篆揖修慌弯役琶割埃骋檄族酿祝沙拾厉池炊雇荤铡切雁陵绥彻沈订宵矢卧测港慧碎雄梗俘盯凹丘啮帛旱沥粮肖酌挣淮漓出滞壁拾躁置述悲搔晶愤皆谐膘焙添译乌仲缔藕崔凰卡倦憾伊热破暑球递伯抿等罚这镊裴郝宣练拔忠独痹战翅低钱盅争欠集砚芋到佰吏勺符隧据耻蕊惜椽拷靶设缝送掳儡惶焊选筑熏弃颠毗皂膝糟泅贵磕坏敬固蒋埔躬灯悯蔗妊衡泡柯妥衣胞茸腾蚊提寄疗四季更迭，我们总会在落寞里送走一个季节，在希望里又迎来新的季节。在一阵萧瑟的凄风冷雨过后，终于迎来了明媚淡然的浅秋。九月，有饱满的收获，也有失意的伤感，有意外的惊喜，也有沉淀过后的平淡。我想把我的记忆永恒，偶尔打开回味的时候，默然相对，独自欢喜。九月，闲适的假期已然结束，忙碌的身影穿梭在学校与家的两点一线上。一段焦头烂额过后，终于慢慢走向生活的正轨。欣慰的是，一个属于教育人的节日——教师节，如一阵清风抚去你满身的疲惫。教师节，是在这样挥汗如雨的开学季送来的一片温馨。行走在时光机里，一直以为自己所从事的事业没有诗歌中盛赞的伟大，每天做着就是一些平凡琐碎、循环重复的细致工作。只有在这个季节的这一天里，