如果结果不匹配，请 
更多“运行时动态增减菜单项必须使用菜单数组，增加菜单项时需要采用【…”相关的问题
在名称为Form1
的窗体上添加一个名称为Text1的文本框；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Show和Hide，标题分别为“显示”、“隐藏”，请编写适当的事件过程，使程序运行时，单击“隐藏”菜单项，文本框消失；单击“显示”菜单项，文本框重新出现，程序运行后的窗体如图所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sit2．vbp，窗体文件名保存为sjr2．frm。
注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
(1) 在名称为Form1的窗体上画一个名称为H1的水平滚动条，请在“属性”窗口中设置它的属性值，使之满足以下要求：它的最大刻度值为100，最小刻度值为1，在运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。再在滚动条下面画两个名称分别为L1和L2的标签，并分别显示1和100，运行时的窗体如图19-1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm
(2) 在名称为Form1的窗体上画两个文本框，名称分别为Text1和Text2，均无初始内容；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个子菜单项，名称分别为Cooy和Clear、标题分别为“复制”和“清除”。请编写适当的事件过程，使得程序运行时，单击“复制”菜单项，则把 Text1中的内容复制到Text2中，单击“清除”菜单项，则清除Text2中的内容(即在Text2中填入空字符串)。程序运行界面如图19-2所示。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
.jpg)
在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name属性值为mnuMenu)，然后为其设计两个子菜单项“增加菜单”(Name属性值为mnuAdD)和“减少菜单”(Name属性值为mnuDel)，另外设置一个标题为空的菜单项＜控件数组)，其Name属性值为mnuDyn，Index值为0，Visible属性值为False；然后编写以下程序来实现增加和减少菜单项的功能，完成程序。 Dim Inxld As Integer Private Sub mnuAdd_Click() Dim mnuc As String mnuc=InputBox("input caption") InxId；InxId+1 【 】mnuDyn(InxID) mnuDyn(InxlD)，Calption=mnuc mauDyn(InxID).Visible=True End Sub Private SubmnuDel_Click() Dim i As Integer If【 】Then MsgBox "菜单项已全部被删除" Else Unload mnuDyn(InxID) InxId=InxId-1 End If End Sub
在考生文件夹中完成如下综合应用： 在考生文件夹中有工资数据库WAGE3，包括数据表文件：ZG(仓库号C(4)，职工号 C(4)，工资N(4))。 设计一个名为TJ3的菜单，菜单中有两个菜单项“统计”和“退出”。程序运行时，单击“统计”菜单项应完成下列操作：检索出工资小于或等于本仓库职工平均工资的职工信息，并将这些职工信息按照“仓库号”升序排列，在“仓库号”相同的情况下，再按“职工号”升序排列存放到lever文件中，该数据表文件和ZG数据表文件具有相同的结构。 单击“退出”菜单项，程序终止运行。
在考生文件夹下有仓库数据库CK3，包括如下两个表文件：
CK(仓库号 C(4)，城市C(8)，面积N(4))
ZG(仓库号 C(4)，职工号C(4)，工资N(4))
设计一个名为ZG3的菜单，菜单中有两个菜单项“统计”和“退出”。程序运行时，单击“统计”菜单项，应完成下列操作：检索出所有工资都大于1220元的职工所管理的仓库信息，将结果保存在Wh1数据表(Wh1为自由表)文件中，该文件的结构和CK数据表文件的结构一致，并按面积升序排序。
单击“退出”菜单项，程序终止运行。
注：相关数据表文件存在于考生文件夹下。
