操作题
2. 在名称为Form1的窗体上添加一个名称为Text1的文本框；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Show和Hide，标题分别为“显示”、“隐藏”，请编写适当的事件过程，使程序运行时，单击“隐藏”菜单项，文本框消失；单击“显示”菜单项，文本框重新出现，程序运行后的窗体如图所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
【正确答案】【操作步骤】
步骤1：新建一个“标准EXE”工程，在窗体中绘制一个文本框，在属性设置窗口中将其Name属性值设置为Text1。打开菜单编辑器，按表设置建立菜单项。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Hide_Click()
Text1.Visible=False '当用户单击了"隐藏"菜单项时，则Text1不可见
End Sub
Private Sub Show_Click()
Text1.Visible=True '同理，Text1可见
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
步骤1：新建一个“标准EXE”工程，在窗体中绘制一个文本框，在属性设置窗口中将其Name属性值设置为Text1。打开菜单编辑器，按表设置建立菜单项。
| 标题 | 操作 | 显示 | 隐藏 | ||||||||||||||||||||||
| 名称 | M1 | Show | Hide | ||||||||||||||||||||||
| 内缩符号 | 0 | 1 | 1 | ||||||||||||||||||||||
参考答案
Private Sub Hide_Click()
Text1.Visible=False '当用户单击了"隐藏"菜单项时，则Text1不可见
End Sub
Private Sub Show_Click()
Text1.Visible=True '同理，Text1可见
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【答案解析】[考点] 本题考点有：菜单编辑器的使用(标题、名称、内缩符号)，文本框的Name、Text和Visible属性以及菜单的Click事件。
文本框的Visible属性用于设置其在运行时是否可见。通过“菜单编辑器”窗口建立菜单项。
文本框的Visible属性用于设置其在运行时是否可见。通过“菜单编辑器”窗口建立菜单项。