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