VB期中考试试卷-及参考答案(B1卷)-_1.docx

《VB期中考试试卷-及参考答案(B1卷)-_1.docx》由会员分享，可在线阅读，更多相关《VB期中考试试卷-及参考答案(B1卷)-_1.docx（14页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VB期中考试试卷-及参考答案(B1卷)-20202020学年度第2学期期中考试试卷B1考试科目：（VisualBasic程序设计）考试形式：开卷-上机考答题时间：120分钟班级学号姓名一、选择题2分/题，共20分1.下面有关VB对象名称(Name)属性的叙述，正确的是_。A对象的Name属性值能够为空B窗体的Name属性用来标识和引用窗体C能够在程序运行期间改变对象的Name属性值D窗体的Name属性值是显示在标题栏中的字符串2.VisualBasic6.0集成环境的主窗口中不包括_。A标题栏B菜单栏C状态栏D工具栏3在开发VB应用程序时，一个工程一般至少应含有_。A标准模块文件和类模块文件B

2、工程文件和窗体文件C工程文件和类模块文件D工程文件和标准模块文件4.为了责任令按钮(名称为Command1)右移200，应使用的语句是_。ACommand1.Move-200BCommand1.Move200CCommand1.Left=Command1.Left+200DCommand1.Left=Command1.Left-2005当程序运行时，系统自动执行启动窗体的_事件经过。AClickBLoadCUnloadDGotFocus6VisualBasic有多种类型的窗口，若要在设计时看到窗体窗口，下面操作不正确的是_。A打开“视图菜单，选择“对象窗口B双击VB窗口工作区的空白处C单击“工

3、程资源管理器中的“查看对象按钮D双击“工程资源管理器中对应的窗体名7下面关于属性和方法的描绘中，不正确的是_。A属性是对象的特征，方法是对象的行为B属性和方法都有值C属性能够被赋值D方法表示能执行的操作8下面关于标签和文本框的描绘中，正确的是_。A文本框和标签都能够显示文字B文本框和标签都能够在运行时输入文字C文本框和标签都有Caption属性D文本框和标签都有Text属性9在一行内写多条语句时，每个语句之间用_来分隔。A，B：C、D；10表达式16/4-25*8/4MOD52的值为_。A14B4C20D2二、读程填空题每题4分，共32分阅读下列程序讲明和程序，在每题提供的若干可选答案中，挑选

4、一个正确答案。1.【程序讲明】随机产生n个100以内的正整数，放在数组A中存储。n由InputBox()输入,并每5个数据一行打印输出。【程序】PrivateSubCommand1_Click()Dima()AsIntegern=InputBox(请输入一个正整数)ReDim1a(n)Fori=1Tona(i)=Int(Rnd*100)Print2a(i);If3Imod5=0thenprintNextiEndSub【供选择的答案】1A.a()B.a%C.n*iD.a(n)2A.printjB.a(i);C.printn*iD.printn3A.i=nB.i=0C.Imod5=0D.i52.【

5、程序讲明】用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值【程序】OptionBase1(4)PrivateSubCommand1_Click()Dimarr1,i,MaxasIntegerarr1=Array(12,435,76,24,78,54,866,43)(5)Max=arr1(1)Fori=1To8Ifarr1(i)MaxThen_(6)_Max=arr1(i)NextiPrint最大值是：；MaxEndSub【供选择的答案】4A.dimarrayB.OptionBase1C.const=12D.dima(5)5A.arr1(i)=12B.arr1=12

6、C.n=n*iD.Max=arr1(1)6A.arr1(i)=MaxB.ExitforC.Max=arr1(i)D.i=i+13.【程序讲明】产生100个14之间的随机整数，并进行统计。数组元素S(i)(i=1,2,3,4)的值表示等于i的随机数的个数，要求输出如下格式：S(1)=.S(2)=.S(3)=.S(4)=.【程序】DimS(4)AsIntegerRandomizeForI=1To100X=Int(Rnd*4+1)S(x)=S(x)+1(7)NextIForI=1To4PrintS(;I;)=;S(I),(8)NextI【供选择的答案】7A.s(i)-1B.S(x)+1C.n*iD.

7、s(i)+18A.S(x)=;S(I)B.s(i);C.S(I)=;S(I)D.S(;I;)=;S(I),三、编程题4*12=48分1通过使用MsgBox输出对学号和密码进行验证的结果。要求：学号为数字，输入非数字字符则给出提示；密码为“TJin1234，输入不正确，提示信息，若单击“取消按钮，则结束程序；以上两者都输入正确，也给出提示成功的信息。提示信息对话框效果如下列图所示。12分2.输入一串字符，统计各个英文字母出现的次数大小写不区分，并对出现的字母显示其出现的个数，运行界面如下列图所示。12分3随机产生10个100200之间的数含100与200，求最大值与最小值。要求将原始的10个数与

8、最大、最小值用Print语句直接输出在窗体上，并有相应的提示文字，如下列图所示。12分文档视界VB期中考试试卷-及参考答案(B1卷)-VB期中考试试卷-及参考答案(B1卷)-浙江树人大学20202020学年度第2学期期中考试试卷B1考试课目：（VisualBasic程序设计）答题纸班级学号姓名题号一二三四总分分数题号12345678910答案bcbcbbbabb二、读程选择填空题每空4分，共32分ABCDABCD(1)(5)(2)(6)(3)(7)(4)(8)三、编程题48分。各题程序调试后的源代码要写在试卷上的各小题后面，程序的源代码和试卷WORD文档一同打包后提交到服务器的ftp上1通过使

9、用MsgBox输出对学号和密码进行验证的结果。要求：学号为数字，输入非数字字符则给出提示；密码为“TJin1234，输入不正确，提示信息，若单击“取消按钮，则结束程序；以上两者都输入正确，也给出提示成功的信息。提示信息对话框效果如下列图所示。12分参考答案：PrivateSubCommand1_Click()EndEndSubPrivateSubCommand2_Click()IfNotIsNumeric(Text1)ThenMsgBox学号中有非数字字符！,64,提示Text1=Text1.SetFocusElseIfText2=TJin1234ThenMsgBox您成功进入系统。,48,成

10、功Elsea=MsgBox(密码错误，+Chr(13)+Chr(10)+您不能进入系统。,5+16,警告)Ifa=4ThenText2=Text2.SetFocusElseCommand1_ClickEndIfEndIfEndSub2.输入一串字符，统计各个英文字母出现的次数大小写不区分，并对出现的字母显示其出现的个数，运行界面如下列图所示。12分参考答案2：PrivateSubCommand1_Click()Picture1.ClsDimi%,s$,cAsString*1,l%,k%Dimarr(1To26)AsIntegers=Text1.Textl=Len(s)Fori=1Tolc=UC

11、ase(Mid(s,i,1)Ifc=AAndc0ThenPicture1.PrintChr(i+64)&=&arr(i);k=k+1IfkMod6=0ThenPicture1.PrintEndIfNextiEndSub3随机产生10个100200之间的数含100与200，求最大值与最小值。要求将原始的10个数与最大、最小值用Print语句直接输出在窗体上，并有相应的提示文字，如下列图所示。12分参考答案3：PrivateSubCommand1_Click()Print产生10个100-200之间的数：RandomizeMax=100:Min=200Fori=1To10x=Int(Rnd*101+100)Printx;IfxMaxThenMax=x文档视界VB期中考试试卷-及参考答案(B1卷)-VB期中考试试卷-及参考答案(B1卷) -