[填空题] 在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name属性值为mnuMenu)，然后为其设计两个子菜单项“增加菜单”(Name属性值为mnuA

[填空题] 在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name属性值为mnuMenu)，然后为其设计两个子菜单项“增加菜单”(Name属性值为mnuAdd) 和“减少菜单”(Name属性值为mnuDel)，另外设置一个标题为空的菜单项

Dim Inxld As Integer

Private Sub mnuAdd_Click()

Dim mnuc As String

mnuc=InputBox("input caption")

InxId；InxId+1

【6】 mnuDyn(InxId)

mnuDyn(Inxld) ，Calption=mnuc

mauDyn(InxId) .Visible=True

End Sub

Private SubmnuDel_Click()

Dim i As Integer

If 【7】 Then

MsgBox "菜单项已全部被删除"

Else

Unload mnuDyn(InxId)

InxId=InxId-1

End If

End Sub

[6]Load [7]InxId＜1

本题考查动态菜单的应用，InxId表示动态菜单项的索引，每增加一个菜单项，InxId加一，并用 Load方法将菜单显示出来。而在删除菜单项时，首先判断是否有相应的动态菜单项可以删除，即当InxId的值大于等于1时，才可以使用Unload方法删除最后一个增加的菜单项。