1、VB 机试-试卷 21 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.(1)在名为 Forml 的窗体上绘制一个名为 chkl 的复选框数组，含 3 个复选框，它们的标题依次为First、Second 和 Third，其下标分别为 0、1、2。初始状态下，Second 和 Third 为选中状态。运行后的窗体如图 301 所示。 注意：文件必须存放在考生文件夹中，工程文件名为 sjlvbp，窗体文件名为sjlfml。 (2)请在名为 Forml 的窗体上建立一个二级下拉菜单，第一级共有两个菜单项，标题分
2、别为“文件”和“编辑”，名称分别为 vbFile 和 vbEdit；在“编辑”菜单下有第二级菜单，含有 3 个菜单项，标题分别为“剪切”、“复制”和“粘贴”，名称分别为 vbCut、vbCopy 和 vbPaste。其中“剪切”菜单项设置为无效(如图 302 所示)。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在考生文件夹下有工程文件 sj3vbp 及窗体文件 sj3frm，该程序是不完整的。在窗体中有 3 个滚动条，名称分别为VScroll
3、l、VScroll2 和 VScroll3，4 个标签，名称分别为 Labell、Label2、Label3 和Label4，LabellLabel3 的标题分别为“红”、“绿”和“蓝”，Label4 用来显示颜色变化，还有一个命令按钮，名称为 Commandl、标题为“全部置零”。要求程序运行后，标签 Label4 的颜色随着 3 种颜色滚动条的变化而变化，如图 204 所示。 注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹下有一个工程文件 sj4vbp。在其窗体中“待选城市”下的
4、Listl 列表框中有若干个城市名称。程序运行时，选中 Listl 中若干个列表项(如图 205 所示)，单击“选中”按钮则把选中的项目移到List2 中，单击“显示”，则在 Textl 文本框中显示这些选中的城市(如图 206 所示)。已经给出了所有控件和程序，但程序不完整。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在名称为 Forml 的窗体上绘制一个文本框，名称为 Textl，MultiLine 属性为 True，ScrollBars 属性为2；两个命令按钮名称分别为 Cmdl 和 Cmd2，标题分别为“读人数据”和“计算
5、保存”，如图 476 所示。要求程序运行后，如果单击“读人数据”按钮，则读人 intxt 文件中的 100 个整数，放入一个数组中(数组下界为 1)，同时在文本框中显示出来；如果单击“计算保存”按钮，则计算其中前 50 个数之和，并将求和结果在文本框 Textl 中显示出来，同时把结果存入考生文件夹中的文件 outtxt 中(在考生的文件夹下有标准模块 modebas，其中的 putdata 过程可以把结果存人指定的文件)。 （分数：2.00）_VB 机试-试卷 21 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.0
6、0）_解析：2.(1)在名为 Forml 的窗体上绘制一个名为 chkl 的复选框数组，含 3 个复选框，它们的标题依次为First、Second 和 Third，其下标分别为 0、1、2。初始状态下，Second 和 Third 为选中状态。运行后的窗体如图 301 所示。 注意：文件必须存放在考生文件夹中，工程文件名为 sjlvbp，窗体文件名为sjlfml。 (2)请在名为 Forml 的窗体上建立一个二级下拉菜单，第一级共有两个菜单项，标题分别为“文件”和“编辑”，名称分别为 vbFile 和 vbEdit；在“编辑”菜单下有第二级菜单，含有 3 个菜单项，标题分别为“剪切”、“复制”
7、和“粘贴”，名称分别为 vbCut、vbCopy 和 vbPaste。其中“剪切”菜单项设置为无效(如图 302 所示)。 （分数：2.00）_正确答案：(正确答案：(1)新建一个名为 Forml 的窗体。 单击工具箱中的 CheckBox 控件图标，在窗体上拖拉出三个复选框，在属性窗口设置三个复选框名称分别为 Chkl、Chk2 和 Chk3，标题分别为“First”“Second”和“Third”，设置 Chk2 和 Chk3 的 Value 属性值为 Checked。 按要求保存文件即完成本题。 (2)新建一个名为 Forml 的窗体。 执行“工具”菜单中的“菜单编辑器”命令，打开菜单编
8、辑器。在“标题”栏中输入“文件”，在“名称”栏中输入“vbFile”；单击“下一个”按钮，在“标题”栏中输入“编辑”，在“名称”栏中输入“vbEdit”；单击“下一个”按钮，再单击编辑区的右箭头按钮，在“标题”栏中输入“剪切”，在“名称”栏中输入“vbCut”，不要选择“有效”选项；单击“下一个”按钮，在“标题”栏中输入“复制”，在“名称”栏中输入“vbCopy”；单击“下一个”按钮，在“标题”栏中输入“粘贴”，在“名称”栏中输入“vbPaste”。)解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.请根据以下各小题的要求设计 Visual Ba
9、sic 应用程序(包括界面和代码)。 (1)在考生文件夹下有工程文件 sj3vbp 及窗体文件 sj3frm，该程序是不完整的。在窗体中有 3 个滚动条，名称分别为VScrolll、VScroll2 和 VScroll3，4 个标签，名称分别为 Labell、Label2、Label3 和Label4，LabellLabel3 的标题分别为“红”、“绿”和“蓝”，Label4 用来显示颜色变化，还有一个命令按钮，名称为 Commandl、标题为“全部置零”。要求程序运行后，标签 Label4 的颜色随着 3 种颜色滚动条的变化而变化，如图 204 所示。 注意：请在有“?”的地方填入正确内容，
10、然后删除“?”及代码前的所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹下有一个工程文件 sj4vbp。在其窗体中“待选城市”下的 Listl 列表框中有若干个城市名称。程序运行时，选中 Listl 中若干个列表项(如图 205 所示)，单击“选中”按钮则把选中的项目移到List2 中，单击“显示”，则在 Textl 文本框中显示这些选中的城市(如图 206 所示)。已经给出了所有控件和程序，但程序不完整。 （分数：2.00）_正确答案：(正确答案：(1)本题主要考查标签控件属性的设置，滚动条常用属性和事件及颜色函数。 标签控件的背景色通过 Bac
11、kColor 属性设置。程序主要用到了 RGB 函数，该函数通过红、绿、蓝三基色产生某种颜色，其语法为 RGB(红，绿，蓝)函数，其中括号中的红、绿、蓝三基色的范围为 0255 之间的整数。补充后的代码如下： Private Sub Commandl_Click() VScrolllValue=0 VScroll2Value=0 Vscroll3Value=0 End Sub Private Sub Form Load() Label4BackColor =RGB(VScroll 1 Value ，VScroll2 Value ，VScroll3 Value ) End Sub Private
12、 Sub VSerolll_Change() Label4BackColor = RGB (VScrolll Value ，VScroll2 Value ，VScroll3 Value ) End Sub Private Sub VScroll2_Change() Label4 BackColor =RGB( VScrolllValue ，VScroll2.Value，VScroll3Value) End Sub Private Sub VSeroll3_Change() Label4 BackColor =RGB(VScrolll Value ，VScroll2 Value ，VScroll
13、3 Value ) End Sub 单击 按钮运行程序，并按要求保存。 (2)本题主要考查列表框的 ListCount、Selected 和 List 属性，AddItem 和RemoveItem 方法，”&”连接符，For 循环语句以及 If 判断语句。根据题意，编写如下代码： Private Sub Commandl Click() Dim k For k=ListlListCount-1 To 0 Step-1 If Listl。Selected(k)=True Then List2Addltem ListlList(k) ListlRemoveltem k End If Next k
14、End Sub Private Sub Command2 Click() Dim k Textl=“已经选中的城市有：“ For k=0 To List2ListCount-1 Step 1 Textl= TextlText &“& List2List(k) Next k End Sub 单击 )解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在名称为 Forml 的窗体上绘制一个文本框，名称为 Textl，MultiLine 属性为 True，ScrollBars 属性为2；两个命令按钮名称分别为 Cmdl 和 Cmd2，标题分别为“读人数据
15、”和“计算保存”，如图 476 所示。要求程序运行后，如果单击“读人数据”按钮，则读人 intxt 文件中的 100 个整数，放入一个数组中(数组下界为 1)，同时在文本框中显示出来；如果单击“计算保存”按钮，则计算其中前 50 个数之和，并将求和结果在文本框 Textl 中显示出来，同时把结果存入考生文件夹中的文件 outtxt 中(在考生的文件夹下有标准模块 modebas，其中的 putdata 过程可以把结果存人指定的文件)。 （分数：2.00）_正确答案：(正确答案：在窗体上建立控件后，先设置控件属性，再研读提供的代码，找出问题后，修改事件过程以满足题目要求。 文本框显示的内容通过 Text 属性设置；按钮的标题通过 Caption 属性设置，单击命令按钮触发 Click 事件；本题中涉及到了文件的操作，读入文件以顺序方式打开，用“Input#”语句读取数据。需要注意的是对文件操作结束后，一定要关闭文件。 文本框显示的内容通过 Text 属性设置，MuhiLine 属性决定文本框是否可以多行显示。如果需要多行显示，必须将 MuhiLine 属性设置为True，将 ScrollBars 属性值设置为 2。 建立界面并设置控件属性。按钮的标题通过 Caption 属性设置，单击命令按钮触发 Click 事件。程序中用到的控件及属性设置见下表： )解析：
