9月VB笔试试题及答案

9月VB笔试试题

一、选择题（每小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的请将正确选项填涂在答题卡相应位置上，答在试卷上不得分

（1）下列叙述中正确的是（）A）程序设计就是编制程序B）程序的测试必须由程序员自己去完成0程序经调试改错后还应进行再测试D）程序经调试改错后不必进行再测试

（2）下列数据结构中，能用二分法进行查找的是（）A）顺序存储的有序线性表B）线性链表C）二叉链表D）有序线性链表

（3）下列关于栈的描述正确的是（）A）在栈中只能插入元素而不能删除元素B）在栈中只能删除元素而不能插入元素0栈是特殊的线性表，只能在一端插入或删除元素D）栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素

（4）下列叙述中正确的是（）22有如下程序:Private Sub Form_ClickDim i As Integer,sum As Integersum=0For i=2To10If iMod200And iMod3=0Thensum=sum+iEnd IfNextiPrint sumEnd Sub程序运行后，单击窗体，输出结果为A12B30C24D1823在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程Private Sub Command1_C1ickDim array110,10As IntegerDimiAs Integer,j As IntegerFor i=1To3For j=2To4array1i,j=i+jNext jNextiTextl.Text=arrayl2,3+arrayl3,4End Sub程序运行后，单击命令按钮，在文本框中显示的值是A12B13C14D1524在窗体上画一个命令按钮，其名称为Command1,然后编写如下事件过程Private SubCommand1_C1ickDim al4,4,a24,4For i=1To4For j=1To4ali,j=i+ja2i,j=ali,j+i+jNext jNextiPrint al3,3;a23,3End Sub程序运行后，单击命令按钮，在窗体上输出的是A66B105C721D61225有如下程序Option Base1Private SubForm_ClickDim arr,SumSum=0arr二Array1,3,5,7,9,11,13,15,17,19For i=1To10If arri/3-arr i\3ThenSum=Sum+arriEnd IfNextiPrint SumEnd Sub程序运行后，单击窗体，输出结果为A25B26C27D2826在窗体上画一个命令按钮，然后编写如下事件过程Private SubCommand1_ClickDim a5As StringFori=1To5ai=ChrAsc〃A〃+i-1Next iForEach bIn aPrintb;NextEnd Sub程序运行后，单击命令按钮，输出结果是A ABCDEB12345C abcdeD出错信息27以下关于函数过程的叙述中，正确的是A如果不指明函数过程参数的类型，则该参数没有数据类型B函数过程的返回值能够有多个0当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递D函数过程形参的类型与函数返回值的类型没有关系28函数过程F1的功能是如果参数b为奇数，则返回值为1,否则返回值为0以下能正确实现上述功能的代码是A FunctionFlb As IntegerIf bMod2=0ThenReturn0ElseReturn1End IfEndFunctionB FunctionFlb As IntegerIf bMod2=0ThenFl=0ElseFl=1End IfEndFunctionC FunctionFlb AsIntegerIf bMod2=0ThenFl=1ElseFl=0End IfEndFunctionD FunctionFlb AsIntegerIf bMod200ThenReturn0ElseReturn1End IfEndFunction29以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的A KeyAscii参数是所按键的ASCII码B KeyAscii参数的数据类型为字符串C KeyAscii参数能够省略D KeyAscii参数是所按键上标注的字符30设窗体上有一个名为Textl的文本框，并编写如下程序Private SubForm_LoadShowTextl.Text二〃〃Textl.SetFocusEnd SubPrivate SubForm_MouseUp Button AsInteger,_Shift AsInteger,X AsSingle,Y AsSinglePrint〃程序设计〃End SubPrivate Sub TextlKeyDownKeyCode AsInteger,Shift AsIntegerPrint〃Visual Basic”;End Sub程序运行后，如果在文本框中输入字母a，然后单击窗体，则在窗体上显示的内容是A Visual Basic B程序设计C Visual Basic程序设计D a程序设计31假定有下表所列的菜单结构标题名称层次显示appear1主菜单大图标bigicon2子菜单小图标smallicon2子菜单要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“？“以下正确的事件过程是A Private Sub bigicon_Clickbigicon.Checked=FalseEnd SubBPrivate SubbigiconClickMe.appear,bigicon.Checked=TrueC Private Sub bigiconClickbigicon.Checked=TrueEnd SubDPrivate SubbigiconClickappear,bigicon.Checked=TrueEnd Sub32假定通用对话框的名称为CommonDialogl,命令按钮的名称为Command1,则单击命令按钮后，能使打开的对话框的标题为“NewTitle”的事件过程是A Private Sub Commandl_ClickCommonDialogl.DialogTitle=〃New Title”CommonDialogl.ShowPrinterEnd SubBPrivate SubCommandlClickCommonDialogl.DialogTitle二〃New Title”CommonDialogl.ShowFontEnd SubCPrivate SubCommand1_ClickCommonDialogl.DialogTitle=New Title”CommonDialogl.ShowOpenEnd SubDPrivate SubCommand1_ClickCommonDialogl.DialogTitle二〃New Title”CommonDialogl.ShowColorEnd Sub33如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是A任何时刻最多只有一个窗体是活动窗体B不能把标准模块设置为启动模块0用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D如果工程中含有Sub Main过程，则程序一定首先执行该过程34假定在工程文件中有一个标准模块，其中定义了如下记录类型Type BooksNameAs String*10TelNum As String*20A）一个逻辑数据结构只能有一种存储结构B）数据的逻辑结构属于线性结构，存储结构属于非线性结构0一个逻辑数据结构能够有多种存储结构，且各种存储结构不影响数据处理的效率D）一个逻辑数据结构能够有多种存储结构，且各种存储结构影响数据处理的效率

