第15套上机考试试题
一、基本操作题
下面出现的“考生文件夹”均为c：＼wexam＼20060001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。1．在Form1窗体上画一个名称为Text1的文本框，然后建立一个主菜单，标题为“操作”，名称为Op，并为该菜单建两个子菜单，其标题分别为“显示”和“清除”，名称分别为Dis和Clea，编写适当的事件过程。要求程序运行后，如果单击“操作”菜单中的“显示”命令，则在文本框中显示“计算机考试”；如果单击“清除”命令，则清除文本框中显示的内容。程序的运行情况如图15-1和图15-2所示。
图15-1
图15-2
注意：保存时必须存放在考生文件夹下，工程文件名为kt1.vbp，窗体文件名为kt1.frm。
2．在窗体上画一个文本框，名称为Text1，其属性为空白。冉画一个列表框，名称为L1，通过“属性”窗口向列表框中添加4个项目，分别为“早上好”、“上午好”、“中午好”和“下午好”。编写适当的事件过程。使得程序运行后，在文本框中输入一个字符串，如果双击列表框中的任何一项，则把文本框中的字符串添加到列表框中。程序的运行情况如图15—3所示。
注意：保存时必须存放在考生文件夹下，工程文件名为kt2.vbp，窗体文件名为kt2.frm。
二、简单应用题
下面出现的“考牛文件夹”均为c：＼wexam＼20060001。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
1．在考生文件夹下有工程文件kt3.vbp及其窗体文件kt3.frm，该程序是不完整的，请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符(即“'”号)，但不能修改其他部分，保存时不得改变文件名和文件夹。
本题描述如下：
在窗体中有一个RichText文本框控件和一个文本框控件，名称分别为rtxl和Textl；两个命令按钮，名称分别为Command1和Command2，标题分别为“加入KT01.TXT”和“统计字符个数”。要求程序运行后，单击“加入KT01.TxT”按钮将考生文件夹下的kt01.txt的内容显示到rtxl中；单击“统计字符个数”按钮统计rtxl中有多少个字符，并将结果显示在Text1中。程序运行结果如图15-4所示。
图15-3
图15-4
2．在考生文件夹下有工程文件kt4.vbp及其窗体文件kt4.frm，该程序是不完整的，请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符(即“'”号)，但不能修改其他部分，保存时不得改变文件名和文件夹。
本题描述如下：
在窗体上有一个名为Image1的图像框，要求程序运行后，用鼠标左键单击图像框，则图像框变大；用鼠标右击图像框，图像框变小。设计界面如图15-5所示。
图15-5
三、综合应用题
下面出现的“考生文件夹”均为c：＼wexam＼20060001。在考生文件夹下有工程文件kt5．vbp及其窗体文件kt5.frm，该程序是不完整的，请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符(即“'”号)，但不能修改其他部分，保存时不得改变文件名和文件夹，相应的dat文件也保存到考生文件夹下，否则没有成绩。
本题描述如下：
在名称为Form1的窗体上有五个Labe1控件和两个命令按钮，数据文件stud1.dat用于存放考生的考号、姓名和成绩。自定义一个数据类型stu，字符型数据定长为10；单击“开始”按钮后，从考生文件夹下的smdl．dat中读出所有数据，并写入考生文件夹下的stud.dat文件中，“开始”字样变为“完成”字样，且无效(变灰)。程序的运行界面如图15-6所示。
图15-6
第15套参考答案与解析
一、基本操作题
1．【解析】通过“菜单编辑器”来创建菜单，文本框的内容通过Text属性设置，Text=""语句可将文本框中的内容清空。
【解题步骤】
(1)建立界面并设置控件属性。程序中用到的控件及其属性见表15-1。
表15-1
| 控件 | 属性 | 设置值 |
| Name | Op | |
| 菜单 | Caption | 操作 |
| Name | Dis | |
| 菜单 | Caption | 显示 |
| Name | Clea | |
| 菜单 | Caption | 清除 |
| 文本框 | Name | Text1 |
(2)编写程序代码。
参考代码：
(3)调试并运行程序。
(4)按题目要求存盘。
2．【解析】本题主要考查列表框的选择操作。列表框的内容通过List属性设置，文本框的内容通过Text属性设置，双击
触发DblClick事件，向列表框中添加内容用Addltem方法。
【解题步骤】
(1)建立界面并设置控件属性。程序中用到的控件及其属性见表15-2。
表15．2
控件 |
属性 | 设置值 |
| 文本框 | Name | Text1 |
| 列表框 | Name | L1 |
(2)编写程序代码。
参考代码：
Private Sub L1_DblClick()
L1.AddItem Text1.Text
End Sub
(3)调试并运行程序。
(4)按题目要求存盘。
二、简单应用题
1．【解析】本题主要考查命令按钮和文本框的简单综合应用。RichTextBox控件可以用LoadFile和SaveFile方法，方便地为RichTextBox控件打开或保存文件，LoadFile方法能将RTF文件或文本文件装入控件，其形式为：
对象.LoadFile文件标志符[，文件类型】；统计字符的个数可用Len(要统计的内容)函数。
【解题步骤】
(1)建立界面并设置控件属性。程序中用到的控件及其属性见表15-3。
表15-3
| 控件 | 属性 | 设置值 |
| Commandl | Caption | 加入kt01.txt |
| Command2 | Caption | 统计字符个数 |
(2)编写程序代码。
程序提供的代码：
(3)调试并运行程序。
(4)按题目要求存盘。
责任编辑：小草
