如果结果不匹配，请 
更多“运行时动态增减菜单项必须使用菜单数组，增加菜单项时需要采用【…”相关的问题
注意：下面出现的“考生文件夹”均为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)
A.单击【菜单浏览器】按钮，在弹出菜单中选择【工具】→【草图设置】菜单项
B.右击状态栏中的【动态输入】按钮，在弹出的快捷菜单中选择【设置】菜单项
C.【打印】命令
D.在命令提示行中输入命令"DSETTINGS"并按"空格"键或Enter键
在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(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数据表文件具有相同的结构。 单击“退出”菜单项，程序终止运行。