（5）下列描述中正确的是（）A）软件工程只是解决软件项目的管理问题B）软件工程主要解决软件产品的生产率问题0软件工程的主要思想是强调在软件开发过程中需要应用工程化原则D）软件工程只是解决软件开发中的技术问题

（6）在软件设计中，不属于过程设计工具的是（）A）PDL（过程设计语言）B）PAD图C）N-S图D）DFD图

（7）下列叙述中正确的是（）A）软件交付使用后还需要进行维护B）软件一旦交付使用就不需要再进行维护End Type要求当执行事件过程Commandl_Click时，在顺序文件Person,txt中写入一条记录下列能够完成该操作的事件过程是（）A.Private SubCommandl_Click（）Dim BAs BooksOpenc:\Person.txt ForOutput As#1B.Name二InputBox（〃输入姓名〃）C.TelNum=InputBox（〃输入电话号码〃）Write#1,B.Name,B.TelNumClose#1End SubD.Private SubCommand1_Click（）Dim BAs BooksOpenc:\Person.txt For Input As#1E.Name二InputBox（〃输入姓名〃）F.TelNum=InputBox（〃输入电话号码〃）Print#1,B.Name,B.TelNumClose#1C）Private SubCommandlClick（）Dim BAs BooksOpenc:\Person.txt ForOutput As#1Name=InputBox（〃输入姓名〃）TelNum二InputBox（〃输入电话号码〃）Write#1,BClose#1End SubD）Private SubCommandl_Click（）Dim BAs BookOpenc:\Person.txt〃ForInputAs#1Name二InputBox（〃输入姓名〃）TelNum=InputBox（〃输入电话号码〃）Print#1,B.Name,B.TelNumClose#1End Sub35目录列表框的Path属性的作用是A显示当前驱动器或指定驱动器上的某目录下的文件名B显示当前驱动器或指定驱动器上的目录结构0显示根目录下的文件名D显示指定路径下的文件

二、填空题每空2分，共30分请将每空的正确答案写在答题卡［1】【15】序号的横线上，答〜在试卷上不得分1数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是［1】O2算法复杂度主要包括时间复杂度和【2】复杂度3在进行模块测试时，要为每个被测试的模块另外设计两类模块:驱动模块和承接模块桩模块其中【3】的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果4一棵二叉树第六层根结点为第一层的结点数最多为【4】个5数据结构分为逻辑结构和存储结构，循环队列属于【5】结构6设有以下函数过程Function funmAsIntegerAs IntegerDimk AsInteger,sum AsInteger sum=0For k=m To1Step-2sum=sum+kNext kfun=sumEnd Function若在程序中用语句S二fun10调用此函数，则s的值为【6】o7在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程程序运行后，在文本框中输入一串英文字母不区分大小写，单击命令按钮，程序可找出未在文本框中输入的其它所有英文字母，并以大写方式降序显示到Textl中例如，若在Textl中输入的是abDfdb,则单击Command1按钮后Textl中显示的字符串是ZYXWVUTSRQPONMLKJIHGECo请填空Private SubCommandIClickDim strAsString,s AsString,c AsStringstr二UCaseTextlc=〃Z〃While c=〃A〃If InStrstr,c=0Thens=

[7]End Ifc=Chr$Asc c

[8]WendIf sThenTextl=sEnd IfEnd Sub8在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数能够用公式计算下图窗体中3个文本框的名称依次是Textl、Text2Text3程序运行时在Textl、Text2中分别输入n和r的值，单击Commandl按钮即可求出选法的个数，并显示在Text3文本框中见下图请填空Private SubCommandlClickDim rAsInteger,n AsIntegern=Textl r=Text2Text3=funn/fun

[9]/funrEnd SubFunctionfunn AsInteger aslongDim tAs Long

[10]For k=1To nt=t*k Nextfun=tEnd Function9以下是一个比赛评分程序在窗体上建立一个名为Textl的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮运行时在文本框数组中输入7个分数，单击”计算得分”命令按钮，则最后得分显示在Text2文本框中去掉一个最高分和一个最低分后的平均分即为最后得分，如图所示请填空Private SubCommand1_ClickDim kAs IntegerDimsum AsSingle,max AsSingle,min AsSinglesum=Textl0max=Textl0min=

