1、VB机试模拟试卷 102及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在Forml的窗体上画一个名称为 Picl的图片框，然后建立一个主菜单，标题为 “命令 ”，名称为 Com，该菜单有两个子菜单，其标题分别为 “输出 ”和 “删除 ”，名称分别为 Pri和 Del，编写适当的事件过程。程序运行后，如果单击 “命令 ”菜单中的 “输出 ”命令，则将图片框显示出来；如果单击 “删除 ”命令，则隐藏图片框。程序的运行时的窗体界面如图 111和图 112所示。注意：存盘时必须存放在考生文件夹下，工程文件名为
2、sjl vbp，窗体文件名为sjl frm。程序中不得使用任何变量。 (2)在窗体上画一个列表框，名称为 Listl，通过 “属性 ”窗口向列表框中添加 3个项目，分别为 “足球 篮球 ”和 “排球 ”。编写适当的事件过程，使程序运行后，每次单击列表框中的任何一项，则总在最后面添加一项 “体育活动 ”。程序运行界面和运行效果分别如图 113和图 114所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sj2 vbp，窗体文件名为sj2 frm。程序中不得使用任何变量 。 二、简单应用题（ 40分） 2 (1)在窗体上画两个单选按钮，名称分别为 Op1和 Op2，标题分别为 “黑体 ”和
3、“楷体 ”；一个文本框，名称为 Textl，字体为宋体，字号为四号字；有一个命令按钮，名称为 C1，标题为 “切换 ”。要求程序运行后，在文本框中输入 “等级考试 ”，并选择一个单选按钮，如图 554所示。在单击 “切换 ”按钮后，会根据所选的单选按钮来切换文本框中所显示的汉字字体，如图 555所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sj3 frm，工程文件名为sj3 vbp。 (2)在考生文件 夹中有一个工程文件 sj4 vbp，相应的窗体文件名为sj4 frm。请在名为 Forml的窗体上绘制一个名称为 Textl的文本框和一个名称为Cmdl、标题为 “大小写转换 ”的命令
4、按钮，如图 556， 557所示。如图 556， 557所示，在程序运行时，单击 “大小写转换 ”按钮，可以把 Textl中的大写字母转换为小写，把小写字母转换为大写。窗体文件中已经给出了 “大小写转换 ”按钮的 C1ick事件过程，但不完整，请去掉程序中的注释符 “”，把程序中的问号 “?”改为正确的内容。 注意：不能修改程序的其他部分。最后， 按原文件名并在原文件夹中保存修改后的文件。 三、综合应用题（ 30分） 3 在名称为 Forml的窗体上有一个 Label控件和两个命令按钮，数据文件personl dat存放员工的编号、姓名、工资。自定义一个数据类型 person，字符型数据定长为
5、 12；按 “开始 ”按钮后，从考生文件夹下的 personl dat中读出所有数据并写人考生文件夹下的 person dat文件中；执行完毕， “开始 ”按钮变成 “完成 ”，且无效 (变灰 )，如图 396所示。 注意：去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容。考生 的工程文件以文件名 sj5 vbp存盘，窗体文件以文件名 sj5 frm存盘。 VB机试模拟试卷 102答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程将一个图片控件添加到窗体中，其名称设为 Picl，按 “Ctrl+E”组合键打开菜单编辑器，在其中添加如下
6、菜单项： 设置完成后双击输出命令进入代码窗口，编写如下代码： Private Sub Del_Click() 单击删除命令事件 Picl Visible=False End Sub Private Sub Pri_Click()单击输出命令事件 Picl Visible=True End Sub 单击 按钮运行程 序，并按要求保存。 (2)根据题意，新建 “标准 EXE”工程，将一个 List控件添加到窗体中，其名称为 Listl。在其 List属性中按题目要求输入项目，每输完一个后按 “Ctrl+Enter”组合键换行，输入下一个元素，最后按回车键结束输入，双击 List，进入代码编写窗口编
7、写如下代码： Private Sub Listl_Click() Listl Addltem“体育活动 “ 添加选项 End Sub单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)本题主要考查单选 按钮和文本框的综合应用。单选按钮和切换按钮是通过它们的 Caption属性来设置的，当单击 “切换 ”时触发它的 Click事件来使文本框的内容改变。文本框的字体设置通过它的 Font属性来实现。窗体的控件及其属性已经建好，只需编写事件过程空缺的代码即可。 程序中用到的控件及其属性见下表： 打开工程资源管理器，右击窗体，选择查看代码项，在弹出的代码窗口输入代码
8、如下： Option Explicit Private Sub C1_Click() If Opl Then Textl Font=Opl Caption End If If Op2 Then Textl Font=“楷体 _GB2312“ End If End Sub 调试并运行程序。 按题目要求存盘。 (2) 打开题目所给工程文件。 单击工具箱中的 TextBox控件图标，在窗体上拖拉出一个文本框，在属性窗口设置该文本框名称为 Textl。 单击工具箱中的 CommandButton控件图标，在窗上拖出一个命令按钮，在属性窗口设置该命令按钮名称为 Cmdl， Caption属性为 “大小写
9、转换 ”。 将注释语句改为： n =Asc(“a“)-Asc(“A“) b$=String(1， Asc(b$)+n ) Textl Text=a$ 按要求保存文件即完成本题。 三、综合应用题（ 30分） 3 【正确答案】 本题要利用 EOF()函数判断是否到文件末尾。根据题意，将一个标签控件和两个命令按钮添加到窗体中，标签控件的 Caption属性为 “从源文件personl dat中读人数据，保存到目标文件 person dat中 ”，命令按钮的名称分别为 Commandl和 Command2， Caption分别为 “开始 ”和 “保存 ”，设置完成后双击Cornmandl进入代码编写
10、窗口，具体代码如下： Private Type person结构体声明 n As Integer nam As String*12 “ham为 12个字符 salary As Integer End Type Dim per()As person Dim hum As Integer Private Sub Commandl_Click() Dim trap As person Dim i num=0 Open“App Pathg& personl dat“For Input As#1 打开文件准备读人 While EOF(1)=FalseEOF判断是否读到最后 Input#1， trap n
11、， trap nam，tmp salary读取结构体的各个元素 num=num+l 计数加 1 Wend Close#1 ReDim per(num)As person重新声明结构体 Open“App Path& personl dat”For Input As#1 打开文件准备读入 For i=1To num循环读取 Input#1， per(i) n， per(i) nam，per(i) salary向数组中读 取数据 Next i Close#1 Commandl Enabled=FalseCommandl不可用 Commandl Caption=“完成 “ Commandl标示改为完成 End Sub Private Sub Command2_Click() Dim i As Integer Open”App Pathg& person dat“For Append As#1 打开文件准备写入 For i=1 To num循环写入 Print#l， per(i) n， per(i) nam， per(i) salary写入数据 Next i Close#1End Sub单击 按钮运行程序，并按要求保存。
