浏览次数： 时间：2015/11/17
一、基本操作题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在Form1的窗体上建立一个主菜单，标题为“命令”，名称为Com，该菜单有3个子菜单，其标题分别为“输出”、“删除”和“关闭”，其名称分别为Prin、Del和Close。编写适当的
事件过程，程序运行后，如果单击“命令”菜单中的“输出”命令，则在窗体上显示“Hello World!”；如果单击“删除”命令，则删除窗体上显示的内容，“关闭”命令为关闭对话框。程序的运行情况如图17-1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sj1．vbp，窗体文件名为sj1．frm。
(2)在Form1的窗体上画一个标签，其名称为Label1；再画一个列表框，其名称为List1，通过属性窗口向列表框中添加若干个项目，每个项目的具体内容不限，编写适当的事件过程。程序运行后，如果双击列表框中的任意一项，则把列表中的项目序号数和项目文本在标签中显示出来。程序中不准使用任何变量，运行情况如图17-2所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sj2．vbp，窗体文件名为sj2．frm。
二、简单应用题
(1)在名称为Form1、标题为“调用系统对话框”的窗体上有一个文本框和四个命令按钮及一个通用对话框，通过CommonDialog实现对系统一些对话框的调用。请将“打开”按钮的功能补充完整，并限制打开的类型为文本文件和数据文件(*．txt和*．dat)，默认打开文件类型为．txt文件。打开in．txt文件如图17-3所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sj3．vbp。
(2)在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，该程序是不完整的。在窗体上有一个名为Pic1的图片框，有一个名为Command1、标题为“输入半径”或“输入边长”的命令按钮，有两个单选按钮，名称分别是Option1和Option2、标题分别是“圆形”和“正方形”。要求程序运行后，若选中“圆形”，则按钮名称为“输入半径”，若选中“正方形”，则按钮名称为“输入边长”，再单击命令按钮“输入半径”或“输入边长”，在弹出的输入对话框中输入相应的参数值，则在图片框上画出相应的图形，如图17-4所示。
注意：请在有“?”的地方填入正确内容，然后删除“?”及所有注释符“”，但不能修改其他部分。存盘时不得改变文件名和文件夹。
三、综合应用题
在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm，该程序是不完整的。在名称为Form1的窗体上有3个Label控件和2个命令按钮，数据文件sjin．dat，存放工人的编号、姓名和年龄。按“开始”按钮后，能从考生文件夹下的sjin．dat中读出数据并把年龄小于平均年龄的工人的所有数据写入考生文件夹下的sjout．dat文件中；执行完毕，“开始”按钮变成“完成”，且无效，如图17-5所示。
注意：请在有“?”的地方填入正确内容，然后删除“?”及所有注释符““’，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的dat文件也保存到考生文件夹下，否则没有成绩。
答案与解析
一、基本操作题
(1)Visual Basic中，菜单也具有属性和事件。菜单由“菜单编辑器”来创建。在窗体上打印信息通过Print方法来实现。清除在窗体上的打印信息要通过Cls方法来实现，Cls方法清除运行时Form或PictureBox所生成的图形和文本。其语法为：object．Cls。object表示一个对象表达式。
如果省略object，则默认为当前的Form窗体。
根据题意，在窗体空白处单击右键，选择“菜单编辑器”，进入“菜单编辑器”对话框，添加以下菜单项：
| 标签 | 名称 | 内缩 |
| 命令 | Com | 无 |
| 输出 | Prin | 一位 |
| 删除 | Del | 一位 |
| 关闭 | Close | 一位 |
设置完成后，在代码窗口编写如下代码：
(2)双击控件触发其DblClick事件。列表框中的表项可以通过“属性”窗口的List属性设置，也可以通过AddIt-em方法在程序中添加。本题是通过属性窗口来设置的。
根据题意，将一个列表框控件和一个标签添加到窗体中，列表框的名称为List1，在List属性中添加“足球”“篮球”“排球”和“乒乓球”，每输入完一项按“Ctrl+Enter”组合键换行，进行新的输入，当输入完成后，按回车键，标签的名称为Label1、Caption属性为空。双击List1进入代码编写窗口，将选中项的序号和内容连在一起放入Label1中显示出来，注意题目要求程序中不得使用任何变量，应该编写如下代码：
二、简单应用题
(1)通用对话框是一种ActiveX控件，通常情况下，启动Visual Basic后，在工具箱里没有通用对话框控件，用户必须手动将它添加到工具箱里才可以使用。选择“工程”→“部件”命令，打开“部件”对话框，并将Microsoft Common Dia-log Control 6．0前的复选按钮选中，单击“确定”按钮将其添加到工具箱中，然后再像其他控件一样使用。
本题补充后的具体代码如下：
(2)本题主要考查Circle方法、Line方法和InputBox函数的使用。Circle方法在对象上画圆、椭圆或弧。其语法为：object．Circle[Step](x，y)，radius，[color，start，end，as-pect]。Line方法在对象上画直线和矩形。其语法为：ob-ject．Line[Step](xl，1)[Step](x2，y2)，[color]，[B][F]。InputBox函数在一个对话框中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的String。其语法为：InputBox(prompt[，title][，default][，xpos][，ypos][，helpfile，conText])。
根据题意，补充后的具体代码如下：
三、综合应用题
本题主要考查定义结构体变量，其格式如下：
End type
程序中在同一个过程打开两个文件，因此要用两个文件号，一个用来读入(文件号#1)，一个用来输出(文件号#2)。利用EOF来判断是否读取完，先对文件进行一次读取，计算出平均值，然后再根据条件进行边读取边写入的操作，补充后的具体代码如下：
