1、VB机试模拟试卷 93及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上添加一个名称为 Framel、标题为 “框架 ”的框架，在框架内添加两个名称分别为 Optionl、 Option2的单选按钮，其标题分别为 “第一项 ”、“第二项 ”。要求通过设置控件的属性将 “第二项 ”初始值设置为被选中，框架为不可用。运行程序后的窗体如图 57l所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjl vbp，窗体文件名保存为 sjl frm。 (2)在名称为 Forml的窗体上添加一个名称为 Drivel的驱动器列表框，一个名称为 Dirl的目录列表框，一
2、个名称为 Filel的文件列表框，名称为 Labell、标题为 “文件名 ”的标签和名称为Label2、 BorderStyle为 1的标签。将窗体的标题设置为 “文件系统控件 ”，如图 572所示。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将在 Label2中显示选中的文件名。注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在 考生文件夹下，工程文件名保存为 sj2 vbp，窗体文件名保存为 sj2 frm。 二、简单应用题（ 40分） 2 (1)在窗体上
3、画三个复选框，名称分别为 chl、 Ch2和 ch3，标题分别为 “体育 ”、“音乐 ”和 “美术 ”，还有一个命令按钮，名称为 Cl，标题为 “显示 ”。要求程序运行后，如果选中某个复选框，当单击 “显示 ”命令按钮时，则显示相应的信息。例如，如果选中 “体育 ”和 “美术 ”复选框，单击 “显示 ”命令按钮后，在窗体上显示 “我的爱好是体育美术 ”，如图 34所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj3 frm，工程文件名为 sj3 vbp。 (2)在考生文件夹中有工程文件sj4 vbp及窗体文件 sj4 frm。在名为 Form1的窗体上有一个标签数组，名为Lab1，
4、该数组有 4个控件元素，标题分别是 “Wait、 “Edit、 “Aix”和 “Move”，如图35所示。在程序运行后，将鼠标指针移动到各控件元素上，则鼠标指针的形状将变成各控件元素的标题所代表的鼠标指针形状；离开控件元素，则鼠标指针又变成正常情况下的箭头形状。本程序不完整，请补充完整，并能正确运行。 注意：去掉程序中的注释符 (即 “”号 )，把程序 中的问号 “?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。 三、综合应用题（ 30分） 3 在考生文件夹中有工程文件 st5 vbp及其窗体文件 sj5.frm，该程序是不完整的
5、。在名称为 Forml的窗体上有一个文本框，名称为 Textl、 MultiLine属性为 True、ScrollBars属性为 2；两个命令按钮，名称分别为 Commandl和 Command2、标题分别为 “读入 ”和 “排列保存 ”，运行界面如图 656所示。要求程序运行后，如果单击“读 入 ”按钮，则从 in txt文件中读入 50个整数，放入一个数组中 (数组下界为1)；如果 单击 “排列保存 ”按钮，则对这 50个数从大到小进行排序，把排序后的全部数据在文本框 Textl中显示出来，然后存人考生文件夹中的result txt文件中 (在程序中的标准模块 mode5 bas过程可以把
6、指定个数的数组元素存入 result txt文件 )。 注意：请在有 “?”的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。文件必须存放在考生文件夹下，窗体文件名 为 sj5 frm，工程文件名为sj5 vbp，排序结果存入 result txt文件，否则没有成绩。 VB机试模拟试卷 93答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，在窗体上添加一个框架控件，两个单选按钮控件，其中框架控件名称为 Framel， Caption属性为 “框架 ”，Enabled属
7、性为 False，单选按钮 1的名称为 Optionl， Caption属性为 “第一项 ”，单选按钮 2的名称为 O otion2， Caption属性为 “第二项 ”， Value属性为 True。单击按钮运行程序，并按要求保存。 (2)本题主要考查标签的 Name、 Caption属性，窗体的 Caption属性，驱动列表框 的 Name和 Path属性，目录列表框的 Name和Path属性以及文件列表框的 Name、 Path和 FileName属性。根据题意，新建 “标准EXE”工程，窗体 Caption属性为 “文件系统控件 ”，在窗体上添加驱动列表框名称为Drivel，目录列表框
8、名称为 Dirl，文件列表框名称为 Filel，标签 1名称为 Labell、Caption属性为 “文件名 ”，标签 2名称为 Label2、 Caption属性为空、 BorderStyle属性为 1。双击进入代码窗口，编写如下代码： Private Sub Dirl_Change() Filel Path=Dirl Path End Sub Private Sub Drivel_Change() Dirl Path=Drivel Drive End Sub Private Sub Filel Click() Label2=Filel FileName End Sub 单击 按钮运行程序，
9、并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)本题主要考查复选框的使用。单击命令按钮触发 Click事件，程序中需要检测复选按钮的状态，可以通过 Value属性来实现。如果复选按钮 被选中，则 Value值为 1，否则 Value值为 0。 在窗体上先按要求建立控件，设置控件属性，程序中用到的控件及属性如下表所示： 打开工程资源管理器，右击窗体，选择查看代码项，在弹出的代码窗口输入代码如下： Option Explicit Private Sub cl Click() Dim S As String s=“我的爱好是 “ If Ch1 Value=1 Then s=s&C
10、h1 Caption End If If Ch2 Value=1 Then s=s&Ch2 Caption End If If Ch3 Value=1 Then s=s&Ch3 Caption End If Print S End Sub 调试并运行程序。 按题目要求存盘。 (2) 打开题目所给工程文件。 将注释语句改为： Forml MousePointer=0 Select Case Index 按要求保存文件即完成本题。 三、综合应用题（ 30分） 3 【正确答案】 在本题中涉及文件的操作，用 Write#或 Input#语句读取数据，对文件操作完后一定要关闭文件。 根据题意，将一个文本
11、框控件和两个命令按钮添加到 窗体中，根据题意的要求设置属性，即文本框的名称为 Textl、 MultiLine属性为true、 ScrollBars属性为 2，两个命令按钮的控件的 Caption属性分别为 “读取 ”和 “排列保存 ”，名称为 Commandl和 Command2。在 “工程 ”窗口中单击右键，在弹出的快捷菜单中选择 “添加 ”一 “添加模块 ”，然后在弹出对话框的 “现存 ”选项卡中选择“mode5 bas”，单击 “确定 ”按钮即添加成功。模块的代码如下： Function writeData(total AS Long) Open App Path& “ result
12、txt“For Append As#1 Write#1， total Close#1 End Function 分析程序可知，程序在读取的同时就进行了排序，一旦读取的数比当前数大，则将两数位置交换，继续比较后面的数。补充后的具体代码如下： Dim str(50)As String全局变量 Dim a(50)As Long全局变量 Private Sub Commandl Click() Textl Text=“ Open App Path&“ in txt“For Input As#1 Dim i As Integer For i=0 To 49 Input#1， a(i) Next i For i=0 TO 49 str(i)=a(i) Textl Text=Textl Text+str(i)+vbCrLf Next i Close#l End Sub Private Sub Command2_Click() Dim i As Integer Dim j As Integer Dim temp As Integer Dim k As Integer Textl Text=“ For i=0 To 49 temp=a(i) For i=0 TO i If a(j) 按钮运行程序，并按要求保存。
