1、国家二级（ VB）机试模拟试卷 62及答案与解析 一、选择题 1 有一种控件，可以在其中承载其他控件，还可以在其中用 Print方法输出文本，这种控件是 （ A）框架 （ B）图片框 （ C）图像框 （ D）通用对话框 2 以下说法中正确的是 （ A）能获取列表框 List1中最后一个列表项内容的表达式是 List1.List(ListCount-1) （ B） Shape控件可以将同一个窗体上的多个单选按钮分成多个组 （ C）当在名称为 Drive1的驱动器列表框中选取不同的驱动器时，系统将执行事件过程 Drive1_Click （ D）当一个复选框被选中时，它的 Value属性的值是 1
2、3 在窗体上画 2个名称分别为 Text1和 Text2的文本框，然后编写如下事件过程： Private Sub Form_Load() Show Text1.Text = “China Beijing“ Text1.SetFocus End Sub Private Sub Text1_LostFocus() Text1.SelText = “Tianjin“ End Sub 运行程序，在 Text1中 用鼠标选中文本： Beijing，然后单击 Text2，则 Text1中的内容为 （ A） China Beijing （ B） China Tianjin （ C） China （ D） B
3、eijing 4 对于图片框和图像框，以下描述中正确的是 （ A）二者都可以设置 AutoSize属性，以使装入的图形能自动改变大小 （ B）二者都可以设置 Stretch属性，使得控件能根据图形的实际大小自动调整 （ C）如果把图片框的 AutoSize属性设置为 False，则只有在装入图元文件（ *.wmf）时，图形才能自动调整大小 以适应图片框的尺寸 （ D）当图像框的 Stretch属性为 True时，将自动放大或缩小图像框中的图形以与图像框的大小相适应 5 下面关于水平滚动条的 Max， Min属性的叙述中错误的是 （ A） Max的值必须大于 Min的值 （ B） Max的值和
4、Min的值都是整数 （ C）滚动框在最右边时， Value属性的值等于 Max的值 （ D） Max的值可以大于 Min的值 6 某二叉树共有 13个结点，其中有 4个度为 1的结点，则叶子结点数为 （ A） Private Type Student sno As String * 10 sn As String * 20 End Student （ B） Private Type Student sno As String * 10 sn As String * 20 End Type （ C） Public Type Student sno As String * 10 sn As Str
5、ing * 20 End Type Student （ D） Public Typedef Student sno As String * 10 sn As String * 20 End Type 7 下列各语句中，正确的是 （ A） Dim x As Variant=Array(1,2,3,4,5) （ B） Dim x() As Integer : x=Array(1,2,3,4,5) （ C） Dim x As Variant : x=Array (1,“abc“,2,3,4) （ D） Dim x As Integer : x=Array(1,2,3,4,5) 8 以下关于变量的叙述
6、中，错误的是 （ A）在过程中用 Dim或 Static语句声明的变量是局部变量 （ B）局部变量的作用域是声明它的过程 （ C）在过程中用 Static语句声明的变量是静态局部变量 （ D）任何局部变量在声明它的过程执行完毕后即被释放 9 下面关于通用对话框的叙述中错误的是 （ A）通用对话框可以用来显示一个字体对话框 （ B）用文件对话框可以打开一个数据文件 （ C）文件对话框只用来获得文件名和路径，不能打开任何文件 （ D）利用颜色对话框 可以获得一个颜色值 10 把一个名称为 mnuStyle的菜单项设置为不可用的语句是 （ A） mnuStyle.Checked=False （ B）
7、 mnuStyle.Enabled=False （ C） mnuStyle.Visible=False （ D） mnuStyle.Caption=False 11 按下键盘上的 F1功能键将产生的事件是 （ A） KeyDown （ B） KeyPress （ C） KeyF1 （ D） KeyCode 12 以下程序段中，执行结果与其他 3个选项不同的是 （ A） Dim y As Integer y = 11 Select Case y Case 15 To 5 Print “Executed“ End Select （ B） Dim y As Integer y = 10 Select
8、 Case y Case Is 10, Is 15, 1, 5 To 8 Print “ Executed “ End Select （ D） Dim y As Integer y = 10 Select Case y Case 1, 3, Is 6 Print “ Executed “ End Select 13 有如下程序代码： Private Sub Form_Click() Dim i As Integer, n As Integer For i = 0 To 30 i = i + 3 n = n + 1 If i 10 Then Exit For Next i Print n End
9、 Sub 运行程序，单击窗体，输出结果是 （ A） 2 （ B） 3 （ C） 4 （ D） 5 14 有下面的函数过程： Private Function fun(str As String, ch As String) As Integer n = 0 For k = 1 To Len(str) If Mid(str, k, 1) = ch Then n = n + 1 End If Next k fun = n End Function 此函数返回的是 （ A）字符 ch在字符串 str中第一次出现的位置 （ B）字符 ch在字符串 str中出现的次数 （ C）字符 ch在字符串 str
10、中最后一次出现的位置 （ D）以上 都是错误的 15 设窗体上有一个名称为 Option1的单选按钮数组（其下标从 0开始），共有 4个单选按钮，并有下面事件过程： Private Sub Option1_Click(Index As Integer) n = Index If Index = “A“ And ch n 2 Then Print s b End Sub Private Sub mysub(ByRef x As Integer, y As Integer) x = x + 5 y = y * 2 End Sub 以下叙述中正确的是 （ A）针对过程调用语句 Call mysub(
11、a, b)来说，实参 a和形参 x间的参数传递方式为传值 （ B）程序运行时，单击 Command1，在窗体上的输出结果为 10 20 （ C） 当调用 mysub过程时，在过程中对形参 y值的改变不影响其对应实参的值 （ D）上述程序的执行顺序是：执行 Command1_Click过程后，再执行 mysub过程 24 下列叙述中正确的是 （ A）循环队列是顺序存储结构 （ B）循环队列是链式存储结构 （ C）循环队列是非线性结构 （ D）循环队列的插入运算不会发生溢出现象 25 下列叙述中正确的是 （ A）所有数据结构必须有根结点 （ B）所有数据结构必须有终端结点（即叶子结点） （ C）只
12、有一个根结点，且只有一个叶子结点的数据结构一定是线性结构 （ D）没有根结点或没有叶子结点的数据结构一定是非线性结构 26 下列关于算法的描述中错误的是 （ A）算法强调动态的执行过程，不同于静态的计算公式 （ B）算法必须能在有限个步骤之后终止 （ C）算法设计必须考虑算法的复杂度 （ D）算法的优劣取决于运行算法程序的环境 27 在线性表的顺序存储结构中，其存储空间连续，各个元素所占的字节数 （ A）相同，元素的存储顺序与逻辑顺序一致 （ B）相同，但其元素的存储顺序可以与逻辑顺序不一致 （ C）不同，但元素的存储顺序与逻辑顺序一致 （ D）不同，且其 元素的存储顺序可以与逻辑顺序不一致
13、28 下面不属于软件需求分析阶段工作的是 （ A）需求获取 （ B）需求计划 （ C）需求分析 （ D）需求评审 29 下面不属于黑盒测试方法的是 （ A）边界值分析法 （ B）基本路径测试 （ C）等价类划分法 （ D）错误推测法 30 在数据库系统中，数据模型包括概念模型、逻辑模型和 （ A）物理模型 （ B）空间模型 （ C）时间模型 （ D）数据模型 31 若实体 A和 B是一对一的联系，实体 B和 C是多对一的联系，则实体 A和 C的联系是 （ A）多对一 （ B）一对多 （ C）一对一 （ D）多对多 32 某二叉树中共有 935个结点，其中叶子结点有 435个，则该二叉树中度为
14、2的结点个数为 （ A） 64 （ B） 66 （ C） 436 （ D） 434 33 表达式 Int(5.3)+Int(-5.8) Fix(5.3)+Fix(-5.8)的值是 （ A） True （ B） False （ C） 1 （ D） 0 34 下面肯定是一个整型变量的是 （ A） x% （ B） Int_x （ C） x$ （ D） x# 35 设变量 MyName（字符串型）， Age（整型）分别表示一个人的姓名和年龄，要设计一个逻辑表达式，当该人姓张，并且超过 60岁，则表达式的值为 True，下面正确的是 （ A） Right(MyName, 1) = “张 “ And Ag
15、e 60 （ B） Left(MyName, Len(“张 “) = “张 “ And Age 60 （ C） Left(MyName, Len(“张 “) = “张 “ Or Age 60 （ D） MyName = “张 “ And Age 60 36 下列说法中正确的是 （ A）引用属性的一般格式为：对象名 _属性名称 （ B）对象是有属性和行为方式的实体 （ C）属性是对象的特性，所有对象都具有相同的属性 （ D）对象的属性只能在属性窗口中设置 37 下列叙述中正确的是 （ A）不同的对象可以具有相同名称的方法 （ B） abcd是一个合法的字符串常量 （ C）语句 Dim a(1 T
16、o 6, -2 To 4) As Integer定义数组时出错 （ D）向随机文件中写数据时，既可用 Write #语句也可用 Put #语句 38 对于复选框和单选钮，下列叙述中正确的是 （ A）复选框和单选钮都只能在多个 选项中选定一项 （ B）复选框和单选钮都有 Value属性，取值均为 True或 False （ C）单选钮和复选框都可以响应双击（ DblClick）事件 （ D）为了使复选框禁用，应将其 Enabled属性设置为 False 39 程序运行时，当用鼠标点击滚动条两端的箭头按钮时，不会产生的结果是 （ A）改变 Value属性的值 （ B）激活 Scroll事件 （ C
17、）激活 Change事件 （ D）滚动框移动 40 下面说法中错误的是 （ A）为使名称为 Timer1的计时器控件能每隔 2秒触发一次 Timer事件， 则在程序代码中应写的语句是 Timer1.Interval = 2000 （ B）可以将计时器控件的 Enabled属性设置为 False，使其不能触发 Timer事件 （ C）为使显示到图像框中的图像能根据图像框的大小自动缩放，则应将图像框的Stretch属性值设置为 True （ D）在设计阶段，把已复制到剪贴板上的图像粘贴到图片框或图像框中，可以将该图片装入图片框或图像框 二、基本操作题 41 (1)在名称为 Form1的窗体上添加一
18、个标签控件，名称为 L1，标题为 “请确认 ”；再添加两个命令按钮，名称分别为 C1、 C2，标题分别为 “是 ”、 “否 ”，高均为300，宽均为 800，如图所示。 请在属性窗口中设置适当属性满足以下要求： 窗体标题为 “确认 ”，窗体标题栏上不显示最小化和最大化按钮。 在任何情况下，按 Esc键都相当于单击 “否 ”按钮；按回车键都相当于单击 “是 ”按钮。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1 vbp，窗体文件名保存为 sjt1 frm。 (2)在名称为 Form1的窗体上添加一个文本框，名称为 Text1，其宽度为 1000；再添加一个滚动条，名称为 HS1。
19、其刻度值的范围是 10002000。请编写滚动条的 Change事件过程，程序运行后，如果移动滚动框，则可按照滚动条的刻度值改变文本框的宽度。程序运行时的窗体如图所示。程序中不能使用任何变量，事件过程中只能写一条语句。注意：保存时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。 三、简单应用题 42 (1)在考生文件夹下有一个工程文件 sjt3 vbp。窗体上有个钟表图案，其中代表指针的直线的名称是 Line1，还有一个名称为 Label1的标签和其他一些控件 (如图 1所示 )。在程序运行时，若 用鼠标右键单击圆的边线，则指针恢复到起始位置 (
20、如图1所示 )；若用鼠标左键单击圆的边线，则指针指向鼠标单击的位置 (如图 2所示 )；若鼠标左键或右键单击其他位置，则在标签上输出 “鼠标位置不对 ”。 文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。程序中的 oncircle函数的作用是判断鼠标单击的位置是否在圆的边线上 (判断结果略有误差 )，是则返回 True，否则返回 False。符号常量 x0、 y0)是圆心距窗体左上角的距离；符号常量 radius是圆的半径。 注意：不能修改程 序中的其他部分和各控件的属性。最后将修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sj
21、t4 vbp，窗体如图所示。其功能是单击 “输入数据 ”按钮，则可输入一个整数 n(要求： 8n12)；单击 “计算 ”按钮，则计算 1!+2!+3!+n! 的值，并将计算结果显示在文本框中；单击 “存盘 ”按钮，则把文本框中的结果保存到考生文件夹下的out4 dat文件中。 文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容，并编写 “计算 ”按钮的 Click事件过程。 注意 ：不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用“存盘 ”按钮存储计算结果，否则无成绩。最后将修改后的文件按原文件名存盘。四、综合应用题 43 在考生文件夹
22、下有一个工程文件 sjt5 vbp，窗体上有三个文本框，其名称分别为 Text1、 Text2和 Text3，其中 Text1、 Text2可多行显示。请添加三个命令按钮，名称分别为 Cmdl、 Cmd2和 Cmd3，标题分别为 “产生数组 ”、 “统计 ”和 “退出 ”，如图所示。程序功能如下： 单击 “产生数组 ”按钮时，随机生成 20个 0 10之间 (不含 0和 10)的数值，并将其保存到一维数组 a中，同时也将这 20个数值在 Text1文本框内显示。 单击 “统计 ”按钮时，统计出数组 a中出现频率最高的数值及其出现的次数，并将出现频率最高的数值在 Text2文本框内显示、出现频率
23、最高的次数在 Text3文本框内显示。 单击 “退出 ”按钮时，结束程序运行。 注意：不得修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。国家二级（ VB）机试模拟试卷 62答案与解析 一、选择题 1 【正确答案】 B 【试题解析】 框架可以将其他控件摆放到框架中，但不 可以通过 Print方法输出文本。故选项 A错误；图像框和图片框都可以承载其他控件，其不同之处在于，图片框使用较多的方法，如 Cls（清除）和 Print(输出 )方法。故选项 C错误；和文本框、命令按钮这一类控件不同的是，对话框控件不是一个具体的控件。故选项 D错误；本题正确答案为 B。 2 【正确答案
24、】 D 【试题解析】 ListCount返回列表框中项目数量的数值。 List 属性用来列出或设置列表项的内容，可以通过 下标访问列表框中的内容（下标值从 0到 ListCount-1）。故获取列表框 List1中最后一个列表项内容的表达式是 :List1.List(List1.ListCount-1),选项 A错误； Shape设置形状控件中所显示的图形形状， Shape控件不可以将同一个窗体上的多个单选按钮分成多个组，故选项 B错误；驱动器列表框的特有属性只有一个 Drive属性，用来设置或返回所选择的驱动器名，在每次重新设置驱动器列表框的 Drive属性时，都将触发 Change事件，故
25、选项 C错误；本题正确答案为 D选项。 3 【正确答案】 B 【试题解析】 Text1.Tex=“China Beijing“，用来设置文本框中显示的内容，窗体加载时本文框中显示的内容为 China Beijing。 Text1.SetFocus，将光标从其他位置移到 Text1文本框中。 Text1.SelText = “Tianjin“，用来设置当 Text1的文本框中的部分或全部选中时，被选中内容将会被替代为 Tianjin。为便于记忆， SelText可理解成 Select Text。故本题正确答案为 B选项。 4 【正确答案】 D 【试题解析】 图像框不 可设置 AutoSize属性
26、， A选项错误；图像框才可设置Stretch 属性，用来自动调整图像内容的大小， B 选项错误；图片框的 AutoSize属性设置为 False，图片框的大小保持不变，图片超出图片框的部分将被截掉，选项C错误。故正确答案为选项 D。 5 【正确答案】 A 【试题解析】 Max属性设置或返回滚动条所能代表的最大值； Min设置或返回滚动条所能代表的最小值； Value属性设置或返回当前滚动条所代表的值。 Max和Min 可能相等，选项 A错误。故正确答案为选项 A。 6 【正确答案】 B 【试题解析】 用户定义数据类型可以用 Type语句来定义。格式是： Type 数据类型名 数据类型元素名 A
27、S 类型名 数据类型元素名 AS 类型名 End Type 。选项中符合上面格式的，只有 B 项，其余项都错误。故正确答案为 B选项。 7 【正确答案】 C 【试题解析】 在 Visual Basic中允许定义默认数组。所谓默认数组，就是数据类型为 Variant(默认 )的数组，对于默认数组可以存放不同类型的数据，选项 A赋值方式错误，选项 C正确。 Array函数用来为数组元素赋值，即把某个数据集读入某 个数组。其格式为：数组变量名 =Array（数组元素值）。注意：数组变量不能是具体的数据类型，只能是变体（ Variant）类型。选项 B、 D均错误。故正确答案为 C选项。 8 【正确答
28、案】 D 【试题解析】 不是任何局部变量都是在声明它的过程执行完毕后即被释放，如用Static声明的局部变量在程序执行完毕后会保留程序执行结果，直到彻底结束程序。故正确答案为 D选项。 9 【正确答案】 B 【试题解析】 利用通用对话框建立打开文件对话框时，并没有打开文件，故选项B 错误。选项 A、 C、 D项正确。故本题 正确答案为 B。 10 【正确答案】 B 【试题解析】 Checked 属性用于设置菜单命令控件的复选标记； Enabled 用于设置菜单命令控件的 Enabled 属性，为 True时表示可用； Visible属性确定运行时该菜单是否显示； Caption 用于输入菜单标
29、题或菜单命令标题。故正确答案为选项B。 11 【正确答案】 A 【试题解析】 KeyPress 事件带有一个参数， KeyASCII As Integer，它是一个预定义变量，即是所按键的 ASCII码。 KeyDown 和 KeyUp事件都有参数KeyCode，是所按键的 ASCII码值。 F1 功能键所对应的 ASCII 码值触发的是KeyDown 事件。故正确答案为选项 A。 12 【正确答案】 D 【试题解析】 选项 A， Case 15 To 5 相当于 Case 15，注意， 15 To 5 而不是 5 To 15。 Case 5 To 15， y的值在 515之间，输出 Exec
30、uted。而 Case 15 To 5 没有任何输出；选项 B， Is关系表达式当 Is10或 Is15,1,5 To 8， 10与值域 Is15， 1， 5 To 8均不等价，故没有任何输出；选项 D， Case 1,3,Is6，满足值域中的 Is6，故输出Executed；故本题正确答案为 D。 13 【正确答案】 B 【试题解析】 本题 For循环的执行顺序为： i值加 3， n 值加 1； 判断 if 中条件 i 10，满足则退出 For循环； 不满足 if条件，则 i值加步长，继续循环，本题默认步长为 1，第 1次循环 i= 0，执行循环后 i=3， n = 1，不满足 if 条件；
31、 i加步长 1， i=4，执行循环后 i=7， n=2，不 满足 if 条件； i加步长 1， i=8，执行循环后i=11， n=3，满足 if条件跳出循环。故正确答案为选项 B。 14 【正确答案】 B 【试题解析】 字符串函数 Len(str)返回字符串 str长度； Mid(str, k, 1)表示从第 K个字符开始向后截取一个字符，并与字符 ch 进行比较，若表达式返回 True，则 n的值加 1，题目中函数返回 n的值为字符 ch在字符串 str中出现的次数。故正确答案为选项 B。 15 【正确答案】 B 【试题解析】 控件数组是指由一组相同类型的控件组成。数组中的每一个控件都有唯一
32、的索引号（ Index）。 If 条件 Then 部分，如果选择的条件为真，则执行then部分；通过 Index来显示单选按钮数组中的标题，当 index=0 时， 0=“A“ And ch0结果为 False。故正确答案为 B选项。 34 【正确答案】 A 【试题解析】 选项 B中， x也可能是字符类型；选项 C 中， $是字符串类型符；选项 D中， #是双精度浮点数类型符。故正确答案为选项 A。 35 【正确答案】 B 【试题解 析】 Left（ s， n）是从字符串的左端起截取 n个字符； Right（ s， n）是从字符串的右端起截取 n 个字符；姓名是姓在左，名在右，故 A选项错误。
33、将 “张“赋值给变量 MyName，不符合题目要求，故 D选项错误。函数 Len(s)返回字符串 s的长度，即所包含的字符的个数。 Left(MyName, Len(“张 “) = “张 “ And Age 60表示当该人姓张，并且超过 60岁，表达式的值为 True，故正确答案为 B选项。 36 【正确答案】 B 【试题解析】 引用属性的格式为：对象名 .属性名称， A选项 错误。不同的对象具有不同的属性， C选项错误。对象的属性既可通过属性窗口设置也可通过程序代码来设置， D选项错误。故正确答案为 B 选项。 37 【正确答案】 A 【试题解析】 字符串常量由字符组成，可以是双引号和回车符
34、以外的任何 ASCII字符，选项 B 中应该用一对双引号括起来。选项 C所定义的数组正确， Write#语句的功能是向顺序文件写入记录， Put#语句的功能是把 “变量 “的内容写入由 “文件“号所指定的磁盘文件中，故本题正确选项为 A。 38 【正确答案】 D 【试题解析】 复选框，可以在多个选项 中选定多个选项，故选项 A错误。单选按钮和复选框都有 Value值，取值不同，单选按钮取值为布尔型，而复选框的取值为数值型，故答案 B错误。单选按钮和复选框的主要事件是 “单击事件 “，而不是 “双击事件 “，故选项 C错误。当将复选框的 Enabled 属性设置为 False时，禁用复选框。故本
35、题正确答案为 D选项。 39 【正确答案】 B 【试题解析】 对滚动条的操作一般就是移动，滚动条事件有 Scroll事件和Change事件，故选项 A、 C和 D均正确；本题正确答案为 B。 40 【正确答案】 D 【试题解析】 图形文件的装入有两种方式：一是在属性窗口中装入，二是在程序代码中用 LoadPicture 函数装入，复制到粘贴板上的图像不能装入图片框或图像框。故正确答案为选项 D。 二、基本操作题 41 【正确答案】 (1)【操作步骤】步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 3.87 3.89。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)
36、【操作步骤】步骤 1：建立界面，并设置控件的属性。程序中涉及控件及属性见表 3.90。步骤 2：编写程序代码。参考答案 Private Sub HS1_Change() Text1.Width = HS1.ValueEnd Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、简单应用题 42 【正确答案】 (1)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Const y0& = 1110, x0& = 1100, radius& = 750 Private Function oncircle(X As Single, Y As Sin
37、gle) As Boolean precision = 55000 If Abs(X - x0) * (X - x0) + (y0 - Y) * (y0 - Y) - radius * radius) ? Or n 8 Then MsgBox (“数据错误，请重新输入 “) Command2.Enabled = False Command3.Enabled = False Else Command2.Enabled = True Command3.Enabled = True End If End Sub Private Sub Command2_Click() Dim s As Long,
38、k As Integer 考生应编写的程序 End Sub Function f(n As Integer) As Long s = ? For k = 2 To n s = s * k Next f = ? End Function Private Sub Command3_Click() Open App.Path & “out4.dat“ For Output As #1 Print #1, n, Text1 Close #1 End Sub 程序结束 参考答案 第 1个？处填入： 12 第 2个？处填入： 1 第 3个？处填入： s 考生应编写的程序 s = 0 For k = 1 To n s = s + f(k) Next Text1 = s 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 四、综合应用题
