注意：下面出现的“考生文件夹”均为c：\wexam\25160001。 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1) 在Form1的窗体上画一个名称为P1的图片框，然后建立一个主菜单，标题为“操作”，名称为 Op，该菜单有两个子菜单，其标题分别为“显示”和“清除”，名称分别为Dis和Clea。编写适当的事件过程，程序运行后，如果单击“操作”菜单中的“显示”命令，则在图片框中显示“计算机考试”；如果单击“清除”命令，则清除图片框中的信息。程序的运行情况如图15-1和图15-2所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。程序中不得使用任何变量。
(2) 在Form1的窗体上画一个列表框，名称为L1，通过属性窗口向列表框中添加4个项目，分别为“早上好”、“上午好”、“中午好”和“下午好”。编写适当的事件过程，过程中只能使用一条命令。程序运行后，如果双击列表框中的某一项，则把该项再添加到列表框中。程序的运行情况如图15-3所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
参考答案：
解析： 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
主菜单由单击右键选择“菜单编辑器”来创建，通过Print方法在窗体或图片框中打印信息，通过Cls方法清除图片框中的信息。Cls方法清除运行时Form或PictureBox所生成的图形和文本。
语法：Object.Cls
object代表一个对象表达式。如果省略。object，则默认为当前的Form窗体。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件和属性设置见表15-1。
表 15-1
| 控 件 | 属 性 | 设 置 值 |
| 菜单 | 名字 标题 | Op 操作 |
| 菜单 | 名字 标题 | Dis 显示 |
| 菜单 | 名字 标题 | Clea 清除 |
| 图片框 | Name | P1 |
参考代码：
Private Sub Clea_Click()
P1.Cls
End Sub
Private Sub Dis_C1ick()
P1.Print"计算机考试"
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2) 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
列表框的内容由属性List来设置，再程序中添加项要通过AddItem方法来实现，鼠标双击触发控件的DblClick事件。
AddItem方法用于将项目添加到ListBox或ComboBox控件，其语法格式为：
obiect.AddItemitem,index
object必需的。一个对象表达式。
item必需的。字符串表达式，它用来指定添加到该对象的项目。
index可选的。是整数，它用来指定新项目或行在该对象中的位置。对于ListBox或ComboBox控件的首项index为0。
解题步骤：
第一步：建立界面并设置控件属性。程序中只用到的控件和属性设置见表15-2。
表 15-2
| 控 件 | 属 性 | 设 置 值 |
| 列表框 | Name | L1 |
参考代码
Private Sub L1_DblClick()
L1.Addltem L1.Text
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。