注意：下面出现的“考生文件夹”均为%USER%

请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。

（1）在 Form1的窗体上画一个名称为 Text1的文本框，然后建立一个主菜单，标题为“操作”，名称为Op，该菜单有两个子菜单，其标题分别为“显示”和“清除”，名称分别为 Dis和Clea，编写适当的事件过程。程序运行后，如果单击“操作”菜单中的“显示”命令，则在文本框显示“等级考试”；如果单击“清除”命令，则清除文本框中显示的内容。程序的运行情况如图所示。

*注意：

存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

解题思路：

启动Visual Basic系统，创建一个Form1窗体。

在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1。通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“操作”，名称处输入Op，在该菜单下有二个子菜单，在菜单编辑器的标题处分别输入“显示”和“清除”，名称处分别输入Dis和Clea。

单击“操作”菜单中的“显示”命令（即运行Click事件过程），在该Click事件过程中加入语句：

Private Sub Dis_Click()

Text1.Text = "等级考试"

End Sub

单击“操作”菜单中的“清除”命令（即运行Click事件过程），在该Click事件过程中加入语句：

Private Sub Clea_Click()

Text1.Text = ""

End Sub

参考文件：c:wexam26990001hlpsys参考答案sjt1.vbp、sjt1.frm、sjt1.vbw

请把这些文件复制到c:wexam26990001中，然后打开sjt1.vbp文件并运行。

（2）在Form1 的窗体上画一个文本框，名称为 Text1，Text属性为空白。再画一个列表框，名称为L1，通过属性窗口向列表框中添加 4个项目，分别为“AAAA”、“BBBB”、“CCCC”和“DDDD”，编写适当的事件过程。程序运行后，在文本框中输入一个字符串，如果双击列表框中的任一项，则把文本框中的字符串添加到列表框中。程序的运行情况如图所示。

*注意：

存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm

解题思路：

启动Visual Basic系统，创建一个Form1窗体。

在该窗体上画一个文本框，通过其属性窗口将名称设为Text1，文本框中的初始内容（Text属性）设为空白，即没有任何内容。画一个列表框，通过其属性窗口将名称设为L1，向列表框中添加项目（List属性），添加的项目分别为“AAAA”、“BBBB”、“CCCC”和 “DDDD”，每个项目为一行。

双击列表框中的任一项（即运行DblClick事件过程），在DblClick事件过程中加入语句：

L1.AddItem Text1.Text。

参考文件：c:wexam26990001hlpsys参考答案sjt2.vbp、sjt2.frm、sjt2.frx、sjt2.vbw

请把这些文件复制到c:wexam26990001中，然后打开sjt2.vbp文件并运行。