月VB笔试试题及答案

1、2005 年 9 月 VB 笔试试卷2共70一、选择题（每小题分，分）下列各题A）、 B）、 C）、 D ）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。（1）下列叙述中正确的是（）。A）程序设计就是编制程序B）程序的测试必须由程序员自己去完成C）程序经调试改错后还应进行再测试D ）程序经调试改错后不必进行再测试（2）下列数据结构中，能用二分法进行查找的是（） 。A）顺序存储的有序线性表B）线性链表C）二叉链表D ）有序线性链表（ 3）下列关于栈的描述正确的是（） 。A ）在栈中 只能插入元素而不 能删除元素B ）在栈中 只能删除 元素而不 能插入元素

2、C）栈是特殊的线性表，只能在一端插入或删除元素D ）栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素（4）下列叙述中正确的是（）。A）一个逻辑数据结构只能有一种存储结构B）数据的逻辑结构属于线性结构，存储结构属于非线性结构C）一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率D ）一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率（5）下列描述中正确的是（）。A）软件工程只是解决软件工程的管理问题B）软件工程主要解决软件产品的生产率问题C）软件工程的主要思想是强调在软件开发过程中需要应用工程化原则D ）软件工程只是解决软件开发中的技术问题（6）在软

3、件设计中，不属于过程设计工具的是（） 。A）PDL(过程设计语言)B）PAD图C）N-S 图D） DFD 图（7）下列叙述中正确的是（）。A）软件交付使用后还需要进行维护B）软件一旦交付使用就不需要再进行维护C ）软件交付使用后其生命周期就结束D ）软件维护是指修复程序中被破坏的指令（ 8）数据库设计的根本目标是要解决（） 。A）数据共享问题B）数据安全问题C）大量数据存储问题D）简化数据维护（9）设有如下关系表:RSTABCABCABC112313112223223313则下列操作中正确的是（）。A）TRSB）TRSC）TR×SD ）T R/S（10）数据库系统的核心是（）。A）数

4、据模型B）数据库管理系统C）数据库D）数据库管理员（ 11）假定一个VisualBasic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是（）。A）只保存窗体模块文件1 / 9B）分别保存窗体模块、标准模块和工程文件C）只保存窗体模块和标准模块文件D ）只保存工程文件（12）为了清除窗体上的一个控件，下列正确的操作是（） 。A）按回车键B）按Esc键C）选 择（单击）要清除的控件，然后按Del键D）选择（单击）要清除的控件，然后按回车键（13）以下叙述中错误的是（）。A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B）当程序运行时，双击一个

5、窗体，则触发该窗体的DblClick事 件C）VisualBasic应用程序只能以解释方式执行D ）事件可以由用户引发，也可以由系统引发（ 14）设a=2,b=3,c=4,d=5,下 列表达式的值 是（） 。Nota<=cOr4*c=b2Andb<>a+cA ）-1B） 1C） TrueD ） False（ 15）设a = 5 ， b = 10，则执行c = Int(b- a) *Rnd+ a) +1 后， c 值的范围为（）。A ）5 10B）69C） 6 10D） 59（ 16 ） 在 窗 体 上 画 一 个 命 令 按 钮 ， 名 称 为 Command1 ， 然 后

6、编 写 如 下 事 件 过 程 ：PrivateSubCommand1_Click()a$="softwareandhardware"b$=Right(a$,8)c$=Mid(a$,1,8)MsgBoxa$,b$,c$,1EndSub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是（） 。A ） software and hardwareB） softwareC） hardwareD） 1（ 17）在窗体上画一个命令按钮和一个文本框，其名称分别为Command1 和 Text1，把文本框的Text属性设 置为空白，然 后编写如 下事件 过程 ：PrivateSub

7、Command1_Click()a=InputBox("Enteraninteger")b=InputBox("Enteraninteger")Text1.Text=b+aEndSub程序运行后，单击命令按钮，如果在输入对话框中分别输入8 和10，则文本框中显示的内容是（）。A ）108B）18C） 810D ）出错（ 18 ） 在 窗 体 上 画 两 个 文 本 框 ， 其 名 称 分 别 为 Text1 和 Text2 ， 然 后 编 写 如 下 程 序 ：PrivateSubForm_Load()ShowText1.Text=""

8、;Text2.Text=""Text1.SetFocusEndSubPrivateSubText1_Change()Text2.Text=Mid(Text1.Text,8)EndText1 中输入 BeijingChina ，则在文本框Text2Sub程序运行后，如果在文本框中显示的内容是（）。A ）BeijingChina B ）China C ）Beijing D ） BeijingC（ 19）在窗体上画一个列表框和一个命令按钮，其名称分别为List1 和 Command1 ，然后编写如下事件过程：PrivateSubForm_Load()2 / 9List1.AddI

