请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在Forml的窗体上建立一个主菜单，标题为“命令”，名称为Com，该菜单有3个子菜单，其标题分别为“输出”、“删除”和“关闭”，其名称分别为Prin、Del和Close。编写适当的事件过程，程序运行后，如果单击“命令”菜单中的“输出”命令，则在窗体上显示“Hello World!”；如果单击“删除”命令，则删除窗体上显示的内容，“关闭”命令为关闭对话框。程序的运行情况如图37—1所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjl．vbp，窗体文件名为sjl．frm。 (2)在Form1的窗体上画一个标签，其名称为Labell；再画一个列表框，其名称为Listl，通过属性窗口向列表框中添加若干个项目，每个项目的具体内容不限，编写适当的事件过程。程序运行后，如果双击列表框中的任意一项，则把列表中的项目序号数和项目文本在标签中显示出来。程序中不准使用任何变量，运行情况如图37—2所示。
【正确答案】正确答案：(1)Visual Basic中，菜单也具有属性和事件。菜单由“菜单编辑器”来创建。在窗体上打印信息通过Print方法来实现。清除在窗体上的打印信息要通过Cls方法来实现，Cls方法清除运行时Form或PictureBox所生成的图形和文本。其语法为：object．Cls。object表示一个对象表达式。如果省略object，则默认为当前的Form窗体。 根据题意，在窗体空白处单击右键，选择“菜单编辑器”，进人“菜单编辑器”对话框，添加以下菜单项：
设置完成后，在代码窗口编写如下代码： Private Sub Close_Click() '关闭命令 Unload Me End Sub Private Sub Del_Click() '删除命令 Me．Cls End Sub Private Sub Prin_Click() '输出命令 Print"Hello World!" End Sub 单击
按钮运行程序，并按要求保存。 (2)双击控件触发其DblClick事件。列表框中的表项可以通过“属性”窗口的List属性设置，也可以通过AddItem方法在程序中添加。本题是通过属性窗口来设置的。 根据题意，将一个列表框控件和一个标签添加到窗体中，列表框的名称为Listl，在List属性中添加“足球”“篮球”“排球”和“乒乓球”，每输人完一项按“Ctrl+Enter”组合键换行，进行新的输入，当输入完成后，按回车键，标签的名称为Labell、Caption属性为空。双击Listl进入代码编写窗口，将选中项的序号和内容连在一起放人Labell中显示出来，注意题目要求程序中不得使任何变量，应该编写如下代码： Private Sub Listl_DblClick() Labell．Caption=Str(Listl．Listlndex+1)+Listl．List(Listl．ListIndex) End Sub 单击
设置完成后，在代码窗口编写如下代码： Private Sub Close_Click() '关闭命令 Unload Me End Sub Private Sub Del_Click() '删除命令 Me．Cls End Sub Private Sub Prin_Click() '输出命令 Print"Hello World!" End Sub 单击按钮运行程序，并按要求保存。 (2)双击控件触发其DblClick事件。列表框中的表项可以通过“属性”窗口的List属性设置，也可以通过AddItem方法在程序中添加。本题是通过属性窗口来设置的。 根据题意，将一个列表框控件和一个标签添加到窗体中，列表框的名称为Listl，在List属性中添加“足球”“篮球”“排球”和“乒乓球”，每输人完一项按“Ctrl+Enter”组合键换行，进行新的输入，当输入完成后，按回车键，标签的名称为Labell、Caption属性为空。双击Listl进入代码编写窗口，将选中项的序号和内容连在一起放人Labell中显示出来，注意题目要求程序中不得使任何变量，应该编写如下代码： Private Sub Listl_DblClick() Labell．Caption=Str(Listl．Listlndex+1)+Listl．List(Listl．ListIndex) End Sub 单击【答案解析】