1、国家二级（ VB）机试模拟试卷 92及答案与解析 一、选择题 1 下列叙述中正确的是 ( )。 （ A）有一个以上根结点的数据结构不一定是非线性结构 （ B）只有一个根结点的数据结构不一定是线性结构 （ C）循环链表是非线性结构 （ D）双向链表是非线性结构 2 下列叙述中正确的是 ( )。 （ A）算法就是程序 （ B）设计算法时只需要考虑数据结构的设计 （ C）设计算法时只需要考虑结果的可靠性 （ D）以上三种说法都不对 3 一棵二叉树共有 25个结点，其中 5个是叶子结点，则度为 1的结点数为( )。 （ A） 16 （ B） 10 （ C） 6 （ D） 4 4 在下列模式中，能够给出
2、数据库物理存储结构与物理存取方法的是 ( )。 （ A）外模式 （ B）内模式 （ C）概念模式 （ D）逻辑模式 5 软件生命周期是指 ( )。 （ A）软件产品从提出、实现、使用维护到停止使用退役的过程 （ B）软件从需求分析、设计、实现到测试完成的过程 （ C）软件的开发过程 （ D）软件的运行维护过程 6 面向对象方法中，继承是指 ( )。 （ A）一组对象所具有的相似性质 （ B）一个对象具有另一个对 象的性质 （ C）各对象之间的共同性质 （ D）类之间共享属性和操作的机制 7 负责数据库中查询操作的数据库语言是 ( )。 （ A）数据定义语言 （ B）数据管理语言 （ C）数据操
3、纵语言 （ D）数据控制语言 8 一个教师可讲授多门课程，一门课程可由多个教师讲授。则实体教师和课程间的联系是 ( )。 （ A） 1 1联系 （ B） 1 m联系 （ C） m 1联系 （ D） m n联系 9 有三个关系 R， S和 T如下：则由关系 R和 S得到关系 T的操作是 ( )。（ A）自然连接 （ B）交 （ C）投 影 （ D）并 10 下列选项中属于面向对象设计方法主要特征的是 ( )。 （ A）继承 （ B）自顶向下 （ C）模块化 （ D）逐步求精 11 以下变量名中合法的是 ( )。 （ A） x 2 （ B） 12abc （ C） sum_total （ D） pr
4、int 12 已知 a 6， b 15， c 23，则语句 Print Sgn(a b Mod 6 ca)& a b 的输出结果为 ( )。 （ A） 6 （ B） 16 （ C） 31 （ D） 121 13 以下叙述中错误的是 ( )。 （ A） Visual Basic 是事件驱动型可视化编程工具 （ B） Visual Basic应用程序不具有明显的开始和结束语句 （ C） Visual Basic工具箱中的所有控件都具有宽度 (Width)和高度 (Height)属性 （ D） Visual Basic中控件的某些属性只能在运行时设置 14 设 a 2， b 3， c 4， d 5，
5、 下列表达式的值是 ( )。 a b And c =d Or 2*a c （ A） True （ B） False （ C） 1 （ D） 1 15 如下关于变体类型变量的叙述中 ，错误的是 ( )。 （ A）变体类型数组中只能存放同类型数据 （ B）使用 Array初始化的数组变量，必须是 Variant类型 （ C）没有声明而直接使用的变量其默认类型均是 Variant （ D）在同一程序中，变体类型的变量可以被多次赋以不同类型的数据 16 满足下列条件之一的年份是闰年： 1)年份能被 4整除但不能被 100整除 2)年份能被 400整除 若 y代表年份，下面判断闰年的正确表达式是 ( )
6、。 （ A） y Mod 4 And y Mod 100 Or y Mod 400 （ B） y Mod 4 0 Or y Mod 1000 And(y Mod 4 0 Or y Mod 400 0) （ D） y Mod 4 0 And y Mod 10050， Int(a3)， a Mod 2) 当 a 52时， x的值是 ( )。 （ A） 0 （ B） 1 （ C） 17 （ D） 18 18 设有如下数组定义语句： Dim a( 1 To 4， 3)As Integer 以下叙述中正确的是( )。 （ A） a数组有 18个数组元素 （ B） a数组有 20个数组元素 （ C） a数
7、组有 24个数组元素 （ D）语法有错 19 窗体上有 1个名称为 Text1的文本框， 1个名称为 Label1的标签。程序运行后，如果在文本框中输入信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为 ( )。 （ A） Private Sub Label1_Click() Label1.Caption Text1.Text End Sub （ B） Private Sub Label1_Change() Label1.Caption Text1.Text End Sub （ C） Private Sub Text1_Click() Label1.Caption Text1
8、.Text End Sub （ D） Private Sub Text1_Change() Label1.Caption Text1.Text End Sub 20 程序运行时，单击命令按钮，则产生的操作是 ( )。 （ A）窗体左上角移动到距屏幕左边界、上边界各 200的位置 （ B）窗体左上角移动到距屏幕右边界、上边界各 200的位置 （ C）窗体由当前位置向左、向上各移动 200 （ D）窗体由当前位置向右、向下各移动 200 21 在窗体上画两个文本框，其名称分别为 Text1和 Text2，然后编写如下程序： Private Sub Form_Load() Show Text1.Te
9、xt “ 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） Beijing （ D） ChinaB 22 在窗体上画一个水平滚动条，其属性值满足 Min10 Then Exit For Next Text1.Text Str(n) End Sub 程序运行后，单
10、击命令按钮，在文本框中显示的值是 ( )。 （ A） 2 （ B） 3 （ C） 4 （ D） 5 34 设有如下的程序段： n 0 For i 1 To 3 For j 1 To i For k j To 3 n n 1 Next k Next j Next i 执行上面的程序段后， n的值为 ( )。 （ A） 3 （ B） 21 （ C） 9 （ D） 14 35 命令按钮 Command1的单击事件过程如下： Private Sub Command1_Click() x 10 Print f(x) End Sub Private Function f(y As Integer) f y
11、 * y End Function 运行上述程序，如下叙述中正确的是 ( )。 （ A）程序运行出错， x变量的类型与函数参数的类型不符 （ B）在窗体上显示 100 （ C）函数定义错，函数名 f不能又作为变量 名 （ D）在窗体上显示 10 36 窗体上有 1个名称为 Text1、内容为空的文本框。编写如下事件过程： Private Sub Text1_KeyUp(KeyCode As Integer， Shift As Integer) Print Text1.Text； End Sub 运行程序，并在文本框中输入 “123“，则在窗体上的输出结果为 ( )。 （ A） 123 （ B）
12、 112 （ C） 12123 （ D） 112123 37 设有以下程序： Private Sub Form_Click() x 50 For i 1 To 4 y InputBox(“请输入一个整数 “) y Val(y) If y Mod 5 0 Then a a y x y Else a a x End If Next i Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入 15、 24、 35、 46，输出结果为( )。 （ A） 100 （ B） 50 （ C） 120 （ D） 70 38 设在工程文件中有一个标准模块 ，其中定义了如下记录类型： Typ
13、e Books Name As String * 10 TelNum As String * 20 End Type 在窗体上画一个名为 Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件 Person.txt中写入一条 Books类型的记录。下列能够完成该操作的事件过程是 ( )。 （ A） Private Sub Command1_Click() Dim B As Books Open “Person.txt“ For Output As #1 B.Name InputBox(“输入姓名 “) B.TelNum InputBox(“输入电话号码 “)
14、Write #1， B.Name， B.TelNum Close #1 End Sub （ B） Private Sub Command1_Click() Dim B As Books Open “Person.txt“ For Input As #1 B.Name InputBox(“输入姓名 “) B.TelNum InputBox(“输入电话号码 “) Print #1， B.Name， B.TelNum Close #1 End Sub （ C） Private Sub Command1_Click() Dim B As Books Open “Person.txt“ For Outp
15、ut As #1 B.Name InputBox(“输入姓名 “) B.TelNum InputBox(“输入电话号码 “) Write #1， B Close #1 End Sub （ D） Private Sub Command1_Click() Open “Person.txt“ For Input As #1 Name InputBox(“输入姓名 “) TelNum InputBox(“输入电话号码 “) Print #1， Name， TelNum Close #1 End Sub 39 设工程中有 2个窗体： Form1、 Form2， Form1为启动窗体。 Form2中有菜单
16、，其结构如表。要求在程序运行时，在 Form1的文本框 Text1中输入口令并按回车键(回车键的 ASCII码为 13)后，隐藏 Form1，显示 Form2。若口令为 “Teacher“，所有菜单都可见；否则看不到 “成绩录入 “菜单项。为此，某人在 Form1窗体文件中编写如下程序： Private Sub Text11_KeyPress(KeyAscii As Integer) If KeyAscii 13 Then If Text1.Text “Teacher“Then Form2.input.Visible True Else Form2.input.Visible False En
17、d If End If Form1.Hide Form2.ShowEnd Sub程序运行时发现刚输入口令时就隐藏了 Form1，显示 了Form2，程序需要修改。下面修改方案中正确的是 ( )。 （ A）把 Form1中 Text1文本框及相关程序放到 Form2窗体中 （ B）把 Form1.Hide、 Form2.Show两行移到 2个 End If之间 （ C）把 If KeyAscii 13 Then 改为 If KeyAscii “Teacher“ Then （ D）把 2个 Form2.input.Visible 中的 “Form2.“删去 40 在设窗体上有一个通用对话框控件 C
18、D1，希望在执行下面程序时，打开如图所示的文件对话框： Private Sub Command1_Click() CD1.DialogTitle “打开文件 “ CD1.InitDir “C： “ CD1.Filter “所有文件 |*.*|Word文档 |*.doc|文本文件 |*.txt“ CD1.FileName “ CD1.Action 1 If CD1.FileName “Then Print“未打开文件 “ Else Print“要打开文件 “& CD1.FileName End IfEnd Sub 但实际显示的对话框中列出了 C： 下的所有文件 和文件夹， “文件类型 “一栏中显
19、示的是 “所有文件 “。下面的修改方案中正确的是 ( )。 （ A）把 CD1.Action 1 改为 CD1.Action 2 （ B）把 “CD1.Filter “后面字符串中的 “所有文件 “改为 “文本文件 “ （ C）在语句 CD1.Action 1的前面添加： CD1.FilterIndex 3 （ D）把 CD1.FileName “ 改为 CD1.FileName “文本文件 “ 二、基本操作题 41 (1)在名称为 Form1的窗体上添加两个名称分别为 Text1和 Text2的文 本框，它们的高、宽分别为 300、 2400和 1200、 2400。窗体的标题为 “窗口 ”
20、。请通过属性窗口没置适 Text2可以显示多行文本，并且有垂直和水平两个滚动条； 程序运行时在 Text1中显示输入的字符为 “*”。 程序运行后的窗体如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。 (2)在名称为 Form1的窗体上添加一个名称为 Image1的图像框，其高、宽分别为 1900、1700，通过属性窗口把考生文件夹下的图像文件 pic1 bmp载入 图像框；再画两个命令按钮控件，名称分别为 C1、 C2，标题分别为 “放大 ”、 “缩小 ”，如图所示。 要求： 请编写适当的事件过程，程序运行后。如果单击 “
21、放大 ”按钮，则将图像框的高度、宽度均增加 100；单击 “缩小 ”按钮，则将图像框的高度、宽度均减少100，要求程序中不得使用任何变量。 通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。 汴意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。三、简单应用题 42 (1)考生文件夹中有工程文件 sjt3 vbp。窗体上有一个名称为 Iabel1、标题为 “标签控件 ”的标签；有一个名称为 Command1、标题为 “命令按钮 ”的命令按钮。单击上述两控件中的任一控件，则在标签 Label2中显示所单击
22、控件的标题内容 (标题内容前添加 “单击 ”二字 )，下图是单击命令按钮后的窗体外观。请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，其窗体上有一个由八个图片框控件组成 的控件数组、两个命令按钮及一个计时器控件，如图 1所示。 程序功能： 将计时器控件设置为每隔 0 5秒触发一次 Timer事件。运行程序时，只显示下标为 0的图片框控件数组冗素，其他图片框均不可见。单击 “开始 ”按钮，数组中的每个图片框白左至右依次显示，时间间隔为 0 5秒，产生 “月亮 ”
23、从左向右移动的效果，如图 2所示。，月亮移到右端后再从左端莆新开始。单击 “停止 ”按钮， “月亮 ”停止移动。 要求：按照题日要求设置控件属性，去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程序的其他部分和控件属性，最后将修改 后的文件按原文件名进行存盘。 四、综合应用题 43 在考生文件央下有一个工程文件 sjt5 vbp，包含了所有控件和部分程序。当程序运行时，单击 “打开文件 ”按钮，则弹出 “打开 ”对话框，默认目录为考生目录，默认文件类型为 “文本文件 ”。选中 in5 txt文件 (如图 1所示 )，单击 “打开 ”按钮。则把文件中的内容读入并显示在文本框 (
24、Text1)中；单击 “修改内容 ”按钮，则将 Text1中的大写字母 “E”、 “N”、 “T”改为小写，把小写字母 “e”、 “n”、 “t”改为大写；单击“保存文件 ”按钮，则弹出 “另存为 ”对话框， 默认文件类型为 “文本文件 ”，默认文什央为考生文件夹，默认义件为 “out5 txt”(如图 2所示 )，单击 “保仔 ”按钮，则将Text1中修改后的内容存到 out5 txt文什中。 窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符，把程序中的 ?改为正确的内容，并编写“修改内容 ”按钮的 Click事件过程。 注意：考生不得修改已经存在的程序。必须把Text1中修
25、改后的内容用 “保存文件 ”按钮存储结果，否则无成绩。最后。按照原文件名将程序存盘。国家二级（ VB）机试模拟试卷 92答案与解析 一、选择题 1 【正确答案】 B 【试题解析】 线性结构应满足：有且只有一个根结点与每个结点最多有一个前件，也最多有一个后件，所以 B 正确。所以有一个以上根结点的数据结构一定是非线性结构，所以 A错误。循环链表和双向链表都是线性结构的数据结构。 2 【正确答案】 D 【试题解析】 算法是指解题方案的准确而完整的描述，算法不等于程序，也不等于计算方法，所以 A错误。设计算法时不仅要考虑对数据对象的运算和操作，还要考虑算法的控制结构。 3 【正确答案】 A 【试题解
26、析】 根据二叉树的性 质 3：在任意一棵二叉树中，度为 0的叶子结点总是比度为 2的结点多一个，所以本题中度为 2的结点是 5 1 4个，所以度为 1的结点的个数是 25 5 4 16个。 4 【正确答案】 B 【试题解析】 数据库系统的三级模式是概念模式、外模式和内模式。概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户公共数据视图。外模式也称子模式或用户模式，它是用户的数据视图，给出了每个用户的局部数据描述。内模式又称物理模式，它给出了数据库物理存储结构与物理存取方法，所以选择B。 5 【正确答案】 A 【试题解 析】 通常，将软件产品从提出、实现、使用维护到停止使用退役的过程称为软
27、件生命周期。也就是说，软件产品从考虑其概念开始，到该软件产品不能使用为止的整个时期都属于软件生命周期。 6 【正确答案】 D 【试题解析】 继承是面向对象的方法的一个主要特征，是使用已有的类的定义作为基础建立新类的定义技术。广义的说，继承是指能够直接获得已有的性质和特征，而不必重复定义它们，所以说继承是指类之间共享属性和操作的机制。 7 【正确答案】 C 【试题解析】 数据定义语言：负责数据的模式定义与数据的物理存取构 建；数据操纵语言：负责数据的操纵，包括查询及增、删、改等操作；数据控制语言：负责数据完整性、安全性的定义与检查以及并发控制、故障恢复等功能。 8 【正确答案】 D 【试题解析】
28、 因为一个教师可讲授多门课程，而一门课程又能由多个老师讲授，所以它们之间是多对多的关系，可以表示为 m n。 9 【正确答案】 A 【试题解析】 自然连接是一种特殊的等值连接，它要求两个关系中进行比较的分量必须是相同的属性组，并且在结果中把重复的属性列去掉，所以根据 T 中元组可以判断 R和 S做的是自然连接操作。 10 【正确答案】 A 【试题解析】 面向对象基本方法的基本概念有对象、类和实例、消息、继承与多态性，所以选择 A。 11 【正确答案】 C 【试题解析】 根据 VB 中变量名的命名规则，变量 x 2中有减号，不合法；变量 12abc是以数字开头，不合法；变量 print是 VB
29、的保留字，不能作变量名，也不合法。 sum_total 是符合命名规则，是合法的。故选 C。 12 【正确答案】 D 【试题解析】 Print语句表达式中按运算符的优先级从高到低： Mod( (& 顺序计算。计算过程： Sgn(6 15 Mod 6 23 1)& 6 15(Sgn(6 3 5)& 21(Sgn(4)& 21(1& 21(“121“。故选项 D正确。 说明：字符串连接符 & 两边的操作数不管是字符型还是数值型，系统首先要将其转换为字符型，然后进行连接。 13 【正确答案】 C 【试题解析】 VB 工具箱中不是所有的控件都具有宽度和高度属性，比如定时器控件 Timer、直线控件 L
30、ine就没有。故 C选项错误。 14 【正确答案】 B 【试题解析】 根据运算符的优先级顺序，先计算算术运算符，结果是 23 And 44 ；再计算关系运算符，结果为 False And True Or False ； And 优先级高于 Or优先级，先计算 And，再计算 Or，最后结果是 False。故 B 选项正确。 15 【正确答案】 A 【试题解析】 变体型变量能够存储所有系统定义类型的数据。所以变体类型数组中可以存放相同类型或不同类型的数据。故选项 A错误。 16 【正确答案】 D 【试题解析】 根据闰年的条件，第一个条件是并且的关系，要用 And 运算符。整除用 Mod 运算符，
31、取模后为 0，说明能整除，不为 0，说明不能整除。所以第一个条件为 y Mod 4 0 And y Mod 10050， 17， 0),5250结果为 True，所以 IIF函数返 回 17，则 x值为 17，故选 C。 18 【正确答案】 C 【试题解析】 ：本题定义了二维数组地第一维的下标 -1to 4，即为 -1， 0， 1， 2，3， 4(共 6行 )，第二维下标 3，即 0to 3(0， 1， 2， 3共 4列 )， 6*4=24二维数组有24个数组元素。故选 C。 19 【正确答案】 D 【试题解析】 题意是在文本框中输入信息，会影响标签上显示的内容，所以触发的是文本框 Text1
32、 的事件，要在文本框 Text1的事件过程中写代码，因此排除 A、B 选项。又因为标签上显示的内容会随着文本框中输入信息变化， 因此要在 Text1的 Change事件过程写代码。故 D选项正确。 20 【正确答案】 A 【试题解析】 Move 方法是窗体的移动方法，其中 200,200是窗体左上角的坐标(X， Y)。坐标系是以屏幕左上角为原点，向右为 X轴正方向，向下为 Y轴正方向。所以本题中窗体左上角移动到距屏幕左边界、上边界各 200的位置。故 A选项正确。 21 【正确答案】 C 【试题解析】 程序运行后，在文本框 Text1中输入字符后，触发它的 Change事件，通过中部截取函数
33、Mid 把文本框 Text1 中的内容从第 6个字符 B开始截取后面的字符，得到 “Beijing“字符串，然后把截取的字符串在 Text2 中显示出来。故C选项正确。 22 【正确答案】 A 【试题解析】 当水平滚动条的属性值 MinMax时，如果单击滚动条右端或左端的箭头， Value属性值会增加或减少 SmallChange量；如果单击滚动块和右端箭头之间空白的地方时， Value属性值会增加 LargeChange量，反之，减少LargeChange量。 本题单击的是滚动条右端的箭头，故 Vlaue属性值应该是增加一个SmallChange量。故选 A。 23 【正确答案】 D 【试题
34、解析】 菜单项中不管是主菜单还是子菜单，单击某个菜单项，都会执行它们相应的单击事件过程。故 D选项叙述错误。 24 【正确答案】 B 【试题解析】 通用对话框是一个 ActiveX控件，不是标准控件，故 B 选项错误。 25 【正确答案】 B 【试题解析】 通用对话框的 FilterIndex 属性为 1时表示默认过滤器为第 1个文件类型，为 2时表示为第 2个文件类型。 InitDir属性值指定通用对话框的初始目录。 FileName属性表示对话框中默认的文件名。 ShowSave方法表示打开另存为对话框，执行保存文件的操作。 26 【正确答案】 B 【试题解析】 窗体的 Load 事件是把
35、窗体装入工作区的事件，即装入内存，然后窗体才显示出来，使用 Hide方法可以使窗体隐藏，但窗体仍在内存中，使用Show方法能使窗体显示出来。当窗体被移动或放大时，或者窗口移动时覆盖了一个窗体时，触发 Paint事件。双击窗体时会触发窗体的 DblClick 事件。 27 【正确答案】 D 【试题解析】 可以通过 Print方法在图片框中输出文件，图片框中的图形可以在程序运行过 程中通过载入空文件的方法清除，图片框控件可以作为父控件，即可以放置其他控件， Stretch 属性用来自动调整图片框中图形内容的大小。 28 【正确答案】 D 【试题解析】 清除列表框中的指定内容要使用 RemoveIt
36、em方法，格式为：RemoveItem(索引值 )，只要指定要清除项目的索引值就可以清除指定项目。如果要清除列表框中的全部内容可以使用 Clear方法。 29 【正确答案】 A 【试题解析】 Interval 的属性值是以毫秒计，所以是毫秒数。故选 A。 30 【正确答案】 D 【试题解析】 Mod 是求模运算符，即求余数，程序中 jMod3 的余数可能值为0,1,2,1到 15的整数中， 3、 6、 9、 12、 15这 5个数除 3的余数为 0， 1， 4， 7，10， 13这 5个数除 3余数为 1， 2， 5， 8， 11， 14这 5个数除 3余数为 2。因此 a的值为 1*5+2*
37、5=15，即选择 D正确。 31 【正确答案】 D 【试题解析】 程序应该计算的是 2的 0次方到 2的 10次方的和，程序少计算了 2的 1次方，应该先累加，再执行 a a*2，并且将 For k 2 to 10 改为 For k 1 to 10 ，这样最 后一次循环 2的 10次方的值能正确累加，然后循环结束。因此答案为D。 32 【正确答案】 B 【试题解析】 在标准模块中定义的使用 Public定义的变量是全局变量，全局变量可以在工程的每个模块、每个过程中使用。如果在过程中有与全局变量同名的过程变量则优先使用过程变量。在命令按钮事件中定义了局部变量 x，与全局变量同名，因此在此事件中使
38、用局部变量，而变量 y在此过程中没有定义，则仍使用全局变量。因此输出时 x值为 100， y值为 120。 33 【正确答案】 B 【试题解析】 程序中 For循环的结束有 两种情况，一种是循环完指定的次数，一种是达到一定的条件后直接退出循环。由于在循环体中循环变量 i的值被修改： i i 3，因此，每次循环开始时 i的取值为 0,4,8， i为 8时执行 i i 3 11， n n 1 3，这时 i的值大于 10，退出 For循环，因此 For循环执行了 3次，即 n的值为 3。所以在文本框中会显示 3。 34 【正确答案】 D 【试题解析】 程序是三层的 For循环，内层的循环次数由外一层
39、的循环变量的值决定。因此程序执行过程如下： i 1时，第二层循环执行 1次，第三层循环执行 3次， n 3 i 2时，第二层循环执行 2次，第三层循环执行 3次 2次， n 3 3 2 8 i 3时，第二层循环执行 3次，第三层循环执行 3次 2次 1次， n 8 3 2 1 14 因此答案为 D。 35 【正确答案】 A 【试题解析】 变量 x在按钮单击事件过程中没有定义，因此系统自动将它定义为Variant类型，由于过程中参数类型为 Integer，所以程序运行时会提示 “ByRef 参数类型不符 “错误。 A选项正确。只在按钮事件中加上 Dim x as Integer就可以解决问题，或
40、者 f 过程中的 y as integer改为 ByVal y as integer也可以解决。 36 【正确答案】 D 【试题解析】 KeyUp 事件是在松开按钮时发生。按下 1松开时，文本框中显示1，执行 KeyUp事件过程，在窗体上显示文本框内容，即 1。按下 2松开时，文本框中显示 12，执行 KeyUp事件过程，在窗体上 1后面接着现在显示文本框的内容，即窗体上显示为 112。按下 3松开时，文本框中显示 123，执行 KeyUp事件过程，在窗体上 112后面接着显示文本框的内容，即在窗体上显示为 112123。 37 【正确答案】 A 【试题解析】 程序的作用是输入的数如果是 5的
41、倍数就累加，如果不是就每次加50或与上次是 5的倍数的那个数相累加。因此最终 a的值是 15 15 35 35100。 38 【正确答案】 A 【试题解析】 数据文件的写操作分为 3步，即打开文件、写入文件和关闭文件。 首先，在顺序文件中打开文件写入数据的打开方式为： Open 文件名 For Output As #文件号。因此 B、 C选项排除，只看 A、 D选项。 写入顺序文件 Print #语句格式为： Print #文件号，变量名，变量名 ， Write语句的的格式与 Print语句一样： Write #文件号，变量名，变量名。而记录类型变量不能整体引用，需要指明记录变量中的成员名，格
42、式为：记录变量名 .成员名， Books 类型变量 B成员 Name和 TelNum赋值和引用应该是 B.Name、B.TelNum，因此 A选项正确。 39 【正确答案】 B 【试题解析】 原程序的执行流程为，当按下一个键后，激活 KeyPress 事件，事件中隐藏 Form1和显示 From2的语句与判断是否按了回车键的语句是顺序的，即不论按了什么键，都会执行隐藏 Form1和 显示 From2的语句。这两句应该上移到第二个 EndIf前面，也就是放在判断是否按了回车键的 If 语句块中。因此 B选项正确。 40 【正确答案】 C 【试题解析】 在通用对话框控件中， Filter 属性指定
43、了在对话框中显示的文件类型，该属性可以设置多个文件类型，每种文件类型由文件描述和文件通配符与扩展名组成，并由 “|“隔开。 FilterIndex 属性用来指定默认的过滤器， Filter属性中设置了多个过滤器后，每个过滤器的对应的值按从左到右顺序是 1、 2 ，FilterIndex 属性默认为 1，即第一个过滤器 ，因此程序中会显示 C： 下的所有文件。应该在通话框打开之前 (CD1.Action 1之前 )添加 CD1.FilterIndex 3，即使默认过滤器为第 3个过滤器。 二、基本操作题 41 【正确答案】 步骤 1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉
44、及的控件及属性见表 3 8和表 3 9。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 1：新建一个窗体，按照题目要求建立控件并设置图像框相应属性，如图 3 17所示。步骤 2：按照步骤 2设置其他控件相关属性，程序中涉及的控件 及属性见表 3 10。步骤 3：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub C1 C1ick()当单击 “放大 “按钮时，依次将 Image1的高与宽分剐加 100 Image1 Height=Image1 Height+100 Image1 Width=Image1 Width+100 End SUb Private Sub
45、 C2 C1ick()当单击 “缩小 “按钮。则依次将 Imagel 的高与宽分剐减 100 Image1 Height=Image1 Height-100 Image1 Width=Imagel Width-100 End Sub 步骤 4：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)文本框控什的 Multiine属性用于设置文本框是否显示多行文本，值为 True表示是，值为 False则表示否。 ScmUBars属性设置文本框是否有水平或垂直滚动条，它有 0、 1、 2和 3这 4个值， 0表示没有滚动条 (默认值 )， 1表示只有水平滚动条， 2表示只有垂直滚动条，
46、3表示有水平和垂直滚动条。文本框的 Passwordchar属性常用于设置用某字符 (如 “*”)屏蔽用户在文本框中 键入的内容，常用于口令输入。 (2)图像框 (Image)控件的 Picture属性用于在设计阶段时装载在图像框中显示的图片，它的 Stretch(自动伸缩 )属性用来设定载人其中的图片是否需要自动调整，以适应图像框的大小。图像框的宽和高分别由其 Widtb属性和 Height属性设置。 本题要在单击按钮时实现 “放大 ”或 “缩小 ”的功能，应在程序中动态设置图像框大小 (宽和高 )，即在其原来皋础上增加或减小图像框的宽和高。 三、简单应用题 42 【正确答案】 步骤 1：打开本题工程文件。 步骤 2： 打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 Private Sub CommandlClick() Call ShowName(Command1)将 Command1控件传入 ShowName End Sub Private Sub Labe11click() Call ShowName(Labe11)将 Labe1控件传八 ShowName End Sub Private Sub ShowName(c As Control)两 者类型都为控件 If TypeOf c Is CommandButton Then
