1、VB机试模拟试卷 53及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上画一个框架、一个文本框、一个命令按钮。框架的名称为 Framel，标题为 “框架 ”。文本框在 Frame1框架中，名称为 Text1、标题为 “模拟试题 ”。命令按钮的名称为 Commandl、标题为 “屏蔽 ”。编写适当的事件过程，当程序运行时，如果单击 Commandl命令按钮，框架就会被屏蔽 (即不可用 )。程序中不得使用任何变量。程序运行时的窗体界面如图 211所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjl frm，工程文件名为 sjl vbp。 (2)在名称为 F
2、orml的窗体中，画一个组合框。组合框的名称为 Combol，初始内容为空，有 “Iteml”、 “Item2”和 “Item3”3个可供选择项。编写适当的事件过程，使得程序运行时，选择组合框中的某一项，就会弹出一个对话框，内容为 “选择了 (该项 )”。程序中不得使用任何变量。程序运行时的窗体界面如图 212所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sj2 frm，工程文件名为sj2 vbp。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一 个工程文件 sj3 vbp，窗体上有一个单选按钮数组，名称为 Optionl，含 4个单选按钮，它们的 Index属性分别为 O
3、、 1、 2和 3，标题依次为“Iteml”、 “Itera2”、 “Item3”和 “Item4”，再画一个名称为 Textl的文本框。 窗体文件中已经给出了 Optionl的 Click事件过程，但不完整，要求去掉程序中的注释符“”，把程序中的 “?”改为正确的内容，使得在运行时单击 “Iteml”或 “Item2”单选按钮时，在 Textl中显示 “选择 Iteml”或 “选择 Item2”，单击 “Item3”或 “Itern4”单选按钮时，在 Textl中显示 “Item3被选择 ”和 “Itern4被选择 ”。程序运行界面如图 353所示。 注意：不能修改程序中的其他部分。最后把修
4、改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sj4 vbp， Form1窗体中有一个文本框，名称为Textl，两个框架，名称分别为 Framel和 Frame2、标题分别为 “科目 ”和 “难易 ”；在Framel中有两个单选按钮 Optionl和 Option2，标题分别为 “数学 ”和 “语文 ”；在Frame2中有两个单选按钮 Option3和 Option4，标题分别为 “困难 ”和 “简单 ”；一个命令按钮，名称为 Commandl，标题为 “输出 ”。程序运行界面如图 354所示。请编写适当的事件过程，使得在运行时，在 Framel和 Frame2中各选一个单选
5、按钮，然后单击 “输出 ”按钮，输出 “我觉得数学困难 ”、 “我觉得数学容易 ”、 “我觉得语文困难 ”和 “我觉得语文容易 ”之一。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sj5 vbp，窗体上有两个文本框，名称分别为Textl和 Text2，分别用来表示两个计数器；还有两个计时器 Timerl和 Timer2。Timerl用于变换 Textl的计数； Timer2用于控制 Text2的计数。运行时，单击 “开始 ”按钮后， Textl每当到 5的倍数则停止， Text2开始计数，当 Text2计数到 6的倍数则 Textl开始计数，交替进行。程序运行时的窗体界面如
6、图 495所示。注意：在窗体中已经给出了全部控件和程序，但程序不完整，要求阅读程序并去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原文件名存盘。 VB机试模拟试卷 53答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)本题考查控件的画法和框架控件的使用。 框架控件 (Frame)是一个容器控件，常用于将界面上的控件分组，框架内的控件将随框架一起移动或隐藏。框架的 Caption属性设置其显示的标题， Enabled属性设置框架及其内部控件是否响应用户操作，值为 False时将被屏
7、蔽。需注意的是向框架中加入控件时一定要在框架区域内画，而不能通过双击加入。 根据题意，新建 “标准 EXE”工程，将一个框架控件和一个命令按钮添加到窗体中，框架的 Caption属性为 “框架 ”，命令按钮的名称为 Commandl、 Caption属性为 “屏蔽 ”，再在 Frame中放入一个文本框控件，名称为 Textl、 Text属性为 “模拟试题 ”。双击 Commandl进入代码向窗口，编写如下代码： Private Sub Commandl_Click() Framel Enabled=False将框架设为不可用 End Sub 单击 按钮运行程序，并按要求保存。 (2)本题考查对
8、组合框控件和消息框函数的掌握及简单的事件编程。 组合框 (ComboBox)将文本框与列表框的特性组合在一起，既可在组合框的文本 框部分输入信息 ，也可在列表框部分选择项目i组合框的列表项可以在设计阶段通过其 List属性加入，加入时注意每输入完一项后按 “Ctrl+Enter”组合键换行再输入下一项；组合框的 Text属性用于设置或返回其文本框部分显示的文本。 MsgBox()函数用于显示提示信息，并可返回一个代表用户点击了哪个按钮的 Integer类型值，其常用语法为： MsgBox(prompt， buttons，title)。其中， prompt参数为消息框的提示信息， buttons
9、参数用于控制消息框中按钮的数目、形式及消息框图标的样式； title参数为消息框标题栏上显示的内容。 根据题意，新建 “标准 EXE”工程，将一个 ComboBox控件添加到窗体中，其名称为 Combol、 Style为 2，在 List属性中添加以下 3项 “Iteml”、 “Item2”和 “Item3”。双击 Combol进人代码窗口，编写如下代码： Private Sub Combol_Click() MsgBox(“选择了 “+Combo1 List(Combo1 ListIndex) 弹出对话框 End Sub单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正
10、 确答案】 (1)程序中需要检测单选按钮的状态，这可以通过 Value属性来实现。如果单选按钮被选中，则其 Value值为 1；否则 Value值为 0。当建立控件数组时，系统给每个元素赋一个唯一的索引号 (Index)，通过属性窗 VI的 Index属性，可以知道该控件的索引号是多少。标签和单选按钮的标题均由各自的 Caption属性设置。 根据题意，将一组 Option放到对话框中，包含 4个单选按钮， Index分别为 0、 1、 2和 3， Caption分别为 “Iteml”“Item2”“Item3”和 “Item4”，一个文本框控件 ，名称为 Textl， Text属性为空。补充
11、后的具体代码如下： Private Sub Optionl_Click(Index As Integer) If Index=1 Or Index=0 Then Textl Text=“选择“+Optionl Item(Index) Caption EIse Textl Text=Optionl Item(Index) Caption+“被选择 “ End If End Sub 单击 按钮运行程序，并按要求保存。 (2)程序中需要检测的单选按钮的状态，通过 Value属 性来实现，如果单选按钮被选中，则 Value值为 1，否则 Value值为 0。在文本框中显示内容通过 Text属性实现。
12、根据题意，将2个框架控件、 4个单选按钮控件、 1个文本框控件和 1个命令按钮添加到窗体中，框架的 Caption属性分别为 “科目 ”和 “难易 ”，单选按钮的名称分别为 Optionl、Option2、 Option3和 Option4， Caption分别为 “数学 ”、 “语文 ”、 “困难 ”和 “容易 ”，其中 Optionl和 Option3的 Value为 True，命令按钮的名称为 Commandl、 Caption属性为 “输出 ”。补充后的具体代码如下： Private Sub Commandl_Click() Dim str As String str=“我觉得 “ I
13、f Optionl Value=True Then str=str+Optionl Caption选中数学 Else str=str+Option2 Caption选中语文 End If If Option3 Value=True Then str=str+Option3 Caption选中困难 Else str=strOption4 Caption选中简 单 End If Textl Text=str End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 本题主要考查考生分析和阅读程序的能力。计时器在设计时是可见的，但运行时不可见，它是否启用取决于
14、其 Enabled属性值，值为 True时启用，为 False时不启用。启用后间隔多长时间触发一次其 Timer事件是由其 Interval属性值决定的， IntervaI属性的单位为毫秒，缺省值为 0，此时计时器也不启用。判断一个数是否可以被另一个数整除，要用 Mod运算符，如果计算 结果为 0，则表示可以整除，否则不能整除。补充后的代码如下： Private Sub Commandl_Click() Timerl Interval=1000按开始键启动 Textl计数 End Sub Private Sub Timerl Tliner() Textl Text=Textl Text+1 每
15、个一个间隔 Textl加 1 If Textl Text Mod 5=0 Then当Textl的数是 5的倍数 Timerl Interval=0 停止 Textl计数 Timer2 Interval=1000 启动 Text2计数 End If End Sub Private Sub Timer2_Timer() Text2 Text=Text2 Text+1每个一个间隔 Text2加 1 If Text2 Text Mod 6=0 Then当 Text2的数是 6的倍数 Timer2 Interval=0 停止 Text2计数 Timerl Interval=1000馆动 Textl计数 End If End Sub单击 按钮运行程序，并按要求保存。
