1、VB 笔试-试卷 37 及答案解析(总分：92.00，做题时间：90 分钟)一、选择题(总题数：36，分数：72.00)1.选择题（）下列各题 A、B、C、D 四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。（分数：2.00）_2.数据结构作为计算机的一门学科，主要研究数据的逻辑结构、对各种数据结构进行的运算，以及 ( )（分数：2.00）A.数据的存储结构B.计算方法C.数据映象D.逻辑存储3.一些重要的程序语言(如 C 语言和 Pascal 语言)允许过程的递归调用。而实现递归调用中的存储分配通常用 ( )（分数：2.00）A.栈B.堆C.数组D.链表4.链表不具有的
2、特点是 ( )（分数：2.00）A.不必事先估计存储空间B.可随机访问任一元素C.插入删除不需要移动元素D.所需空间与线性表长度成正比5.对建立良好的程序设计风格，下面描述正确的是 ( )（分数：2.00）A.程序应简单、清晰、可读性好B.符号名的命名只要符合语法C.充分考虑程序的执行效率D.程序的注释可有可无6.程序设计语言的基本成分是数据成分、运算成分、控制成分和 ( )（分数：2.00）A.对象成分B.变量成分C.语句成分D.传输成分7.在软件测试设计中，软件测试的主要目的是 ( )（分数：2.00）A.实验性运行软件B.证明软件正确C.找出软件中全部错误D.发现软件错误而执行程序8.下
3、列选项中，不属于模块间耦合的是 ( )（分数：2.00）A.数据耦合B.同构耦合C.异构耦合D.公用耦合9.如果对一个关系实施了一种关系运算后得到了一个新的关系，而且新的关系中属性个数少于原来关系中属性个数，这说明所实施的运算关系是 ( )（分数：2.00）A.选择B.投影C.连接D.并10.下列叙述中，正确的是 ( )（分数：2.00）A.用 ER 图能够表示实体集间一对一的联系、一对多的联系和多对多的联系B.用 ER 图只能表示实体集之间一对一的联系C.用 ER 图只能表示实体集之间一对多的联系D.用 ER 图表示的概念数据模型只能转换为关系数据模型11.在数据管理技术的发展过程中，经历了
4、人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是 ( )（分数：2.00）A.数据库系统B.文件系统C.人工管理D.数据项管理12.刚建立一个标准 EXE 工程后，Visual Basic 的内部控件出现在 ( )（分数：2.00）A.代码窗口中B.属性窗口中C.工程资源管理器窗口D.工具箱窗口13.下列不可作为 VB 变量名的是 ( )（分数：2.00）A.4*DeltaB.AlphaC.ABCD.ABTI14.以下关于变量类型说明符的使用正确的是 ( )（分数：2.00）A.Dim a%: a=90B.Dim a:a2000C.Dim a#：a=“OK“，D.Dim
5、ab Print bla Print a；b End Sub 运行后，单击命令按钮后的输出结果是 ( )（分数：2.00）A.10 50 50 10 10 50B.10 50C.10 50 50 10D.50 1023.在窗体中添加一命令按钮，并在命令按钮中编写如下代码： Private Sub Commandl_C1ick() Dim a As Single a=-1.234567 b=Int(A)c=Sgn(A)dAbs(A)e=Fix(A)If ab Then Print b： If ac ThenPrint c； H ad ThenPrint d； H ae Then Print e;
6、 Print End sub 运行后输出结果是 ( )（分数：2.00）A.-2 -1 1.234 567 -1B.-2 1.234 567C.-1 1.234 567 -1D.-1 -1.234 567 -124.下列关于 do while.loop 和 do.100p until 循环执行循环体次数的描述正确的是( )（分数：2.00）A.do while.loop 循环和 do.loop until 循环至少都执行一次B.do while.100p 循环和 do.100p until 循环可能都不执行C.do while.100p 循环至少执行一次，do.100p until 循环可能不
7、执行D.do while.100p 循环可能不执行，do.loop until 循环至少执行一次25.Sub 过程与 Function 过程最根本的区别是（分数：2.00）A.Sub 过程的过程不能返回值，而 Function 过程能返回值B.Function 过程可以有形参，Sub 过程不可以C.Sub 过程可以使用 Call 语句直接使用过程名调用，而 Function 过程不可以D.两种过程参数的传递方式不同26.以下能够触发水平滚动条 Change 事件的操作是 ( )（分数：2.00）A.滚动条失去焦点B.滚动条获得焦点C.设置滚动条的焦点D.单击滚动条左端或右端的箭头27.在窗体中
8、添加 1 个命令按钮(其 Name 属性为 Command1)和 1 个标签(其 Name 属性为 Lable1)，然后编写如下代码： Private Sub Commandl_Cliek() Dim arrayl(10, 10)As Integer Dim i, j, Sum AsInteger Sum0 For i=1 To 10 Forj=1 To 10 arrayl(i, j)=i+j Nextj Next i End Sub 此程序的功能是求数组arrayl 主对角线元素的和，并把结果显示在标签中，为实现此功能，省略号处的程序段应该是 ( )（分数：2.00）A.For i=1 To
9、 10 For j=1 To 10 If i=j Then Sum = Sum+ arrayl (i,j) End If Next j Next i Labelt. Caption=SumB.For i=l TO 10 Forj=1 To 10 If i= =j Then Sum=Sum+array1 (i,j) End If Next j Next i Labell. Caption=SumC.For i=1 To 10 For j=1 To l0 If i=j Then Sum=Sum+arrayl (i,j) End If Next i Next j Lahell. Caption=Su
10、mD.For i=1 To 10 For j=1 To l0 If i=j Then Sum=arrayl (i,j) End If Next j Next i Labell. Caption=Sum28.在窗体中添加一个列表框(ListBox1)和一个命令按钮，并编写如下代码： Private Sub Commandl_Click() Dim a, i, msg msg=“Choose OK to add 100 items to your listbox.“ MsgBox msg For il To 100 a=“a：“ b Print bla Print a；b End Sub 运行后，
11、单击命令按钮后的输出结果是 ( )（分数：2.00）A.10 50 50 10 10 50B.10 50 C.10 50 50 10D.50 10解析：解析：本题主要是对注释语句的考查，注释语句是非执行语句，用来给程序或语句做注解，其格式为：Rem 注释内容，使用注释语句需注意： 注释语句可单独占一行，也可以放在语句的后面； 若在其他语句行后使用 Rem 关键字，则必须使用冒号“:”与语句隔开； 若在其他语句行后使用单引号，则不必使用冒号； 单引号应是半角英文的直撇号， 在以上知识的基础上，我们可知 Rem Print a; b 与Print b; a 都是注释语句并不执行，实质上程序只执行了
12、语句 Print a；b。故结果值应为 B 项答案。23.在窗体中添加一命令按钮，并在命令按钮中编写如下代码： Private Sub Commandl_C1ick() Dim a As Single a=-1.234567 b=Int(A)c=Sgn(A)dAbs(A)e=Fix(A)If ab Then Print b： If ac ThenPrint c； H ad ThenPrint d； H ae Then Print e; Print End sub 运行后输出结果是 ( )（分数：2.00）A.-2 -1 1.234 567 -1B.-2 1.234 567C.-1 1.234
13、567 -1 D.-1 -1.234 567 -1解析：解析：本题主要考查了 Int、Sgn、 Abs 和 Fix 四个函数及 H 语句的应用。Int 函数用来求不大干自变量的最大整数；Sgn 函数用来求符号值，当值小于 0 时，返回-l，当等于。时返回 0，当值大于 0 时返回 1 Abs 函数用来求绝对值；Fix 用来求整数部分。故题中 Int(a)的值为-2，Sgn(a)的值为-1，Abs(a)的值为 1.234567，Fix(a)的值为-1。即 a，b， c，d 的值己知。然后执行后面的四个 If 语句。第一个 If语句的条件表达式为假不执行输出操作，下面的三个条件表达式的值都为真，故
14、输出 c，d，e 的值。选项C 正确。24.下列关于 do while.loop 和 do.100p until 循环执行循环体次数的描述正确的是( )（分数：2.00）A.do while.loop 循环和 do.loop until 循环至少都执行一次B.do while.100p 循环和 do.100p until 循环可能都不执行C.do while.100p 循环至少执行一次，do.100p until 循环可能不执行D.do while.100p 循环可能不执行，do.loop until 循环至少执行一次 解析：解析：本题主要考查了两个循环。其中 Do While.Loop 形式
15、是先判断条件后执行，Do.Loop Until 形式是先执行后判断，前者可能一次也不执行循环体，后者无论循环条件是否成立，循环至少被执行一次。25.Sub 过程与 Function 过程最根本的区别是（分数：2.00）A.Sub 过程的过程不能返回值，而 Function 过程能返回值 B.Function 过程可以有形参，Sub 过程不可以C.Sub 过程可以使用 Call 语句直接使用过程名调用，而 Function 过程不可以D.两种过程参数的传递方式不同解析：解析：在 Visual Basic 中有两类过程，一类是系统提供的内部函数和事件过程；另一类是用户根据自己的需要定义的，供事件过
16、程的多次调用。在第二类过程中，涉及最多的是子过程。它们的共同点都是完成某种特定功能的一组程序代码；不同的是函数是可以直接返回值的特殊过程，所以函数过程定义时有返回值的类型说明。两者最大的区别就是 Sub 过程的过程不能直接返回值，而 Function 过程能直接返回值。26.以下能够触发水平滚动条 Change 事件的操作是 ( )（分数：2.00）A.滚动条失去焦点B.滚动条获得焦点C.设置滚动条的焦点D.单击滚动条左端或右端的箭头 解析：解析：当滚动条滑块位置改变时能够触发 Change 事件。故选项 D 正确。27.在窗体中添加 1 个命令按钮(其 Name 属性为 Command1)和
17、 1 个标签(其 Name 属性为 Lable1)，然后编写如下代码： Private Sub Commandl_Cliek() Dim arrayl(10, 10)As Integer Dim i, j, Sum AsInteger Sum0 For i=1 To 10 Forj=1 To 10 arrayl(i, j)=i+j Nextj Next i End Sub 此程序的功能是求数组arrayl 主对角线元素的和，并把结果显示在标签中，为实现此功能，省略号处的程序段应该是 ( )（分数：2.00）A.For i=1 To 10 For j=1 To 10 If i=j Then Su
18、m = Sum+ arrayl (i,j) End If Next j Next i Labelt. Caption=Sum B.For i=l TO 10 Forj=1 To 10 If i= =j Then Sum=Sum+array1 (i,j) End If Next j Next i Labell. Caption=SumC.For i=1 To 10 For j=1 To l0 If i=j Then Sum=Sum+arrayl (i,j) End If Next i Next j Lahell. Caption=SumD.For i=1 To 10 For j=1 To l0
19、If i=j Then Sum=arrayl (i,j) End If Next j Next i Labell. Caption=Sum解析：解析：选项 B 中条件表达式 i =j 有误，在 VB 中表示 i 等于 j，应写成 ij。排除选项 B。选项C 中的 ForNext 语句使用有误，内层应该是 Next j，外层为 Next i。选项 D 中的求和语句有误。应为 Sum Sum+array1(i，j)。只有 A 项是正确的。28.在窗体中添加一个列表框(ListBox1)和一个命令按钮，并编写如下代码： Private Sub Commandl_Click() Dim a, i, m
20、sg msg=“Choose OK to add 100 items to your listbox.“ MsgBox msg For il To 100 a=“a：“ &i ListAddltem a Next i End Sub 程序完成的功能是 ( )（分数：2.00）A.本程序使用 Addltem 方法增加 100 项给一个列表框 B.本程序使用 Addltem 方法向一个列表框中添加 100 项，其内容是数字 1100C.本程序使用 Addltem 方法向一个列表框中添加的内容是 1100 的和D.本程序使用 Addhem 方法增加 100 个列表框解析：解析：向列表框中添加项目常用
21、 AddItem 方法，其格式为：列表框名AddItem 字符串，序号 题中的程序使用 Addltem 方法增加 100 项给一个列表框，其内容为 a:i(i 为 l 到 100 的数字)。分析各选项，只有 A 项是正确的。29.假定窗体上有一个文本框，名为 Txt1，为了使文本框的内容能够操作，并且具有水平和垂直滚动条，正确的属性设置为 ( )（分数：2.00）A.Txt1. MultiLine=True Txt1. SerollBars=0B.Txt1. MultiLine=True Txtl. SerollBars=3 C.Txt1. MultiLine=False Txt1.Scrol
22、lBars=0D.Txtl. MultiLine=False Txt1.ScrollBars=3解析：解析：本题主要考查文本框的两个属性。MultiLine 属性设置是否可以输入多行文本，当为 True时，具有自动换行功能。 ScrollBars 属性是用来设置滚动条模式的。 0无，1水平，2垂直，3水平和垂直，只有 MultiLine 为 True 时，该属性才有效，且此时不能自动换行。根据以上知识点，结合题意可知选项 B 正确。30.在窗体中添加一个名称为 Command1 的命令按钮和一个名称为 text1 的文本框，然后编写如下程序； ( ) Private Sub Commandl_
23、Click() Dim x，y，z As Integer x=5：y7：z=O Text1Text=“ Call Pl(x，y，z) TextTextStr(z) End Sub Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer) c=a+b End Sub（分数：2.00）A.0B.12 C.Str(z)D.没有显示解析：解析：本题主要是对调用 Sub 过程的考查。调用过程 P1 时，实参 x，y，z 的值分别传递到形参a，b，c。执行过程内的语句得 z=x+y 即 z=5+7。题中 a，b 参数是按值传送的，参数 c 是
24、按址传送的，传值调用不影响实际参数，传址调用影响实际参数。故执行过程内的语句后 z 的值变为 12 而不是 0。z 是整型变量，可以使用 Str 函数将其转换为字符类型，然后赋给文本框的 Text 属性，使其在文本框中显示。31.下列有关子菜单的说法中，错误的是 ( )（分数：2.00）A.每个菜单项都是一个控件，与其他控件一样也有其属性和事件B.除了 Click 事件之外，菜单项不可以响应其他事件C.菜单的索引号可以不连续D.菜单项的索引号必须从 1 开始 解析：解析：菜单项的索引号不必要从 1 开始。故选项 D 的说法不正确。32.关于通用对话框控件叙述不正确的是 ( )（分数：2.00）
25、A.CommonDialog 控件是提供如打开和保存文件、设置打印选项、选择颜色和字体等操作的一组标准对话框B.在运行 Windows 帮助引擎时，控件能够显示帮助信息C.控件显示的对话框由控件的方法决定D.设计时在窗体上将该控件显示成一个图标，此图标的大小可调整 解析：解析：设计时在窗体上通用对话框显示成一个图标，此图标的大小不可调整。故选项 D 的叙述不正确；33.启动 Visual Basic 中，用鼠标右键单击窗体时所显示的菜单是 ( )（分数：2.00）A.文件菜单B.编辑菜单C.弹出式菜单 D.下拉式菜单解析：解析：启动 Visual Basic 中，用鼠标右键单击窗体时所显示的菜
26、单是弹出式菜单。34.以下叙述正确的是 ( )（分数：2.00）A.在 Visual Basic 应用程序中，过程的定义可以嵌套，但过程的调用不能嵌套B.在 Visual Basic 应用程序中，过程的定义不可以嵌套，但过程的调用可以嵌套 C.在 Visual Basic 应用程序中，过程的定义和过程的调用均可以嵌套D.在 Visual Basic 应用程序中，过程的定义和过程的调用均不能嵌套解析：解析：在 Visual Basic 应用程序中，过程的定义不可以嵌套，但过程的调用可以嵌套，选项 B 正确。35.为了将表达式列表中数据写入顺序文件中，所使用的语句的格式为 ( )（分数：2.00）
27、A.Print # 文件号表达式列表B.Print # 文件号，表达式列表 C.Print 表达式列表 # 文件号D.Print 表达式列表，# 文件号解析：解析：本题主要是对顺序文件写格式的考查。顺序文件的写操作使用 Print #或 Write #语句，格式为： Print #文件号，表达式表 Write #文件号，表达式表 根据以上知识点可知选项 B 正确。36.一个工程中包含两个名称分别为 Form1、Form2 的窗体，一个名称为 Func 的标准模块。假定在 Form1和 Func 中分别建立了自定义过程，其定义格式为： Form1 中定义的过程： Private Sub Fun1
28、() End Sub Func 中定义的过程： Public Sub Fun2() End Sub 若要在窗体 For2g 调用 Porm1 和Func 中分别建立的自定义过程，则调用格式正确的是 ( )（分数：2.00）A.Call Form1. Funl() FuncFun2()B.Call Form1. Fun1() Call Fun2() C.Form1. Fun1() Func. Fun2()D.Fun1() Fun2()解析：解析：本题主要考查过程的调用。调用不同窗体中定义的过程时，必须注明窗体名，故该题中的调用格式应为 Call FormlFunl()。但可以直接调用标准模块中定
29、义的过程。故题中的调用格式为 Call Fun2 ()。选项 B 正确。二、填空题(总题数：10，分数：20.00)37.填空题（每空）请将每一个空的正确答案写在答题卡上。注意：以命令关键字填空的必须拼写完整。（分数：2.00）_解析：38.算法的工作量大小和实现算法所需的存储单元多少分别称为算法的 1。（分数：2.00）填空项 1:_ （正确答案：正确答案：时间复杂度和空间复杂度）解析：解析：算法的工作量大小和实现算法所需的存储单元多少分别称为算法的时间复杂度和空间复杂度。39.在面向对象方法中，信息隐蔽是通过对象的 1 性来实现的。（分数：2.00）填空项 1:_ （正确答案：正确答案：封
30、装）解析：解析：在面向对象方法中，信息隐藏是通过对象的封装性来实现的。40.子程序通常分为两类： 1 和函数，前者是命令的抽象，后者是为了求值。（分数：2.00）填空项 1:_ （正确答案：正确答案：过程）解析：解析：子程序通常分为过程和函数两类。前者是命令的抽象，后者是为了求值。41.在面向对象方法学中，直接反映了用户对目标系统的要求的模型是 1。（分数：2.00）填空项 1:_ （正确答案：正确答案：功能模型）解析：解析：在面向对象方法学中，功能模型直接反映了用户对目标系统的要求。42.数据库保护分为：安全性控制、 1、并发性控制和数据的恢复。（分数：2.00）填空项 1:_ （正确答案：
31、正确答案：完整性控制）解析：解析：数据库保护分为：安全性控制、完整性控制、并发性控制和数据的恢复。43.用户可以用 1 语句定义自己的数据类型。（分数：2.00）填空项 1:_ （正确答案：正确答案：Type）解析：解析：用户可以用 Type 语句来定义数据类型，格式是： Type 数据类型名 数据类型元素名 As 类型名 数据类型元素名 As 类型名 EndType 其中“数据类型名”是要定义的数据类型的名字，其命名规则和变量的命名规则相同；“数据类型元素名”也遵守相同的规则，且不能是数组名；“类型名”可以是任何基本数据类型，也可以是用户定义的类型。44.以下程序的功能是，从键盘上输入若干学
32、生的成绩，统计并输出最高分数和最低分数，当输入负数时结束输入，请填空。 Private Sub Command1_C1iek() Dim x As Single Dim amax As Single,amln As Single x=InputBox(“请输入分数“) amax=x aminx Do While 1 If xamax Then amax=x End If If 2Then amin=x End If xInputBox(“请输入分数“) Loop Print amax,amin End Sub（分数：2.00）填空项 1:_ （正确答案：正确答案： x0 或 Not x0 ,
33、xamin 或 Not xamin）解析：解析：本题主要是对求最值算法的考查。题中要求当输入负数时结束输入，可知控制程序的条件应是输人数 x 必须大于等于 0。用语句表示应为 x0 或 Not x0。程序中用变量 amin 存放最低分，又因为语句 amin x，则可推断出 x 值比初始化时的最低分要小的条件。故条件表达式应写成 xamin 或 Not xamin。45.下列程序段的功能是输入一元二次方程 ax2+bx+c=0(a0)的 3 个系数 a、b、c，并判断它根的情况，请将程序补充完整。 Dim a As Single,b As Single,c As Single Dim delta
34、 As Single a=txtA. Text:b=txtB. Text:ctxtC. Text delta= 1 If delta0 Then lblResult. Caption=“有两个不相等的实根“ Elself delta0 Then lblResult. Caption=“有两个相等的实根“ 2 lblResult. Caption“没有实根“ End If（分数：2.00）填空项 1:_ （正确答案：正确答案： b*b4*a*c , Else）解析：解析：根据题意可分析出变量 delta 表示一元二次方程的判别式。故用表达式表示出来为 b*b-4*a*c。“没有实根”是求二次方程
35、根的一种情况，与前面的两种情况是平行的，但条件不同，又根据题中的 if 语句结构可知12处应填 Else。46.设计一个计时程序。该程序用户界面如图所示，由一个文本框(Text1)、两个按钮：命令按钮1(Command1)、命令按钮 2(Command2)组成。程序运行后，单击开始按钮，则开始计时，文本框中显示秒数，单击停止按钮，则计时停止。单击窗口则退出。请在 1、 2 和 3 处填入适当的内容，将程序补充完整。 （分数：2.00）填空项 1:_ （正确答案：正确答案： Unload,Timer,i）解析：解析：计时器控件的常用事件是 Timer 事件，是计时器在间隔了一个 Interval 时间后所触发的事件。题中12处应填事件为 Tim cr。i 是一个控制时间的变量。文本框中显示的是计时器的计数秒数，故应把控制时间变量的 i 赋值给文本框的 Text 属性。13处应填变量 i。题中要求单击窗口则退出程序，可以用卸载语句 Unload Me 来实现此功能。
