在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name属性值为mnuMenu),然后为其设计一个子菜单项“增加菜单”(Name 属性值为mnuAdd) 另外设置一个标题为空的菜单项(控件数组)，其Name属性值为mnuDyn,Index值为0，Visible属性值为False；然后编写以下程序来实现增加菜单项的功能。 Dim IndexId As Integer Private Sub mnuAdd_Click( ) Dim mnuCaption As String mnuCaption = InputBox("请输入菜单项的标题") IndexId = 【13】 【14】 mnuDyn(IndexId) mnuDyn(IndexId) . Caption = mnucaption mnuDyn(IndexId) . 【15】 = True End Sub