[11]For k二

[12]To6If maxTextl kThenmax=TextlkEnd IfIfminTextl kThenmin=TextlkEnd Ifsum=sum+TextlkNext kText2=

[13]/5End Sub10如图所示，在列表框Listl中已经有若干人的简单信息，运行时在Textl文本框即“查找对象”右边的文本框输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”请填空Private SubCommand1_C1ickDim kAsInteger,n AsInteger,found AsBooleanfound=Falsen=Len

[14]k=0While kListl.ListCount AndNot foundIfTextl=Left$Listl.Listk,n ThenText2=

[15]found=TrueEnd Ifk=k+1WendIf Notfound ThenText2=〃查无此人〃End IfEndSub9月二级VB笔试试题答案选择题[1-5]CACDC[6-10]DAABB[11-15]BCCDC[16-20]CABBA[21-25]DAADC【26-30]ADBAC[31-35]CCDAB填空题[11数据库系统

[2]空间

[3]驱动模块

[4]32

[5]存储结构

[6]30

[7]sc

[8]-1

[9]n-r

[10]t=l

[11]textl0

[12]1[13Jsum-max-min

[14]textl.text

[15]listl.list k0软件交付使用后其生命周期就结束D）软件维护是指修复程序中被破坏的指令

（8）数据库设计的根本目标是要解决（）A）数据共享问题B）数据安全问题0大量数据存储问题D）简化数据维护

（9）设有如下关系表R STABCABCABC112313112223223313则下列操作中正确的是（）A）T=RAS B）T=RUS C）T=RXS D）T=R/S

（10）数据库系统的核心是（）A）数据模型B）数据库管理系统0数据库D）数据库管理员

（11）假定一个VisualBasic应用程序由一个窗体模块和一个标准模块构成为了保存该应用程序，以下正确的操作是（）OA）只保存窗体模块文件B）分别保存窗体模块、标准模块和工程文件0只保存窗体模块和标准模块文件D）只保存工程文件

（12）为了清除窗体上的一个控件，下列正确的操作是（）A）按回车键B）按Esc键0选择（单击）要清除的控件，然后按Del键D）选择（单击）要清除的控件，然后按回车键

（13）以下叙述中错误的是（）A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B）当程序运行时，双击一个窗体，则触发该窗体的DblClick事件0VisualBasic应用程序只能以解释方式执行D）事件能够由用户引发，也能够由系统引发

（14）设a=2,b=3,c=4,d=5,下列表示式的值是（）Not a=c Or4*c=b2And ba+cA-1B1C True D False15设a=5,b=10,则执行c=Intb-a*Rod+a+1后，c值的范围为A510B69C6-10D59〜〜〜16在窗体上画一个命令按钮，名称为Command1,然后编写如下事件过程Private SubCommand1_C1icka$=software and hardwareb$=Righta$,8c$二Mida$,1,8MsgBox a$,,b$,c$,1EndSub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是OA softwareandhardwareB softwareC hardwareD117在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Textl,把文本框的Text属性设置为空白，然后编写如下事件过程PrivateSubCommand1_Clicka=InputBox Enteran integerb=InputBoxEnter anintegerTextl.Text=b+aEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10,则文本框中显示的内容是A108B18C810D出错18在窗体上画两个文本框，其名称分别为Textl和Text2,然后编写如下程序PrivateSubFormLoadShowTextl.Text二〃〃Text

2.Text=〃〃Textl.SetFocusEnd SubPrivateSub Textl_ChangeText

2.Text=MidTextl.Text,8EndSub程序运行后，如果在文本框Textl中输入BeijingChina,则在文本框Text2中显示的内容是A BeijingChinaB ChinaC BeijingD BeijingC19在窗体上画一个列表框和一个命令按钮，其名称分别为Listl和Commandl,然后编写如下事件过程PrivateSubFormLoadListl.Additem Item1〃Listl.Addltem〃Item2〃Listl.Additem Item3〃End SubPrivateSubCommand1_C1ickListl.List Listl.ListCount二〃AAAA〃EndSub程序运行后，单击命令按钮，其结果为A把字符串“AAAA”添加到列表框中，但位置不能确定B把字符串”A AAA添加到列表框的最后即Item3”的后面0把列表框中原有的最后一项改为“AAAA”D把字符串“AAAA”插入到列表框的最前面即Item1”的前面20假定有如下事件过程PrivateSubForm_ClickDim xAsInteger,nAsInteger x=1n=0Do Whilex28x=x*3n=n+1LoopPrint x,nEnd Sub程序运行后，单击窗体，输出结果是A814B563C281D243521有如下程序:PrivateSubForm_ClickDim Check,CounterCheck=TrueCounter=0DoDo WhileCounter20Counter=Counter+1If Counter=10ThenCheck=FalseExit DoEndIfLoopLoop UntilCheck=FalsePrint Counter,CheckEnd Sub程序运行后，单击窗体，输出结果为A150B20-1C10TrueD10False。