1、国家二级（ VB）机试模拟试卷 55及答案与解析 一、选择题 1 当数据库中数据总体逻辑结构发生变化，而应用程序不受影响，称为数据的 （ A）逻辑独立性 （ B）物理独立性 （ C）应用独立性 （ D）空间独立性 2 下列合法的 Visual Basic数值变量是 （ A） BianLiang （ B） aBCD “B“, 24;: Print: Print V; B （ A） VB 24 2 5 （ B） VB 24 2 5 （ C） V B 24 2 5 （ D） 2 5 24 2 5 20 有如下程序代码： Private Sub Form_Click() Dim a(3, 3) As
2、Integer For I = 1 To 3 For j = 1 To 3 If j 1 And I 1 Then a(I, j) = a(a(I - 1, j - 1), a(I, j - 1) + 1 Else a(I, j) = I * j End If Print a(I, j); Next j Print Next I End Sub 程序运行后，单击窗体，输出结果为 （ A） 1 2 3 2 3 1 3 2 3 （ B） 1 2 3 1 2 3 1 2 3 （ C） 1 2 3 2 4 6 3 6 9 （ D） 1 2 3 2 2 2 3 3 3 21 设有如下程序代码： Priv
3、ate Sub Command1_Click() Dim x As Integer x = 30 Print f(x) + f(x) End Sub Private Function f(a As Integer) As Integer a = a / 3 f = a End Function 运行 Command1_Click过程所产生的输出是 （ A） 13 （ B） 20 （ C） 30 （ D） 6 22 有如下程序代码： Private Sub Form_Click() Dim a(100) As Integer Dim b(100) As Integer For i = 1 To
4、100 a(i) = i Next i For i = 1 To 100 b(i) = a(i) + a(i - 1) Next i End Sub 运行程序，单击窗体，以下说法中正确的是 （ A）数组 a和数组 b中存放的均为 1 100的整数 （ B）数组 a中存放的是 1 100的整数，数组 b中存放的是 101 200的整数 （ C）数组 a中存放的是 1 100的整数，数组 b中存放的是 1 199的奇数 （ D）数组 a中存放的是 1 100的整数，数组 b中存放的是 1 200的偶数 23 有下面程序代码： Private Sub Command1_Click() Dim a,
5、s As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) k = 1 s = 0 Do s = s + a(k) k = k + 2 Loop Until k UBound(A) Print s End Sub 程序运行产生的输出是 （ A） 45 （ B） 20 （ C） 16 （ D） 25 24 在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Sing
6、le) If Button = 2 Then Print “ABCD“; Else Print “DDDD“; End If End Sub Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Print “EFGH“ End Sub 程序运行后，单击命令按钮，输出结果是 （ A） ABCDEFGH （ B） DDDDEFGH （ C） ABCD （ D） EFGH 25 在窗体上画一个名称为 Command1的命令按钮，然后编写其 Click事件过程代码如下：
7、Private Sub Command1_Click() Dim i As Integer, num As Integer Do For i = 1 To 10 num = Int(Rnd * 10) + 1 Select Case num Case 2 Exit For Case 7 Exit Do End Select n = n + 1 Next i Loop Print n End Sub 则下面描述中正确的是 （ A）当 变量 num的值为 2时，事件过程 Command1_Click执行结束 （ B）当变量 num的值为 7时， Do循环将终止 （ C）变量 num的值一定是大于或
8、等于 11的整数 （ D） Do循环的执行次数一定为 10次 26 在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x As Integer x = -10 Mod -4 If x 0 Then Command1.Left = Command1.Left - 100 End If End Sub 下面叙述中正确的是 （ A）程序一运行，命令按钮就向左移动，到窗体左端停止 （ B）程序运行后，单击命令按钮，则按钮向左移动，到窗体左端停止 （ C）程序运行 后，单击命令按钮，则按钮向左移动，每秒移动一次 （
9、 D）程序一运行，命令按钮就向右移动，到窗体右端停止 29 在窗体上画一个名称为 Command1的命令按钮，并编写如下程序： Private Sub Command1_Click() Dim a As Integer Static b As Integer a = 20 b = 5 Call sub1(a, b) Print a; b End Sub Private Sub sub1(ByRef x1 As Integer, y1 As Integer) x1 = x1 + 3 y1 = x1 + y1 End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是 （ A） 23 23 （
10、 B） 23 28 （ C） 20 5 （ D） 20 25 30 下列叙述中正确的是 （ A）结点中具有两个指针域的链表一定是二叉链表 （ B）结点中具有两个指针域的链表可以是线性结构，也可以是非线性结构 （ C）二叉树只能采用链式存储结构 （ D）循环链表是非线性结构 31 某二叉树的前序序列为 ABCD，中序序列为 DCBA，则 后序序列为 （ A） BADC （ B） DCBA （ C） CDAB （ D） ABCD 32 下面不能作为软件设计工具的是 （ A） PAD图 （ B）程序流程图 （ C）数据流程图 (DFD图 ) （ D）总体结构图 33 逻辑模型是面向数据库系统的模型，
11、下面属于逻辑模型的是 （ A）关系模型 （ B）谓词模型 （ C）物理模型 （ D）实体 -联系模型 34 运动会中一个运动项目可以有多名运动员参加，一个运动员可以参加多个项目。则实体项目和运动员之间的联系是 （ A）多对多 （ B）一对多 （ C）多对 一 （ D）一对一 35 某二叉树中有 15个度为 1的结点， 16个度为 2的结点，则该二叉树中总的结点数为 （ A） 32 （ B） 46 （ C） 48 （ D） 49 36 下面对软件特点描述错误的是 （ A）软件没有明显的制作过程 （ B）软件是一种逻辑实体，不是物理实体，具有抽象性 （ C）软件的开发、运行对计算机系统具有依赖性
12、（ D）软件在使用中存在磨损、老化问题 37 设有表示公司和员工及雇佣的三张表，员工可在多家公司兼职，其中公司（公司号，公司名，地址，注册资本，法人代表，员工数），员工 （员工号，姓名，性别，年龄，学历），雇佣（公司号，员工号，工资，工作起始时间）。其中表的键为公司号，表的键为员工号，则表的键（码）为 （ A）公司号，员工号 （ B）员工号，工资 （ C）员工号 （ D）公司号，员工号，工资 38 表达式 Int(5.3)+Int(-5.8) Fix(5.3)+Fix(-5.8)的值是 （ A） True （ B） False （ C） 1 （ D） 0 39 以下不合法的 Visual Ba
13、sic变量名是 （ A） Cab24 （ B） Sims （ C） A#B （ D） Print_Text 40 下列各声明语句中错误的是 （ A） Dim Test As String=“计算机等级考试 （ B） Const Country = “China“ （ C） Public Sum As Integer （ D） Static v1 二、基本操作题 41 (1)在名称为 Form1的窗体上添加三个单选按钮，其名称分别为 Option1、Option2和 Option3(如图 1所示 )，然后通过属性窗口设置窗体和单选按钮的属性，实现如下功能： 窗体标题为 “设置单选按钮属性 ”。
14、三个单 选按钮的标题分别为 “按钮 1”、 “按钮 2”和 “按钮 3”。 初始状态为，第 1个单选按钮为 “选中 ”。 程序运行后，第 2个单选按钮为 “不可用 ”。 程序运行后，第 3个单选按钮为 “不可见 ”。 程序的运行情况如图 2所示。 要求：不编写任何代码。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。(2)在名称为 Form1的窗体上画一个垂直滚动条和一个命令按钮，其名称分别为 VScroll1和 Command1，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求 设置垂直滚动条的属性： Max=窗体高度 Mi
15、n=0 LargeChange=50 SmallChange=10 如果移动垂直滚动条的滚动框，则在窗体上显示滚动框的刻度值。 程序的运行情况如图所示。 要求：不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2 vbp，窗体文件名保存为 sjt2 frm。 三、简单应用题 42 (1)在考生文件夹中有一个工程文件 sjt3 vbp。程序的功能是输入用户名和密码。程序运行时，当输人密码到文本框 Text2中时，如果 “显示密码 ”复选框没 有被选中，则在文本框 Text3中同时显示 “#”(如图所示 )；如果 “显示密码 ”复选框被选中，重新输入密码时，则在 Tex
16、t3中同时显示的是密码字符本身。 在给出的窗体文件中已添加了全部控件，但程序不完整。 要求：去掉程序中的注释符，把程序中的 “?”改为正确的内容。 注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 (2)考生文件夹中有一个工程文件 sjt4 vbp。该程序的功能是：程序运行时，向文本框控件数组Text1(有 5个文本框 )中任意输入 5个数，单击名称为 Command1的命 令按钮，则找出其中最小数并在标签 lblResult中显示。给出的窗体文件中已经有了全部控件，但程序不完整，其中函数 FindMin的作用是返回两个数中的较小数。要求：去掉程序中的注释符，把程
17、序中的 “?”改为正确的内容。 注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 四、综合应用题 43 在考生文件夹下有一个工程文件 sjt5 vbp，相应的窗体文件是 sjt5 frm(如图所示 )。该程序的功能是：单击 “读数 ”按钮，读入考生文件夹下 in5 txt文件中的一个整数，并放入 Text1中；单击 “计算 ”按钮，则计算小于该数的最大素数，并显示在 Text2中；单击 “存盘 ”按钮，则把该素数保存到考生文件夹下的 out5 txt文件中。 要求： 程序已给出 “存盘 ”按钮的事件过程代码。 “读数 ”按钮的事件过程和判断 x是否是素数的函数 p
18、rime(x)不完整，请去掉注释，并在 ?处填上正确的内容，使程序完整。 编写 “计算 ”按钮的事件过程中。计算小于Text1中数据的最大素数。 请不要改动窗体上所有控件属性设置及相应的过程代码。最后将改动后的程序用原文件名保存。 国家二级（ VB）机试模拟试卷 55答案与解析 一、选择题 1 【正确答案】 A 【试题解析】 数据独立性包括物理独立性和逻辑独立性，物理独立性指数据的物理结构的改变，不会影响数据库的逻辑结构，也不会引起应用程序的改动；逻辑独立性指数据库的总体逻辑结构的改变，不会导致相应的应用程序的改变。故 A选项正确。 2 【正确答案】 B 【试题解析】 在 VB中，变量名的第一
19、个字符必须是英文字母，最后一个字符可以是类型说明符，且变量名只能由字母、数字、下划线组成，故 A和 D选项错误； B选项最后一位是长整型类 型说明符； C选项最后一位是定长字符串的类型说明符，结合题目要求是数值变量，知 C选项错误，故选 B。 3 【正确答案】 B 【试题解析】 十进制的整型数 Integer存储空间为 2个字节，取值范围是 -3276832767，长整型 Long存储空间为 4个字节，取值范围是 -21474836482147483647，双精度浮点数 Double存储空间为 8个字节， Variant是一种特殊的数据类型，能保存所有类型的数据，其存储空间会根据数据大小自动分
20、配，所以， 33521397超出了 Integer数据类型的范围， 空间不足，故选 B。 4 【正确答案】 A 【试题解析】 全局变量在声明中使用 Public或 Global 语句 ,故正确答案为 A选项。 5 【正确答案】 B 【试题解析】 注释语句是非执行语句，只起注释作用，不被解释和编译，其作用是为了提高程序的可读性。注意，注释语句不能放在续行符 “-“的后面。故选 B。 6 【正确答案】 A 【试题解析】 选项 A中， Dim Arr(k)， k 要求是常量表达式，要动态设定数组长度用 ReDim k%=10，故选 A。 7 【正确答案】 B 【试题解 析】 设计阶段，属性窗口的内容
21、为被选中控件的属性，但不包括只能在运行期间才可以访问的属性。故 A、 C和 D选项均错误，正确答案为 B 选项。 8 【正确答案】 B 【试题解析】 TabStop 属性指定是否能使用 Tab 键将焦点移到控件上，为 True时可以获得焦点，为 False时不可获得焦点，故 A选项错误。 Enabled 属性用来确定文本框或其他可获得焦点的控件，是否对用户产生的事件作出反应，当为 False时，文本框被禁用，当为 True，可以获得焦点，故 C选项错误。 Locked 属性是用来设置本文框或其他可获得 焦点的控件的内容是否可以被编辑，默认为 False，可编辑，取值为 True时，不可编辑，但
22、仍可获得焦点，故 D选项错误，正确答案为 B 选项。 9 【正确答案】 A 【试题解析】 BorderStyle：该属性用来设置直线和形状的边界线的线型，有如下 7种值可选： 0-Transparent代表透明； 1-Solid 代表实线； 2-Dash代表虚线； 3-Dot代表点线； 4-Dash-Dot代表点下划线； 5-Dash-Dot-Dot代表双点划线； 6-Inside Solid 代表内实线。故本题选 A。 10 【正确 答案】 A 【试题解析】 列表框 List用来列出或设置列表项的内容，可以通过下标访问数组中的值（下标值从 0开始）。 ListIndex 表示在列表框控件中当
23、前所选项的索引号。 List1.List用来列出表项内容，可以通过下标访问列表框中的内容，故选项 B错误；标签 Label1.Caption 用来显示在标签标题中显示的文本，故 C、 D选项错误。本题正确答案为 A。 11 【正确答案】 B 【试题解析】 文本框设置焦点的方法，格式如下： 对象名 .SetFocus。故本题正确答案为 B。 12 【正确答 案】 A 【试题解析】 AddItem方法：用来在列表框中插入一行文本（即项目）。RemoveItem方法：用来删除列表框中的指定项目。注意：列表框中项目从 0开始计数。第一个 For循环是在列表框中插入 1， 2， 3， 4， 5， 6项目
24、。第二个 For循环，当 i=1时，执行 RemoveItem 1 操作后列表框还剩 1， 3， 4， 5， 6。当 i=2时，执行 RemoveItem 2 操作后列表框还剩 1， 3， 5， 6。当 i=3 时，执行RemoveItem 3 操作后列表框还剩 1， 3， 5。故本题正确答案为 A选项。 13 【正确答 案】 C 【试题解析】 Style属性设置单选按钮的显示方式， 0为默认值，控件按标准方式显示， 1为图形方式，控件用图形的样式显示； Value属性设置单选按钮的状态，True表示按钮被选中， False为默认值，表示单选按钮处于未选中状态； Caption属性设置单选按钮
25、的标题文本。 Checked 表示复选框的状态为被选中。故正确答案为选项 C。 14 【正确答案】 A 【试题解析】 LoadPicture函数是将图形文件载入到窗体、图片框或图像框的Picture属性中，选项 A正确，选项 B、 C错误； AutoSize是图片框的属性，图像框用 Stretch 属性设置是否可以根据图片的大小调整自己的大小，选项 D错误。故正确答案为选项 A。 15 【正确答案】 B 【试题解析】 Do 循环结构中 DoWhile|Until 循环条件 Loop 先判断条件后执行循环体； DoLoopWhile|Until 循环条件 先执行循环体后判断条件。其中 Do Un
26、tilLoop 循环中，当条件为假时继续执行循环体，当条件为真时退出循环，故正确答案为 B 选项。 16 【正确答案】 B 【试题解析】 Do 循 环结构中 DoWhile|Until 循环条件 Loop 先判断循环条件后执行程序； DoLoopWhile|Until 循环条件 先执行程序后判断循环条件。其中Do UntilLoop 循环中，当条件为假时继续执行循环体，当条件为真时退出循环，故正确答案为 B 选项。 17 【正确答案】 C 【试题解析】 设置菜单项不可见的语句是： menu1.Visible = False，选项 A错误；能在 menu1 菜单项的左面显示 “标记的语句是： m
27、enu1.Checked = True，选项 B错误；菜单项只 能响应 Click事件，选项 D错误；故本题正确答案为 C选项。 18 【正确答案】 B 【试题解析】 在运行程序时只有调用相应的方法才能显示通用对话框，在运行时不可见，选项 A描述错误；通用对话框是以图标的形式显示在窗体中，该图标的大小不能改变，选项 C描述错误；通用对话框是 ActiveX控件，不是标准控件，使用时需要添加到工具箱，选项 D描述错误。故正确答案为选项 B。 19 【正确答案】 B 【试题解析】 语句 Print “V“; “B“, 24 输出字符 V和 B及数据 24，即： VB 24。语句 Print： Pr
28、int V； B 先输出换行符，再输出变量 V和 B 的值，即： 2 5。故正确答案为 B选项。 20 【正确答案】 A 【试题解析】 观察答案，数组的第一行数据均相同，数组的第二行数据均不同。直接进入第二行数据，当 i=2， j=1时， If条件 j1 And i1 为假，执行 Else语句， a(2,1)= i*j=2*1=2；当 i=2， j=2时， If条件 j1 And i1 为真，执行 If内语句， a(2,2)=a(a(1,1),a(2,1)+1=a(1,2)+1=2+1=3；由此可知，只有 答案 A符合条件。故本题正确答案为 A。 21 【正确答案】 A 【试题解析】 VB 默
29、认的参数传递方式是按地址传递。第 1次调用函数 f（ x）时x=30，故 f（ 30） =10，此时 a的值为 10， x的值为 10，函数调用结束时， a被释放，第 2次调用函数 f（ x）时， x=10，故 f（ 10） =3，所以 f（ x） +f（ x） =f（ 30） +f（ 10） =13。故正确答案为选项 A。 22 【正确答案】 C 【试题解析】 题目定义两个整型数组 a（ 100）和 b（ 100），数组 a（ 100）中元素在题中分别赋值 1到 100；数组 b（ 100）的值为数组 a（ 100）元素中相邻的奇数和偶数相加之和，结果为奇数。故正确答案为选项 C。 23 【
30、正确答案】 B 【试题解析】 Array 函数为数组 a的元素赋值，使得 a（ 0） a（ 8）的值被分别赋值为 1 9； UBound(a)函数返回数组 可用的最大下标 8， DoLoop Until 循环先执行循环体，后判断终止条件 k 8是否成立，条件成立时， Do循环共执行 4次，因此 s=a（ 1） +a（ 3） +a（ 5） +a（ 7） =2 4 6 8=20。故正确答案为选项 B。 24 【正确答案】 B 【试题解析】 MouseDown 是按下鼠标时触发的事件， MouseUp是松开鼠标时触发的事件。鼠标键参数中 Button=2 表示按下右键。单击命令按钮时，先用鼠标单击一
31、下左键，在此过程中，鼠标会从按下转为松开。先触发 MouseDown 事件，因button!=2故输出 DDDD，再触发 MouseUp事件，输出 EFGH。故本题正确答案为选项 B。 25 【正确答案】 B 【试题解析】 选项 A，当变量 num值为 2时，满足 Case 2，退出 For循环。注意，其仅退出内层 For 循环，没有退出外层 Do 循环，故选项 A错误； Rnd 英文全称 Random，意为随机数， Rnd*10生成一个取值在 1， 10)之间的随机数（注意不包含 10）。取整函数 Int(x)，返回值为不大于自变量 x的最大整数， num = Int(Rnd*10)+1，生
32、成一个在 1到 10之间的随机整数，故选项 C错误；但Select Case 中，满足 Case 7时，直接退出 DoWhile 循环，循环结束，故Do循环的执行次数不一定为 10次， D选项错误；本题正确答案为 B。 26 【正确答案】 C 【试题解析】 If 条件 Then 部分，如果选择的条件为真，则执行 Then 部分； x=-10 Mod -4 =-2；三个 If 条件中， x0结果为 False。故正确答案为 B选项。 39 【正确答案】 C 【试题解析】 VB 中变量的命名规则有： 变量名的第一个字符必须是英文字母，最后一个字符可以是类型符。 变量名只能由字母、数字和下划线 “_
33、“组成。 变量名有效长度为 255个字符。 Visual Basic中保留字不能作变量名，但变量名可以含有保留字。选项 C含有特殊字符，故正确答案为选项 C。 40 【正确答案】 A 【试题解析】 A选项的正确写法是： Dim Test As String : Test = “计算机等级考试 “。故正确答案为 A选项。 二、基本操作题 41 【正确答案】 (1)【操作步骤】步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 3.133和表 3.134。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属
34、性见表3.135 步骤 2：编写程序代码。参考答案 Private Sub Command1_Click() VScroll1.Max = Form1.Height VScroll1.Min = 0 VScroll1.LargeChange = 50 VScroll1.SmallChange = 10End SubPrivate Sub VScroll1_Change() Print VScroll1.ValueEnd Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、简单应用题 42 【正确答案】 (1)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码
35、。 程序提供代码 Private Sub Text2_Change() If ? = 1 Then Text3.PasswordChar = ? Else Text3.PasswordChar = ? End If Text3.Text = ? End Sub 程序结束 参考答案 第 1个？处填入： Check1.Value 第 2个？处填入： “ 第 3个？处填入： “#“ 第 4个？处填入： Text2 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub Command
36、1_Click() Dim x As Integer, k As Integer x = Val(Text1(1) Text) For k = 2 To ? x = FindMin(Val(Text1(k) Text), ？ ) Next lblResult.Caption =？ End Sub Public Function FindMin(x As Integer, y As Integer) If x ? y Then FindMin = y Else FindMin = x End If End Function 程序结束 参考答案 第 1个？处填入： 5 第 2个？处填入 ： x 第
37、 3个？处填入： x 第 4个？处填入： 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 四、综合应用题 43 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Open App.Path & “in5.txt“ For Input As #1 Input #1, a% Text1.Text = a% Close #1 End Sub Private Sub Command2_Click() 考生自己编写 “计算 “按钮的事件过程 End Sub Private Sub Com
38、mand3_Click() Open App.Path & “out5.txt“ For Output As #1 Print #1, Text2.Text Close #1 End Sub Function prime(x) As Boolean flag = 1 For i = 2 To x - 1 If x Mod i = 0 Then flag = 0 Exit For End If Next If flag = 0 Then prime = False Else prime = True End If End Function 程序结束 参考答案 n = Val(Text1.Text) For i = n To 2 Step -1 l = prime(i) If l = True Then Exit For End If Next Text2.Text = i 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
