1、国家二级（ VB）机试模拟试卷 75及答案与解析 一、选择题 1 有三个关系 R、 S和 T如下： 则由关系 R和 S得到关系 T的操作是 ( )。（ A）自然连接 （ B）差 （ C）交 （ D）并 2 以下叙述中正确的是 ( )。 （ A）在属性窗口只能设置窗体的属性 （ B）在属性窗口只能设置控件的属性 （ C）在属性窗口可以设置窗体和控件的属性 （ D）在属性窗口可以设置任何对象的属性 3 下列打开 “代码窗口 “的操作中错误的是 ( )。 （ A）按 F4键 （ B）单击 “工程资源管理器 “窗口中的 “查 看代码 “按钮 （ C）双击已建立好的控件 （ D）执行 “视图 “菜单中的
2、 “代码窗口 “命令 4 以下叙述中错误的是 ( )。 （ A） Visual Basic 是事件驱动型可视化编程工具 （ B） Visual Basic应用程序不具有明显的开始和结束语句 （ C） Visual Basic工具箱中的所有控件都具有宽度 (Width)和高度 (Height)属性 （ D） Visual Basic中控件的某些属性只能在运行时设置 5 在标准模块中用 Public关键字定义的变量，其作用域为 ( )。 （ A）本模块 所有过程 （ B）整个工程 （ C）所有窗体 （ D）所有标准模块 6 假定有如下语句： answer$ MsgBox(“String1“， ，
3、“String2“， “String3“， 2) 执行该语句后，将显示一个信息框，单击其中的 “确定 “按钮，则 answer$的值为( )。 （ A） String1 （ B） String2 （ C） String3 （ D） 1 7 设 a 10， b 5， c 1，执行语句 Print abc后，窗体上显示的是 ( )。 （ A） True （ B） False （ C） 11 （ D）出错 8 为了通过传值方式来传送过程参数，在函数声明部分应使用的关键字为 ( )。 （ A） Value （ B） ByVal （ C） ByRef （ D） Reference 9 以下说法中正确的是
4、 ( )。 （ A）事件过程也是过程，只能由其他过程调用 （ B）事件过程的过程名是由程序设计者命名的 （ C）事件过程通常放在标准模块中 （ D）事件过程是用来处理由用户操作或系统激发的事件的代码 10 设有语句： Open “c： Test.Dat“ For Output As #1 则以下叙述中错误的是 ( )。 （ A）该语句打开 C盘根目录下的一个文件 Test.Dat，如果该文件不存在则出错 （ B）该语句打开 C盘根目录下一个名为 Test.Dat的文件，如果该文件不存在则创建该文件 （ C）该语句打开文件的文件号为 1 （ D）执行该语句后，就可以通过 Print #语句向文件
5、 Test.Dat中写入信息 11 在窗体上画两个文本框，其名称分别为 Text1和 Text2，然后编写如下程序： Private Sub Form_Load() Show Text1.Text “ Text2.Text “ Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text Mid(Text1.Text， 6) End Sub 程序运行后，如果在文本框 Text1中输入 ChinaBeijing，则在文本框 Text2中显示的内容是 ( )。 （ A） ChinaBeijing （ B） China （ C） Beiji
6、ng （ D） ChinaB 12 在窗体上画一个水平滚动条，其属性值满足 Min“运算符，相同优先级，左结合。先计算 ab，即 105，值为 True， (即 1)，再计算 11，结果为 False。故B 选项正确。 8 【正确答案】 B 【试题解析】 Value是控件的属性名。用 ByVal关键字声明形参表示该参数按值传递。 ByRef 是默认的参数类型，表示该参数按地址传递。没有 Reference关键字。 故 B 选项正确。 9 【正确答案】 D 【试题解析】 事件过程也是过程，其他过程或系统都可以调用它。故 A选项错误。 事件过程的过程名是由系统命名的。故 B选项错误。 通常事件过程
7、放在窗体模块中。故 C选项错误。 事件过程是用来处理由用户操作或系统激发的事件的代码。只有当用户或系统触发事件后，才执行相应的事件过程。故 D选项正确。 10 【正确答案】 A 【试题解析】 本题中是用 Open 语句打开一个顺序文件 Test.Dat，并指定一个文件号 1。故 C选项正确。 如果 Test.Dat文件不存在，则系统 自动创建该文件。故 B选项正确， A选项错误。 用 For Output模式打开文件，可通过 Print #语句向文件写入信息。故 D选项正确。 11 【正确答案】 C 【试题解析】 程序运行后，在文本框 Text1中输入字符后，触发它的 Change事件，通过中
8、部截取函数 Mid 把文本框 Text1 中的内容从第 6个字符 B开始截取后面的字符，得到 “Beijing“字符串，然后把截取的字符串在 Text2 中显示出来。故C选项正确。 12 【正确答案】 A 【试题解析】 当水平滚动条的属性值 MinMax时 ，如果单击滚动条右端或左端的箭头， Value属性值会增加或减少 SmallChange量；如果单击滚动块和右端箭头之间空白的地方时， Value属性值会增加 LargeChange量，反之，减少LargeChange量。 本题单击的是滚动条右端的箭头，故 Vlaue属性值应该是增加一个 SmallChange量。故选 A。 13 【正确答
9、案】 A 【试题解析】 List 属性可以返回组合框中各选项的内容。用下标区分各选项，第1个选项下标为 0，依次类推。 “CCCCC“为组合框中第 3个选项，可以用Combo1.List(2)返回选项内容。故 A选项正确， C选项错误。 Text属性返回的是组合框中选中项目的内容； ListIndex属性返回的是选中项目的索引值，即下标。故 B、 D选项错误。 14 【正确答案】 C 【试题解析】 文本框的 ScrollBars 属性值： 0表示无滚动条， 1表示只有水平滚动条， 2表示只有垂直滚动条， 3表示水平和垂直滚动条都有。本题文本框只具有垂直滚动条，则 ScrollBar属性值就设置
10、为 2，故 C选项正确。 15 【正确答案】 A 【试题解析】 每个对象都有 Name属性，用于识别不同的 对象。故选 A。 16 【正确答案】 C 【试题解析】 LargeChange属性值是单击滚动块和左右两端箭头之间空白的地方时， Value增加或减少的量， Small 属性值才是滚动条的最大值。故 C选项错误。 17 【正确答案】 A 【试题解析】 Text属性可返回当前被选中列表项的内容，故选 A。 Index属性是当有列表框控件数组时，区分各列表框用的； ListIndex 属性返回的是被选中的列表项的索引值； List 属性设置或返回各列表项的内容。 18 【正确答案】 B 【试
11、题解析】 文 本框中内容有变化时，触发 Change事件。故 B选项正确。 当在文本框中输入数据，松开键盘时触发它的 KeyUp事件；文本框失去焦点触发LostFocus 事件；获得焦点，触发 GotFocus 事件。 19 【正确答案】 A 【试题解析】 Interval 的属性值是以毫秒计，所以是毫秒数。故选 A。 20 【正确答案】 C 【试题解析】 程序运行过程如下： k 0，输入 2， A1(k 1) A1(0 1) A1(1) 2， A2(3 k) A2(3 0) A2(3) 2 k 1，输入 4， A1(k 1) A1(1 1) A1(2) 4， A2(3 k) A2(3 1)
12、A2(2) 4 k 2，输入 6， A1(k 1) A1(2 1) A1(3) 6， A2(3 k) A2(3 2) A2(1) 6 k 3， For循环结束，输出 A2(k)的值即 A2(3)的值，即 2。 21 【正确答案】 D 【试题解析】 程序运行，窗体加载时设置 Label1 显示为 ABCD， Label2 显示为10。单击命令按钮，执行按钮的单击事件过程，过程中 Val函数将 Label2 的标题字符串转换为数值赋给变量 a，此时 a的值为 10，然后调 用 func过程传入 Label1为参数， func过程中设置 Label1 的标题为 “1234“，回到按钮单击事件过程，设
13、置Label2 的标题为变量 a的值，即 10。因此两个标签中显示的内容分别为 1234和10。 22 【正确答案】 B 【试题解析】 本题是过程的嵌套调用，过程嵌套调用时要先计算最内层的过程，然后由里向外执行。因此 Fun1(Fun1(x， (Fun1(x， x 1)， x 1)执行过程如下： 先执行 Fun1(x， x 1)，由于形参 a是按值传递，因此不会影响 x的值， x 10，即 Fun1(10,9)。 t 1， b 1 10 11，则函数返回值为 1 11 12。 再执行 Fun1(x， (Fun1(x， x 1)，由于内层过程返回 12，因此又可写成Fun1(x， (12)，由于
14、 x仍为原值，因此过程即 Fun1(10,12)。 t 2， b 2 10 8，则函数返回值为 2 8 6。 最后执行 Fun1(Fun1(x， (Fun1(x， x 1)， x 1)，即 Fun1(6， x 1)，由于 x仍为原值，因此过程即为 Fun1(6,9)。 t 3， b 3 6 3，则函数返回值为 3 3 0。 23 【正确答案】 C 【试题解析】 程序中过程 Fun 的 Do循环的功能是从参数字符串中依次取出后半部分的字符组成一个字符串，然后这个字符串再重复一次由函数返回。函数 Len用于返回字符串的长度，过程中字符串的长度做为 Do循环的结束条件。 Mid是字符串中部截取函数，
15、用来从指定位置开始截取指定个数的字符。过程中使用Mid(xStr， i 1， 1)，通过循环依次取出字符串后半部分的字符。函数返回的字符串经 Lcase函数转换为小写然后显示在文本框中。程序中做为 Fun 过程参数的字符串为 “ABCDEF“，经处理返回并转 为小写后为 “defdef“。 24 【正确答案】 A 【试题解析】 窗体的 KeyPreview 属性用于设置或获取一个值，该值只是判断按键事件传递到具有焦点的控件前，窗体是否将接收此事件，该属性设为 True时，窗体将会接收按键事件。因此在文本框中输入 “VB“时，会先触发Form_KeyPress()事件，该事件将输入的字符保存到窗
16、体模块变量 SaveAll中，然后才会显示在文本框中。当单击命令按钮时， Lcase函数将变量 SaveAll 中的字符串 “VB“转换为小写，为 “vb“，然后与原字符串连接，即 “vb“ “VB“，显示在文本框中则为 “vbVB“。 25 【正确答案】 A 【试题解析】 程序的作用是输入的数如果是 5的倍数就累加，如果不是就每次加50或与上次是 5的倍数的那个数相累加。因此最终 a的值是 15 15 35 35100。 26 【正确答案】 A 【试题解析】 数据文件的写操作分为 3步，即打开文件、写入文件和关闭文件。 首先，在顺序文件中打开文件写入数据的打开方式为： Open 文件名 Fo
17、r Output As #文件号。因此 B、 C选项排除，只看 A、 D选项。 写入顺序文件 Print #语句格式为： Print #文件号，变量名，变量名 ， Write语句的的格式与 Print语句一样： Write #文件号，变量名，变量名。而记录类型变量不能整体引用，需要指明记录变量中的成员名，格式为：记录变量名 .成员名，Books 类型变量 B 成员 Name和 TelNum赋值和引用应该是 B.Name、B.TelNum，因此 A选项正确。 27 【正确答案】 C 【试题解析】 Static声明的变量为静态变量，静态变量在程序运行期间，每次进入过程时都会保留上次的值，而普通变量
18、不会保留。 numa定义为静 态变量，因此每次调用都会保留结果， 3次调用过程， numa的值为 6， numb 的值为 1。 28 【正确答案】 B 【试题解析】 根据 For循环中的 If语句的条件 n m or n 4 m中的 n m首先可以得出 a(1,1) 2， a(2,2) 4， a(3,3) 6，其次根据 n 4 m的条件可以得出a(1,3) 4， a(2,2) 4， a(3,1) 4。而其他的元素值都为 0。因此窗体上输出的三行分别是： 2 0 4 ,0 4 0,4 0 6。 29 【正确答案】 A 【试题解析】 栈是先进后出的数据结构 ，所以栈顶元素最后入栈却最先被删除。栈底
19、元素最先入栈却最后被删除。所以选择 A。 30 【正确答案】 C 【试题解析】 栈是先进后出的数据结构，在整个过程中，栈底指针不变，入栈与出栈操作均由栈顶指针的变化来操作，所以选择 C。 31 【正确答案】 D 【试题解析】 根据二叉树的基本性质 3：在任意一棵二叉树中，度为 0的叶子节点总比度为 2的节点多一个，所以本题中度为 2的节点为 1 1 0个，所以可以知道本题目中的二叉树的每一个节点都有一个分支，所以共 7个节点共 7层，即深度为 7。 32 【正确答 案】 A 【试题解析】 软件按功能可以分为：应用软件、系统软件、支撑软件。操作系统、编译程序、汇编程序、网络软件、数据库管理系统都
20、属于系统软件。所以B)、 C)、 D)都是系统软件，只有 A)是应用软件。 33 【正确答案】 B 【试题解析】 1966年 Boehm和 Jacopini 证明了程序设计语言仅仅使用顺序、选择和重复三种基本控制结构就足以表达出各种其他形式结构的程序设计方法。 34 【正确答案】 A 【试题解析】 详细设计的任务是为软件结构图中而非总体结构图中的每一个模块确定实现算 法和局部数据结构，用某种选定的表达工具表示算法和数据结构的细节，所以 A错误。 35 【正确答案】 C 【试题解析】 数据定义语言：负责数据的模式定义与数据的物理存取构建；数据操纵语言：负责数据的操纵，包括查询及增、删、改等操作；
21、数据控制语言：负责数据完整性、安全性的定义与检查以及并发控制、故障恢复等功能。 36 【正确答案】 D 【试题解析】 因为一个教师可讲授多门课程，而一门课程又能由多个老师讲授，所以它们之间是多对多的关系，可以表示为 m n。 37 【正确答案】 D 【试题 解析】 关系 T中的元组是关系 R中有而关系 S 中没有的元组的集合，即从关系 R中除去与关系 S 中相同元组后得到的关系 T。所以做的是差的运算。 38 【正确答案】 B 【试题解析】 只有 B)选项 369可以用无符号整数来表示和存储。 A)选项 369有负号，选项 C)0.369是小数都不能用无符号整数类存储。选项 D)是一个整数集合
22、得用数组来存储。 39 【正确答案】 B 【试题解析】 .vbp工程文件，包含与管理工程有关的所有的文件和对象清单。 .bas标准模块文件，包含公用的一些变量和过程等代码。 .vbw 工作区文件，包含了该工程中各窗体 (指开发区窗体，如代码窗、设计窗 )的位置。 .frm窗体文件，包含了窗体及窗体中包含的各控件的代码、属性等信息。 故选项 B 正确。 40 【正确答案】 D 【试题解析】 Rnd 函数产生 0 1之间的随机数，不包括 0和 1。要产生 150(包含 1和 50)之间的随机整数，可以先产生 0 50之间的随机整数，然后再这个基础上加 1。故 D选项正确。 二、基本操作题 41 【
23、正确答案】 (1)【操作步骤】步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 3.140。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 3.141。步骤 2：编写程序代码。参考答案 Private Sub Command1_Click() Shape1.Shape = 3End SubPrivate Sub Command2_Click() Shape1.BorderColor = &HFF&End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、简单应用题 42 【
24、正确答案】 (1)【操作步 骤】步骤 1：打开本题工程文件，并设置控件的属性。程序中用到的控件及属性见表 3.107。步骤 2：分析并编写程序代码。程序提供代码 Private Sub Form_Click()If Option1.Value = True Then Text1.Text = InputBox(“请输入要添加的项目 “) List1.AddItem ?End IfIf Option2.Value = True Then Text1.Text = InputBox(“请输入要删除的项目 “) For i = 0 To ? If List1.List(i) = ? Then Lis
25、t1.RemoveItem ? End If Next iEnd IfEnd Sub程序结束参考答案第 1个？处填入： Text1第 2个？处填入： List1.ListCount - 1第 3个？处填入： Text1.Text第 4个？处填入： i步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】步骤 1：打开本题工程文件。步骤 2：分析并编写程序代码。程序提供代码 Option Base 1Private Sub Sort(a() As Integer)Dim Start As Integer, Finish As IntegerDim i As Integer, j
26、 As Integer, t As Integer Start = ？(a)Finish = ？ (a)For i = ? To 2 Step -1 For j = 1 To ? If a(j) ? a(j + 1) Then t = a(j + 1) a(j + 1) = a(j) a(j) = t End If Next jNext iEnd SubPrivate Sub Command1_Click()Dim arr1Dim arr2(4) As Integerarr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text),
27、Val(Text4.Text)For i = 1 To 4 arr2(i) = CInt(arr1(i)Next iSort arr2()Text1.Text = arr2(1)Text2.Text = arr2(2)Text3.Text = arr2(3)Text4.Text = arr2(4)End Sub程序结束参考答案第 1个？处填入： LBound第 2个？处填入： UBound第 3个？处填入： 4第 4个？处填入： 3第 5个？处填入： 四、综合应用题 43 【正确答案】 【操作步骤】步骤 1：打开本题工程文件，将 Text3的 Visible属性设置为 False，然后按照题目
28、要求建立菜单并设置其属性。菜单属性如表 3.13所示。 步骤 2：分析并编写 程序代码。程序提供代码 Dim which As IntegerPrivate Sub copy_Click()If which = 1 Then Text3.Text = Text1.TextElseIf which = 2 Then Text3.Text = Text2.TextEnd IfEnd SubPrivate Sub cut_Click()If which = 1 Then Text3.Text = Text1.Text Text1.Text = “ElseIf which = 2 Then Text3
29、.Text = Text2.Text Text2.Text = “End IfEnd SubPrivate Sub edit_Click() If which = ? ThenIf Text1.Text = “ Then cut.Enabled = False Copy.Enabled = FalseElse cut.Enabled = True Copy.Enabled = TrueEnd If ElseIf which = ? ThenIf Text2.Text =“ Then cut.Enabled = False Copy.Enabled = FalseElse cut.Enabled
30、 = True Copy.Enabled = TrueEnd IfEnd IfIf Text3.Text = “ ThenPaste.Enabled = FalseElsePaste.Enabled = TrueEnd IfEnd SubPrivate Sub paste_Click()If which = 1 Then Text1.Text = ?ElseIf which = 2 Then Text2.Text = ?End IfEnd SubPrivate Sub Text1_GotFocus() 本过程的作用是：当焦点在 Text1中时， which = 1which = 1End SubPrivate Sub Text2_GotFocus() 本过程的作用是：当焦点在 Text2中时， which = 2which = 2End Sub程序结束参考答案第 1个？处填入： 1第 2个？处填入： 2第 3个？ 处填入： Text1.Text Text3.Text第 4个？处填入： Text2.Text Text3.Text步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
