1、VB机试模拟试卷 39及答案与解析 一、基本操作题（ 30分） 1 创建名称为 Form1的窗体，在该窗体上创建两个单选按钮，名称和标题一致，分别为 Option1和 Option2，编写一个事件过程，使得选择 Option1时， Option2变灰。程序运行结果如图 9所示。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 ylcl.vbp，窗体文件名为 ylcl.frm。2 新建一个工程，在窗体中创建一个单选按钮数组，名称为 Option1。该数组含有四个单选按钮，其标题依次为 “选项 1”、 “选项 2”、 “选项 3”和 “选项 4”，其下标分别为 1， 2，
2、 3， 4。默认选择为 “选项 3”。运行结果如图 10所示。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 ylc2.vbp，窗体文件名为 ylc2.frm。 二、简单应用题（ 40分） 3 有一个工程文件 ylc6.vbp，它的功能是在文本框中输入一个整数，单击 “移动 ”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示 “文本框中的数值太大 ”；如果输入的是负数，则滚 动框向左移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示 “文本框中的数值太小 ”，如图 18所示。 题
3、目中提供的“移动 ”按钮控件 Command1的 Click事件的源代码如下： Private Sub Command1_Click() Dim nCount As Integer nCount=CInt(Text1.Text) If(nCount=?)Then HScrolll.Value=HScrolll.Max ? Else If (nCount =HScrolll.Min) Then ?=HScrolll.Min MsgBox(“文本框中的数字太小 “) Else HScrolll.Value=? End If End If End Sub 注意：不能修改程序中的其他部分，不能修改控件
4、的属性，最后把修改后的程序以原来的文件名存盘。存盘时必须存放在考生文件夹下。三、综合应用题（ 30分） 4 新建一个工程。在窗体中画一个列表框，名称为 List，通过属性窗口向列表框中添加 3个项目，分别为 “中文 ”、 “广东话 ”和 English。编写一个事件过程，要求运行程序后，双击列表中的任何一项，都会在 后面加上 “谢谢 ”，如图 16所示。VB机试模拟试卷 39答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)Visual Basic集成环境中，执行 “文件 ”“ 新建工程 ”命令，选择“标准 Exe”。创建窗体 Form1。 (2)在工具箱中选择标签控件，在窗体中
5、要求位置画出两个标签，其 Caption属性分别为 Option1和 Option2。双击 Option1弹出代码编写窗口，添加如下代码： Private Sub Option1_Click() Option2.Enabled=False End Sub (3)按 F5键运行程序。如图 9所示。 (4)执行 “文件 ”“ 保存工程 ”命令，将工程文件命名为 ylcl.bp；窗体文件命名为 ylcl.frm。 【试题解析】 (1)第 1小题中要使用 Enable屑性来控制选择控件的变灰与否。 2 【正确答案】 (1)Visual Basic集成环境中，执行 “文件 ”“ 新建工程 ”命令，选择“
6、标准 Exe”。创建窗体 Form1。 (2)在工具箱中选择单选按钮控件，在窗体中要求位置画出两个单选按钮，第一个按钮的名称为 Option1，第二个按钮的名称也设为Option1， 这时系统会提示是否建立单选按钮数组。选择 “确定 ”，并建立另外两个单选按钮。将所有按钮的 Caption属性依次设置为 “选项 1”、 “选项 2”、 “选项 3”和“选项 4”。 (3)将 “选项 3”的 Value属性设置为 True，设为默认选项。 (4)按 F5键运行程序。如图 10所示。 (5)执行 “文件 ”“ 保存工程 ”命令，将工程文件命名为ylc2.vbp，窗体文件命名为 ylc2.frm。
7、【试题解析】 (2)第 2小题主要考查了按钮数组的建立。在 Visual Basic中控件数组的设置方式都相同。 二、简单应用题（ 40分） 3 【正确答案】 操作步骤 (1)在 Visual Basic集成环境中选择 “文件 ”“ 打开工程 ”命令，在对话框中选择 ylc6.vbp工程文件，单击 “确定 ”按钮打开。 (2)选择工具箱中的 TextBox控件，在窗口上拖动，创建该控件命名为 Text1，设置属性为空。 (3)选择工具箱中的 CommandButton控件，在窗口中拖动并画出该控件。在属性编辑框命名为 Command1，标题设置为 “移动 ”。 (4)选择工具箱中的 HScro
8、llBar控件，在窗口上拖 动创建该控件，命名为HScrolll，在属性窗口根据题目的要求设置 Value属性值为 0。 (5)题目要求在移动到最左或最右边时，停止移动并显示提示信息。因此，在属性中设置它的最大最小值，即设置 Max属性为 256，设置 Min属性的值为 -256。 2行为编码 Cormnand1的 Click事件，代码如下： Private Sub Command1_Click() Dim nCount As Integer nCount=CInt(Text1. Text) 当 前值与最大值比较 If (nCount =HScrolll.Max) Then HScrolll.
9、Value=HScrolll.Max 信息提示框提示 MsgBox(“文本框中的数字太大 “) Else 当前值与最小值比较 If (nCount =HScrolll.Min) Then HScrolll.Value=HScrelll.Min 信息提示框提示 MsgBox(“文本框 中的数字太小 “) Else 把当前值赋给滚动条 HScrolll.Value=nCount End If End If End Sub 3存盘保存 执行 “文件 ”“ 保存工程 ”命令，工程文件名为 ylc6.vbp，窗体文件名为 ylc6.frm。 【试题解析】 (1)本题考查考生对 HScrollBar相关属
10、性的设置，包括对HScrollBar控件的最大、最小值的设置，滚动设置，以及判断语句的运用和实现显示用户提示信息。 (2)注意 HScrollBar控件的最大、最小值设置，滚动条的值设置，CommandButton控件的 Click事件处理的功能。 (3)在每次单击 “移动 ”按钮后，将文本框中的数值与 HScrollBar的 Max属性值和Min属性值进行比较。若超出 HScrollBar的值域范围则弹出太大或太小提示信息，否则移动滚动条。 三、综合应用题（ 30分） 4 【正确答案】 (1)Visual Basic集成环境中，执行 “文件 ”“ 新建工程 ”命令，选择“标准 Exe”。创建
11、窗体 Form1。 (2)在工具箱中选择 ListBox控件，在窗体上拖动创建一个列表框，名称为 List1。在其属性窗口中，添加三个项目，分别为 “中文 ”、“广东话 ”和 English。 (3)在 Listl的代码窗口中添加以下代码： Private Sub Listi_DblClick() List1.AddItem(“谢谢 !“) End Sub (4)按 F5键运行程序。如图 16所示。 (5)执行 “文件 ”“ 保存工程 ”命令，将工程文件命名为 ylc4.vbp，窗体文件命名为 ylc4.frm。 【试题解析】 (4)第 4小题中，主要考查了列表框的建立和 AddItem的使用。
