问答题
注意：下面出现的“考生文件夹”均为c：/wexam/25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1) 在Form1的窗体上建立一个主菜单，标题为“操作”，名称为Op，该菜单有两个子菜单，其标题分别为“显示”和“清除”，其名称分别为Dis和Clea。编写适当的事件过程，程序运行后，如果单击“操作”菜单中的“显示”命令，则在窗体上显示“等级考试”；如果单击“清除”命令，则清除窗体上显示的内容。程序的运行情况如图14-1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
(2) 在Form1的窗体上画一个标签，其名称为Lab1；再画一个列表框，其名称为L1，通过属性窗口向列表框中添加若干个项目，每个项目的具体内容不限，编写适当的事件过程。程序运行后，如果双击列表框中的任意一项，则把列表中的项目数在标签中显示出来。程序中不准使用任何变量，运行情况如图14-2所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
【正确答案】
【答案解析】[解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
Visual Basic中，菜单被看作控件，具有属性和事件。菜单由“菜单编辑器”来创建。在窗体上打印信息通过Print方法方法来实现。清除在窗体上的打印的信息要通过Cls方法来实现
Cls方法清除运行时Form或PictureBox所生成的图形和文本：
语法：Object.Cls
object代表一个对象表达式。如果省略object，则默认为当前的Form窗体。解题步骤：
第一步：打开“菜单编辑器”，建立菜单并设置菜单属性。菜单的属性设置见表14-1。
表 14-1
第二步：编写程序代码。
参考代码：
Private Sub Clea_Click()
ClS
End Sub
Private Sub Dis_Click()
Print "等级考试"
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2) [解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
双击控件触发DblClick事件，ListCount属性返回列表框中表项的数量。列表框中的表项可以通过“属性”窗口的List属性设置，也可以通过AddItem方法在程序中添加。本题是通过属性窗口来设置的。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表14-2。
表 14-2
第二步：编写程序代码。
参考代码：
Private Sub L1_DblClick()
Lab1.Caption=L1.ListCount
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
Visual Basic中，菜单被看作控件，具有属性和事件。菜单由“菜单编辑器”来创建。在窗体上打印信息通过Print方法方法来实现。清除在窗体上的打印的信息要通过Cls方法来实现
Cls方法清除运行时Form或PictureBox所生成的图形和文本：
语法：Object.Cls
object代表一个对象表达式。如果省略object，则默认为当前的Form窗体。解题步骤：
第一步：打开“菜单编辑器”，建立菜单并设置菜单属性。菜单的属性设置见表14-1。
表 14-1
|
控 件 |
属 性 |
设 置 值 |
| 菜单 | 名字 标题 |
Op 操作 |
| 菜单 | 名字 标题 |
Dis 显示 |
| 菜单 | 名字 标题 |
Clea 清除 |
参考代码：
Private Sub Clea_Click()
ClS
End Sub
Private Sub Dis_Click()
Print "等级考试"
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2) [解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
双击控件触发DblClick事件，ListCount属性返回列表框中表项的数量。列表框中的表项可以通过“属性”窗口的List属性设置，也可以通过AddItem方法在程序中添加。本题是通过属性窗口来设置的。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表14-2。
表 14-2
|
控 件 |
属 性 |
设 置 值 |
| 标签 | Name | Lab1 |
| 列表框 | Name | L1 |
参考代码：
Private Sub L1_DblClick()
Lab1.Caption=L1.ListCount
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。