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

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

（1）在名称为Form1 的窗体上建立一个二级下拉菜单（菜单项见下表），运行时的窗体如图所示。

*注意：

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

解题思路：

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

在该窗体上通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“文件”，名称处输入File，在该菜单下有二个子菜单，在菜单编辑器的标题处分别输入“打开”、“关闭”，名称处分别输入Open和Close，将“关闭”按钮的“有效”单选按钮设为不选状态。

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

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

（2）在名称为Form1 的窗体上画两个文本框，名称分别为Text1、Text2，均无初始内容。要求：

1）通过属性窗口设置适当的属性，使Text1、Text2 中显示的文本的字体为“隶书”；

2）编写适当的事件过程，使得在 Text1 中输入每一个字符时，立即在Text2中显示Text1中的内容，如图所示。

*注意：

要求程序中不得使用变量，事件过程中只能写一条语句。

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

解题思路：

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

在该窗体上画二个文本框控件，通过其属性窗口将名称分别设为Text1和Text2，文本内容（Text属性）均设为空，点击文本框的Font属性，其弹出的字体对话框中将字体均设为“隶书”。改变Text1的内容（即运行Change事件过程），在该Change事件过程中加入语句：

Private Sub Text1_Change()

Text2 = Text1

End Sub

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

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