9、tem"Item1"List1.AddItem"Item2"List1.AddItem"Item3"EndSubPrivateSubCommand1_Click()List1.List(List1.ListCount)="AAAA"EndSub程序运行后，单击命令按钮，其结果为（） 。A） 把字符串 “ AAAA” 添加到列 表框中，但 位置不能确 定B） 把字符 串 “AAAA” 添 加到列表框的最后（即 “ Item3”的后面）C）把列表框中原有的最后一项改为“ AAAA”D ）把字符串 “ AAAA”插入到列

10、表框的最前面（即“ Item 1的”前面）（20）假定有如下事件过程：PrivateSubForm_Click()DimxAsInteger,nAsIntegerx=1n=0DoWhilex<28x=x*3n=n+1LoopPrintx,nEndSub程序运行后，单击窗体，输出结果是（） 。A）814B）563C）28 1D ）243 5（21）有如下程序：PrivateSubForm_Click()DimCheck,CounterCheck=TrueCounter=0DoDoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck

11、=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounter,CheckEndSub程序运行后，单击窗体，输出结果为（） 。A）150B）20-1C） 10 TrueD） 10 False（22）有如下程序：PrivateSubForm_Click()DimiAsInteger,sumAsIntegersum=0Fori=2To10IfiMod2<>0AndiMod3=0Thensum=sum+iEndIfNextiPrintsumEndSub3 / 9程序运行后，单击窗体，输出结果为（） 。A ）12B） 30C）24D）18（ 23

