A-A+
在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name属性值为mnuMenu) 然后为
问题详情
在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(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 =【 】
【 】mnuDyn(IndexID) mnuDyn(IndexID). Caption = mnucaption
mnuDyn(IndexID). 【 】= True
End Sub请帮忙给出正确答案和分析，谢谢！
参考答案
正确答案：Indexld+1 Load Visible
Indexld+1 ,Load ,Visible 解析：单击mnuAdd菜单项后，首先弹出输入对话框，要求输入新增加的菜单项的标题，接下来是给变量 Indexld赋值，菜单控件数组mnuDyn最初其数组下标Index为0，每增加一个菜单项，则该控件数组的下标应该加1，以指向下一个数组中的下一个控件(菜单)。在解决了下标问题之后，就可将菜单项装载进内存(用于装载控件的语句是Load)，然后将输入的新菜单项的标题赋给该菜单项，最后使得该菜单项可见，即将其 Visible属性设置为True。
