1、国家二级（ VB）机试模拟试卷 50及答案与解析 一、选择题 1 在窗体上画两个单选按钮，名称分别为 Option1、 Option2，标题分别为 “宋体 “和 “黑体 “； 1个复选框 (名称为 Check1，标题为 “粗体 “)和 1个文本框 (名称为 Text1，Text属性为 “改变文字字体 “)，窗体外观如图所示。程序运行后，要求 “宋体 “单选按钮和 “粗体 “复选框被选中，则以下能够实现上述操作的语句序列是 ( )。（ A） Option1.Value False Check1.Value True （ B） Option1.Value True Check1.Value 0 （
2、 C） Option2.Value False Check1.Value 2 （ D） Option1.Value True Check1.Value 1 2 以下说法中正确的是 ( )。 （ A）当焦点在某个控件上时，按下一个字母键，就会执行该控件的 KeyPress事件过程 （ B）因为窗体不接受焦点，所以窗体不存在自己的 KeyPress事件过程 （ C）若按下的键相同， KeyPress事件过程中的 KeyAscii参数与 KeyDown事件过程中的 KeyCode参数的值也相同 （ D）在 KeyPress事件过程中， KeyAscii参数可以省略 3 假定通过复制、粘贴操作建立了一
3、个命令按钮数组 Command1，以下说法中错误的是 ( )。 （ A）数组中每个命令按钮的名称 (Name属性 )均为 Command1 （ B）若未做修改，数组中每个命令按钮的大小都一样 （ C）数组中各个命令按钮使用同一个 Click事件过程 （ D）数组中每个命令按钮的 Index属性值都相同 4 以下关于菜单的叙述中，错误的是 ( )。 （ A）当窗体为活动窗体时，用 Ctrl E 键可以打开菜单编辑器 （ B）把菜单项的 Enabled属性设置为 False，则可删除该菜单项 （ C）弹出式菜单在菜单编辑器中设计 （ D）程序运行时，利用控件数组可以实现菜单项的增加或减少 5 以下
4、叙述中错误的是 ( )。 （ A）在程序运行时，通用对话框控件是不可见的 （ B）调用同一个通用对话框控件的不同方法 (如 ShowOpen或 ShowSave)可以打开不同的对话框窗口 （ C）调用通用对话框控件的 ShowOpen方法，能够直接打开在该通用对话框中指定的文件 （ D）调用通用对话框控件的 ShowColor方法，可以打开颜色对话框窗口 6 下面控件中，没有 Caption属性的是 ( )。 （ A）复选框 （ B）单选按钮 （ C）组合框 （ D）框架 7 用来设置文字字体是否斜体的属性是 ( )。 （ A） FontUnderline （ B） FontBold （ C）
5、 FontSlope （ D） FontItalic 8 窗体上有一个名称为 Timer1的计时器控件，一个名称为 Shape1的形状控件，其Shape属性值为 3(Circle)。编写程序如下： Private Sub Form_Load() Shape1.Top 0 Timer1.Interval 100 End Sub Private Sub Timer1_Timer() Static x As Integer Shape1.Top Shape1.Top 100 x x 1 If x Mod 10 0 Then Shape1.Top 0 End If End Sub 以下关于上述程序的叙
6、述中，错误的是 ( )。 （ A）每执行一次 Timer1_Timer事件过程， x的值都在原有基础上增加 1 （ B） Shape1每移动 10次回到起点，重新开始 （ C）窗体上的 Shape1由下而上移动 （ D） Shape1每次移动 100 9 设有如下一段程序： Private Sub Command1_Click() Static a As Variant a Array(“one“， “two“， “three“， “four“， “five“) Print a(3) End Sub 针对上述事件过程，以下叙述中正确的是 ( )。 （ A）变量声明语句有错，应改为 Static
7、 a(5)As Variant （ B）变量声明语句有错，应改为 Static a （ C）可以正常运行，在窗体上显示 three （ D）可以正常运行，在窗体上显示 four 10 求 1！ 2！ 10！的程序如下： Private Function s(x As Integer) f 1 For i 1 To x f f * i Next s f End Function Private Sub Command1_Click() Dim i As Integer Dim y As Long For i 1 To 10 Next Print y End Sub 为实现功能要求，程序的横线处应
8、该填入的内容是 ( )。 （ A） Call s(i) （ B） Call s （ C） y y s(i) （ D） y y s 11 设有如下程序： Option Base 1 Dim a(3， 4)As Integer， b(4， 3)As Integer Private Sub Command1_Click() 循环 1 For i 1 To 3 For j 1 To 4 b(j， i) a(i， j) Next j Next i 循环 2 x b(1， 1) For i 1 To 4 For j 1 To 3 Print b(i， j)； If x0， x Mod 3， 0) 设 x
9、10，则 y的值是 ( )。 （ A） 0 （ B） 1 （ C） 3 （ D）语句有错 28 窗体上有一个菜单编辑器设计的菜单。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如图所示。下列说法错误的是 ( )。 （ A）在设计 “粘贴 “菜单项时，在菜单编辑器窗口中设置了 “有效 “属性 (有 “) （ B）菜单中的横线是在该菜单项的标题输入框中输入了一个 “-“(减号 )字符 （ C）在设计 “选中 “菜单项时，在菜单编辑器窗口中设置了 “复选 “属性 (有 “) （ D）在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了 “可见 “前面的“ 29 在设计窗体时双击窗体的任何地
10、方，可以打开的窗口是 ( )。 （ A）代码窗口 （ B）属性窗口 （ C）工程资源管理器窗口 （ D）工具箱窗口 30 若变量 a未事先定义而直接使用 (例如： a 0)，则变量 a的类型是 ( )。 （ A） Integer （ B） String （ C） Boolean （ D） Variant 31 为把圆周率的近似值 3.14159存放在变量 pi中，应该把变量 pi定义为 ( )。 （ A） Dim pi As Integer （ B） Dim pi(7)As Integer （ C） Dim pi As Single （ D） Dim pi As Long 32 文本框 Tex
11、t1的 KeyDown 事件过程如下： Private Sub Text1_KeyDown(KeyCode As Integer， Shift As Integer) . End Sub 其中参数 KeyCode的值表示的是发生此事件时 ( )。 （ A）是否按下了 Alt键或 Ctrl键 （ B）按下的是哪个数字键 （ C）所按的键盘键的键码 （ D）按下的是哪个鼠标键 33 窗体上有一个名称为 HScroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置 (即刻度值 )。下面能够实现上述操作的事件过程是 ( )。 （ A） Private Sub HScro
12、ll1_Change() Print HScroll1.Value End Sub （ B） Private Sub HScroll1_Change() Print HScroll1.SmallChange End Sub （ C） Private Sub HScroll1_Scroll() Print HScroll1.Value End Sub （ D） Private Sub HScroll1_Scroll() Print HScroll1.SmallChange End Sub 34 若已把一个命令按钮的 Default属性设置为 True，则下面可导致按钮的 Click事件过程被调用
13、的操作是 ( )。 （ A）用鼠标右键单击此按钮 （ B）按键盘上的 Esc键 （ C）按键盘上的回车键 （ D）用鼠标右键双击此按钮 35 要使两个单选按钮属于同一个框架，下面三种操作方法中正确的是 ( )。 先画一个框架，再在框架 中画两个单选按钮 先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中 先画两个单选按钮，再画框架将单选按钮框起来 （ A） （ B） 、 （ C） （ D） 、 、 36 能够存放组合框的所有项目内容的属性是 ( )。 （ A） Caption （ B） Text （ C） List （ D） Selected 37 设窗体上有一个标签 Label
14、1和一个计时器 Timer1， Timer1的 Interval属性被设置为 1000， Enabled属性被设置为 True。要求程序运 行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是 ( )。 （ A） Private Sub Timer1_Timer() Label1.Caption True End Sub （ B） Private Sub Timer1_Timer() Label1.Caption Time$ End Sub （ C） Private Sub Timer1_Timer() Label1.Interval 1 End Sub （ D） Priva
15、te Sub Timer1_Timer() For k 1 To Timer1.Interval Label1.Caption Timer Next k End Sub 38 窗体上有一个名称为 CD1的通用对话框控件和由四个命令按钮组成的控件数组Command1，其下标从左到右分别为 0、 1、 2、 3，窗体外观如图所示。命令按钮的事件过程如下： Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 CD1.Action 1 Case 1 CD1.ShowSave Case 2 CD1.Action 5
16、Case 3 End End SelectEnd Sub对上述程序，下列叙述中错误的是 ( )。 （ A）单击 “打开 “按钮，显示打开文件的对话框 （ B）单击 “保存 “按钮，显示保存文件的对话框 （ C）单击 “打印 “按钮，能够设置打印选项，并执行打印操作 （ D）单击 “退出 “按钮，结束程序的运行 39 窗体上有一个名称为 Frame1的框架 (如图 )，若要把框架上显示的 “Frame1“改为汉字 “框架 “，下面正确的语句是 ( )。 （ A） Frame1.Name “框架 “ （ B） Frame1.Caption “框架 “ （ C） Frame1.Text “框架 “
17、（ D） Frame1.Value “框架 “ 40 在窗体上画一个名称为 Combo1的组合框，名称为 Text1的文本框，以及名称为Command1的命令按钮，如图所示。 运行程序，单击命令按钮，将文本框中被选中的文本添加到组合框中，若文本框中没有选中的文本，则将文本框中的文本全部添加到组合框中。命令按钮的事件过程如下： Private Sub Command1_Click() If Text1.Se1Length0 Then Else Combo1.AddItem Text1 End IfEnd Sub程序中横线处应该填写的是( )。 （ A） Combo1.AddItem Text1.
18、Text （ B） Combo1.AddItem Text1.SelStart （ C） Combo1.AddItem Text1.SelText （ D） Combo1.AddItem Text1.SelLength 二、基本操作题 41 (1)在名称为 Form1的窗体上画两个命令按钮，其名称分别为 C1和 C2，标题分别为 “命令按钮 1”和 “命令按钮 2”，通过属性窗口设计适当的属性，使得程序运行后， “命令按钮 2”隐藏。编写适当的事件过程，使得单击 “命令按钮 1”，则 “命令按钮 2”出现， “命令按钮 1”隐藏；而如果单击 “命令按钮 2”，则 “命令按钮 1”出现，“命令按
19、钮 2”隐藏。程序的运行情况如图所示。 注意： 程序中不得使用变量。存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。 (2)在名称为 Form1的窗体上画一个列表框，其名 称为L1；一个水平滚动条，其名称为 HSI， SmallChange属性为 2， LargeChange属性为10， Min属性为 0， Max属性为 100，编写适当的事件过程。程序运行后，如果把滚动框移到某个位置，然后单击窗体，则在列表框中添加一个项目，其内容是“XX”，其中 “XX”是滚动框所在的位置，如图所示。 注意： 程序中不要使用变量；存盘时必须存放在考生文件夹下，工
20、程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 三、简单应用题 42 (1)在考生文件夹下有一个工程文件 sjt3 vbp，程序的功能是，在运行时，如果选中一个或两个复选框和一个单选按钮，则对文本框中的文本内容做相应的设置，如图所示。窗体上的控件已经给出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。 注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击 “确定 ”按钮；必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩，最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件sjt4 vb
21、p。窗体中已经给出了所有控件。程序运行时，单击 “读入文件 ”按钮后，将显示一个 “打开 ”对话框，可以在该对话框中选择考生文件夹下的文本文件in4 txt，并把该文件的内容在 Text1文本框中显示。给出的程序不完整。 要求：去掉程序中的注释符，并把其中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。四、综合应用题 43 在考生文件夹下有一个工程文件 sjt5 vbp，其窗体上有两个标签 L1 和 L2，标题分别为 “口令 ”和 “允许次数 ”；一个命 令按钮 C1，标题为 “确定 ”；两个文本框名称分别为 Text1和
22、Text2。其中 Text1用来输入口令 (输入时，文本框内容显示“*”)，初始内容为空； Text2的初始内容为 3。并给出了 c1的事件过程，但不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容，使得程序运行时，在 Text1中输入口令后，单击 “确定 ”，如果输入的是 “123456”则在 Text1中显示 “口令正确 ”；如果输入其他内容，单击 “确定 ”后，弹出错误提示对话框 (如图所示 )，并且 Text2中的数字减 1。最多可输入 3次口令，若 3次都输入错误，则禁 止再次输入。 注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。国家二级（ VB）机试模
23、拟试卷 50答案与解析 一、选择题 1 【正确答案】 D 【试题解析】 单选按钮控件的 Value属性值为 True表示被选中， False表示未被选中；复选框控件的 Value属性值为 0表示未选中， 1表示选中， 2表示禁止。本题中是单选按钮和复选框都被选中，故 D选项正确。 2 【正确答案】 A 【试题解析】 B 选项错误原因：窗体有自己的 KeyPress 事件过程； C选项错误原因： KeyPress事件过程中的 KeyAscii 参数返回按键的 ASCII 码值，大小写字母返回值不同；而 KeyDown 事件过程中的 KeyCode参数返回的是按键代码，大小写字母返回值相同。故按下
24、的键相同时， keyAscii 和 KeyCode参数不一定返回相同值； D选项错误原因： KeyPress 事件中的 KeyAscii 参数不能省略。 A选项正确。 3 【正确答案】 D 【试题解析】 命令按钮控件数组中各控件用相同的名称和同一 Click 事件过程，大小也一样，但是为了区分它们，各控件的 Index属性值是不同的。故 D选项错误。 4 【正确答案】 B 【试题解析】 当菜单项的 Enabed 属性值设置为 False时，菜单项只是变为无效项，不可用，不会删除该菜单项。故 B 选项错误。 5 【正确答案】 C 【试题解析】 调用通用对话框的 ShowOpen方法，只是显示文件
25、 “打开 “对话框，如果 ShowOpen方法后面没有其他处理文件的代码，就不能实现打开文件的功能。故选项 C错误。 6 【正确答案】 C 【试题解析】 Caption 属性是设置或返回控件的标题。组合框没有 Caption 属性。故选 C。 7 【正确答案 】 D 【试题解析】 FontUnderline 属性设置文字是否有下划线； FontBold 属性是设置文字是否加粗； FontItalic属性是设置文字是否斜体；没有 FontSlope属性。故选D。 8 【正确答案】 C 【试题解析】 题目中变量 x定义为 Static，即每次进入 Timer事件过程时， x都会保留上次的值，从而实
26、现每执行一次 Timer1_Timer事件过程 x的值都在原有基础上增加 1。程序中判断调用 Timer事件过程 10次后，重置 Shape1 的 top值为0，即回到起点。控件 Shape1 的 Top属性是距离窗体顶的位置，数值越大距离越远，因此 Shape1 会由上向下移动。 9 【正确答案】 D 【试题解析】 题目中变量 a被定义为 Variant类型， Variant 是一种特殊的数据类型，除了定长 String 数据及用户定义类型外，可以包含任何种类的数据。变量a被赋值为字符串数组，数组默认下标从 0开始，因此元素 a(3)的值为 “four“。 10 【正确答案】 C 【试题解析
27、】 题目中过程 s的功能是实现一个数的阶乘，而题目是求 1到 10的阶乘的和，则程序空缺处应该是过程 s返回值的 累加，因此就应该为 y y s(i)。 11 【正确答案】 B 【试题解析】 Dim用于在标准模块、窗体模块或过程中定义变量或数组。程序可以正常运行， x中保存的是数组 b元素中的最大值。 12 【正确答案】 A 【试题解析】 记录类型的定义必须放在模块的声明部分，当在标准模块中定义时，关键字 Type前可以有 Public(默认 )或 Private，而如果在窗体模块中定义，则必须在前面加上关键字 Private。 Open 语句中使用 For Random表示文件以随机方式存取
28、。 Put语句的语法为： Put #文件号， 记录号 ，变量。其中 “变量 “是除对象变量和数组变量外的任何变量。 13 【正确答案】 A 【试题解析】 题目程序的功能为，当单击命令按钮时， Text1 失去焦点，激发Text1的 LostFocus 事件，在此事件中，程序判断文本框中字符串是否为“BASIC“，如果是则退出事件过程，继续执行命令按钮的单击事件过程，文本框中显示 “Visual Basic“，如果不是则文本框内容置空，焦点返回到文本框中等待输入，不会执行命令按钮的单击事件过程。题目中输入了 “Basic“，与 “BASIC“不符， 因此文本框置空，焦点回到文本框中。 14 【正
29、确答案】 A 【试题解析】 在 Form1窗体模块中 x被定义为全局变量，这使得它的值可以在其他模块中通过 “过程名 .变量名 “的形式被引用。而变量 y在标准模块中被定义为全局变量，则它可以在工程的每个模块，每个过程中使用。因此程序运行时， x赋值为 1， y赋值为 5，它们的值都可以在 Form2中引用。 15 【正确答案】 D 【试题解析】 x是用户定义的一种变量类型，可以使用它来声明变量。InputBox(“ “)函数的提示信息为 “ “，即为空，因此弹出的 对话框中没有提示信息。在程序中通过比较输入的数被 2整除和被 2除的值是否相等来判定它是否为偶数，如果是那么 y.b的值就是 y
30、.a的值的平方。 Fix函数是取整函数，它会删除小数部分，直接取表达式的整数部分，不四舍五入，因此 D选项错。 16 【正确答案】 C 【试题解析】 在数据流图中，用标有名字的箭头表示数据流。在程序流程图中，用标有名字的箭头表示控制流。所以选择 C。 17 【正确答案】 A 【试题解析】 结构化程序设计的思想包括：自顶向下、逐步求精、模块化、限制使用 goto语句，所以选择 A。 18 【正确答案】 B 【试题解析】 软件设计中模块划分应遵循的准则是高内聚低偶合、模块大小规模适当、模块的依赖关系适当等。模块的划分应遵循一定的要求，以保证模块划分合理，并进一步保证以此为依据开发出的软件系统可靠性
31、强，易于理解和维护。模块之间的耦合应尽可能的低，模块的内聚度应尽可能的高。 19 【正确答案】 B 【试题解析】 A)错误，可行性分析阶段产生可行性分析报告。 C)错误，概要设计说明书是总体设计阶段产生的文档。 D)错误，集成测试计划是在概要设计阶段编写的文档。 B)正确，需求规 格说明书是后续工作如设计、编码等需要的重要参考文档。 20 【正确答案】 A 【试题解析】 算法原则上能够精确地运行，而且人们用笔和纸做有限次运算后即可完成。有穷性是指算法程序的运行时间是有限的。 21 【正确答案】 B 【试题解析】 栈是按 “先进后出 “的原则组织数据的，数据的插入和删除都在栈顶进行操作。 22
32、【正确答案】 C 【试题解析】 E R图转换成关系模型数据则是把图形分析出来的联系反映到数据库中，即设计出表，所以属于逻辑设计阶段。 23 【正确答案】 D 【试题解析】 自然连接是一种特殊的等值连接，它要求两个关系中进行比较的分量必须是相同的属性组，并且在结果中把重复的属性列去掉，所以 B)错误。笛卡尔积是用 R集合中元素为第一元素， S 集合中元素为第二元素构成的有序对，所以 C)错误。根据关系 T 可以很明显的看出是从关系 R与关系 S 中取得相同的关系组所以取得是交运算，选择 D)。 24 【正确答案】 C 【试题解析】 学号是学生表 S 的主键，课号是课程表 C的主键，所以选课表 S
33、C的关键字就应该是与前两个表能够直接联系且能唯一定义的学号和课号，所以选择 C。 25 【正确答案】 B 【试题解析】 标准模块独立保存为标准模块文件 .bas，故 A选项正确。 标准模块是应用程序内其他模块访问的过程和声明的容器。当应用程序比较庞大，含有多个窗口，而且几个窗口需要写重复的过程、变量等代码时，就可以把这些重复的代码写在标准模块。故 B 选项正确。 在标准模块中定义的 Public变量、 Public过程属于全局变量和全局过程，在整个工程中的其他窗体、模块都可以使用。故 C选项正确， 在标准模块中可以定义过程，故 D选项错误。 26 【正确答案】 B 【试题解析】 定义数组有 2
34、种 格式： 第 1种格式： 数组每一维的只给出下标的上界，即可以使用的下标的最大值。 格式为 Dim|public|private|static(上界， 上界 ) As 类型名 形如： Dim a(5) As Interger ， Dim b(4,5)As Integer 这种形式，数组各维的下标的下界只能为 0或 1，而且下标的上界 下界。本题中 C选项下标上界 10(下界 to 上界 )， (下界 to 上界 ) 形如： Dim a( 2 to 5)As Interger Dim a(1 to 3， 2 to 6)As Interger 这种形式，数组各维下标的下界没有限制，只要保证下标的
35、上界 下界就行。故D选项正确。 以上两种形式也可以混合使用。故 B 选项也正确。 27 【正确答案】 B 【试题解析】 IIF是条件函数，它的语法格式是： IIf(， ， )，本 题中， x 10时，条件表达式x0的值为 True，执行 x Mod 3 即 10 Mod 3 结果为 1。故选 B。 28 【正确答案】 A 【试题解析】 快捷菜单中的 “粘贴 “菜单项为无效时，在菜单编辑器窗口中 “有效“属性应该是不选中状态，没有 “，故 A选项错误。 29 【正确答案】 A 【试题解析】 设计窗体时双击窗体的任何地方，默认打开的是代码窗口。故选A。 30 【正确答案】 D 【试题解析】 VB
36、不要求必须先定义再使用。如果没有提前定义变量，就直接使用，系统就会将变量的数据类 型指定为默认数据类型 Variant变体型。故选 D。 31 【正确答案】 C 【试题解析】 单精度 Single或双精度 Double型的变量能够保存浮点型小数，整型 Integer和长整型 Long的变量只能保存整型数据。本题中圆周率为 3.14159，小数，可用定义一个 Single或 Double型变量来保存。故选 C。 32 【正确答案】 C 【试题解析】 参数 KeyCode返回的是所按键的键码，而且大小写字母键码值相同。故选 C。 33 【正确答案】 A 【试题解析】 根据题意可知，用户 的操作是单
37、击滚动条两端的箭头，故触发的是滚动条的 Change事件；在窗体上显示的是滚动框的位置，即滚动条的当前刻度值， Value属性值可返回这个值，综合一下，故 A选项正确。 34 【正确答案】 C 【试题解析】 当命令按钮的 Default属性值为 True时，程序运行，按回车键和单击该命令按钮一样都会触发按钮的 Click 事件；当命令按钮的 Cancel属性值为True时，程序运行，按 Esc键和单击该命令按钮都会触发按钮的 Click 事件。故选 C。 35 【正确答案】 A 【试题解析】 的操作 方法可使两个单选按钮属于同一个框架，其他方法不行。故 A选项正确。 36 【正确答案】 C 【
38、试题解析】 组合框没有 Caption属性； Text属性用来设置或返回组合框中当前选项的文本内容； Selected 属性是列表框控件的属性，组合框没有 Selected 属性；List属性用来设置或返回组合框中的各选项，它是一个字符串数组，组合框中各选项内容用 List(下标 )表示。故 A、 B、 D选项错误， C选项正确。 37 【正确答案】 B 【试题解析】 Timer1 的 Interval 属性值是 1000， Enabled 属性为 True，说明定时器开始工作，每隔 1000毫秒 (即 1秒 )触发一次 Timer事件，从而执行一次Timer事件过程。要想每秒在标签中显示一次
39、系统时间，则在 Timer 事件过程中把系统时间赋给标签的 Caption 属性就能实现。故选 B。 38 【正确答案】 C 【试题解析】 通用对话框中 Action 1，或用 ShowOpen 方法都可显示 “打开 “文件对话框； Action 2，或用 ShowSave方法都可显示文件 “另存为 “对话框； Action 3，或用 ShowColor方法都可显示 “颜色 “对 话框； Action 4，或用 ShowPrint方法都可显示 “字体 “对话框； Action 5，或用 ShowHelp 方法都可显示 “打印 “对话框； 本题中， “打开 “、 “保存 “、 “打印 “、 “退
40、出 “按钮的下标 (即 Index 值 )分别是 0、1、 2、 3，用 Index 值区分各命令按钮。 当 Index 0时， CD1.Action 1，说明单击 “打开 “按钮，会显示 “打开 “文件对话框； 当 Index 1时， CD1.ShowSave，说明单击 “保存 “按钮，会显示文件 “另存为 “对话框；当 Index 3时， End，说明单击 “退出 “按 钮，会结束程序运行。故 A、B、 D选项正确。 当 Index 2时， CD1.Action 5，说明单击 “打印 “按钮，会显示 “打印 “对话框，但打开对话框后，只能设置打印选项，不能执行打印操作。故 C选项错误。 3
41、9 【正确答案】 B 【试题解析】 框架的 Name属性是设置框架的名称； Caption 属性设置框架的标题，是在框架的左上角显示的内容；框架控件没有 Text和 Value属性。故 B 选项正确。 40 【正确答案】 C 【试题解析】 根据题意可知，横线处应该是将文本框中选中文本添加到组合框中。文 本框 Text属性返回整个文本框中的文本，故 A选项错误； SelStart属性返回选中文本的起始位置，故 B选项错误； SelLength 属性返回选中文本的长度，故D选项错误； SelText属性返回选中的文本，故 C选项正确。 二、基本操作题 41 【正确答案】 （ 1）【操作步骤】步骤
42、1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表 3.165。 步骤 2：编写程序代码。参考答案 Private Sub C1_Click() C2.Visible = True C1.Visible = FalseEnd SubPrivate Sub C2_Click() C1.Visible = True C2.Visible = FalseEnd Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。（ 2）【操作步骤】步骤 1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表 3.166。步骤 2：编写程序代码。参考答案 Private Sub Fo
43、rm_Click() L1.AddItem Str$(Form1.HS1)End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、简单应用题 42 【正确答案】 (1)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub Form_Unload(Cancel As Integer) unload sub End Sub 程序结束 参考答案 Private Sub Command1_Click() If Op1.Value = True Then Text1.FontName = “宋体 “ Else Text1.Fo
44、ntName = “隶书 “ End If If Ch1.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If If Ch2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub 步骤 3：调试并运 行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub Command1_C
45、lick() Dim n As Long CD1.FileName = “ CD1.? = “所有文件 |*.*|文本文件 |*.txt|Word文档 |*.doc“ CD1.FilterIndex = 2 CD1.? If CD1.FileName ? Then MsgBox “第 “ & (3 - Text2.Text) & “次口令错误，请重新输入 “ Else MsgBox “3次输入错误，请退出 “ Text1.Enabled = ? End If End If End Sub 程序结束 参考答案 第 1个？处填入： Text1.Text 第 2个？处填入： PasswordChar 第 3个？处填入： 0 第 4个？处填入： False 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