12、）在窗体上画一个名称为Text1 的文本框和一个名称为Command1 的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Dimarray1(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=2To4array1(i,j)=i+jNextjNextiText1.Text=array1(2,3)+array1(3,4)EndSub程序运行后，单击命令按钮，在文本框中显示的值是（） 。A ）12B） 13C）14D）15（ 24 ） 在 窗 体 上 画 一 个 命 令 按 钮 ， 其 名 称 为 Comma

13、nd1 ， 然 后 编 写 如 下 事 件 过 程 ：PrivateSubCommand1_Click()Dima1(4,4),a2(4,4)Fori=1To4Forj=1To4a1(i,j)=i+ja2(i,j)=a1(i,j)+i+jNextjNextiPrinta1(3,3)。a2(3,3)EndSub程序运行后，单击命令按钮，在窗体上输出的是（） 。A）66B）10 5C）7 21D）6 12（25）有如下程序：OptionBase1PrivateSubForm_Click()Dimarr,SumSum=0arr=Array(1,3,5,7,9,11,13,15,17,19)Fori=

14、1To10Ifarr(i)/3=arr(i)3ThenSum=Sum+arr(i)EndIfNextiPrintSumEndSub程序运行后，单击窗体，输出结果为（） 。A ）25B） 26C）27D）28（26）在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Dima(5)AsStringFori=1To5a(i)=Chr(Asc("A")+(i-1)NextiForEachbInaPrintb。NextEndSub程序运行后，单击命令按钮，输出结果是（） 。4 / 9A）ABCDEB）12345C） abcdeD）出错信

15、息（27）以下关于函数过程的叙述中，正确的是（） 。A）如果不指明函数过程参数的类型，则该参数没有数据类型B）函数过程的返回值可以有多个C）当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递D）函数过程形参的类型与函数返回值的类型没有关系（ 28）函数过程F1 的功能是：如果参数b 为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码是（）。A）FunctionF1(bAsInteger)IfbMod2=0ThenReturn0ElseReturn1EndIfEndFunctionB）FunctionF1(bAsInteger)IfbMod2=0ThenF1=0E

16、lseF1=1EndIfEndFunctionC）FunctionF1(bAsInteger)IfbMod2=0ThenF1=1ElseF1=0EndIfEndFunctionD）FunctionF1(bAsInteger)IfbMod2<>0ThenReturn0ElseReturn1EndIfEnd Function（ 29 ） 以 下 关 于 KeyPress事 件 过 程 中 参 数 KeyAscii的叙述中正确的是（） 。A）KeyAscii参数是所按键的ASCII码B）KeyAscii参数的数据类型为字符串C）KeyAscii参数可以省略D ） KeyAscii参数是所

17、按键上标注的字符（ 30） 设窗体上有一个 名 为Text1的文本框，并编写如下程序：PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivateSubForm_MouseUp(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)Print"程序设计"EndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)Print"VisualBasic"。5

18、/ 9EndSub程 序运 行后 ，如 果在 文本 框中 输入 字母 “a，” 然后 单击 窗体 ，则 在窗 体上 显示 的内容是A）VisualBasicB）程序设计C）Visual Basic 程序设计 D） a 程序设计（31）假定有下表所列的菜单结构：标题名称层次显示appear1（主菜单）大图标bigicon2（子菜单）小图标smallicon2（子菜单）要求程序运行后，如果单击菜单项“大图标 ”，则在该菜单项前添加一个“?。”以下正确的事件过程是（）。A）PrivateSubbigicon_Click()bigicon.Checked=FalseEndSubB）PrivateSub

19、bigicon_Click()Me.appear.bigicon.Checked=TrueEndSubC）PrivateSubbigicon_Click()bigicon.Checked=TrueEndSubD）PrivateSubbigicon_Click()appear.bigicon.Checked=TrueEnd Sub（ 32）假定通用对话框的名称为CommonDialog1 ，命令按钮的名称为Command1，则单击命令按 钮 后 ， 能 使 打 开 的 对 话 框 的 标 题 为 “New Title ”的 事 件 过 程 是 （） 。A）PrivateSubCommand1_C

20、lick()CommonDialog1.DialogTitle="NewTitle"CommonDialog1.ShowPrinterEndSubB）PrivateSubCommand1_Click()CommonDialog1.DialogTitle="NewTitle"CommonDialog1.ShowFontEndSubC）PrivateSubCommand1_Click()CommonDialog1.DialogTitle="NewTitle"CommonDialog1.ShowOpenEndSubD）PrivateSubC

21、ommand1_Click()CommonDialog1.DialogTitle="NewTitle"End SubCommonDialog1.ShowColor（33）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是（） 。A）任何时刻最多只有一个窗体是活动窗体B）不能把标准模块设置为启动模块C） 用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D ）如果工程中含有Sub Main 过程，则程序一定首先执行该过程（34）假定在工程文件中有一个标准模块，其中定义了如下记录类型TypeBooksNameAsString*10TelNumAsString*20En

22、dType6 / 9要求当执行事件过程Command1_Click 时，在顺序文件Person.txt 中写入一条记录。下列能够完成该操作的事件过程是（）。A）PrivateSubCommand1_Click()DimBAsBooksOpen"c:Person.txt"ForOutputAs#1B.Name=InputBox("输入姓名")B.TelNum=InputBox("输入电话号码")Write#1,B.Name,B.TelNumClose#1EndSubB）PrivateSubCommand1_Click()DimBAsBo

23、oksOpen"c:Person.txt"ForInputAs#1B.Name=InputBox("输入姓名")B.TelNum=InputBox("输入电话号码")Print#1,B.Name,B.TelNumClose#1EndSubC）PrivateSubCommand1_Click()DimBAsBooksOpen"c:Person.txt"ForOutputAs#1Name=InputBox("输入姓名")TelNum=InputBox("输入电话号码")Write

24、#1,BClose#1EndSubD）PrivateSubCommand1_Click()DimBAsBookOpen"c:Person.txt"ForInputAs#1Name=InputBox("输入姓名")TelNum=InputBox("输入电话号码")Print#1,B.Name,B.TelNumClose#1End Sub（ 35）目录列表框 的Path属性 的作用是（）。A）显示当前驱动器或指定驱动器上的某目录下的文件名B）显示当前驱动器或指定驱动器上的目录结构C）显示根目录下的文件名D ）显示指定路径下的文件二、填空题

25、（每空2分，共30分）请将每空的正确答案写在答题卡【1】【 15】序号的横线上，答在试卷上不得分。（ 1）数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是 【1】 。（ 2）算法复杂度主要包括时间复杂度和【 2】 复杂度。（ 3）在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块（桩模块）。其中 【 3】 的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。（ 4）一棵二叉树第六层（根结点为第一层）的结点数最多为【4】 个。（ 5）数据结构分为逻辑结构和存储结构，循环队列属于【 5】 结构。（6）设有以下函数过程

26、：Functionfun(mAsInteger)AsIntegerDimkAsInteger,sumAsIntegersum=07 / 9Fork=mTo1Step-2sum=sum+kNextkfun=sumEnds = fun(10) 调用此函数，则s 的值为 【 6】 。Function若在程序中用语句（ 7）在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1 中。例如，若在Text1 中输入的是abDfdb ，则单击

27、 Command1 按钮后 Text1 中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC 。请填空。PrivateSubCommand1_Click()DimstrAsString,sAsString,cAsStringstr=UCase(Text1)s=""c="Z"Whilec>="A"IfInStr(str,c)=0Thens=【7】EndIfc=Chr$(Asc(c)【8】)WendIfs<>""ThenText1=sEndIfEnd Sub（ 8） 在 n 个运动员中选出任意r 个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算。下图窗体中3 个文本框的名称依次是Text1、Text2、 Text3。程序运行时在Text1、 Text2中分别输入 n 和 r 的