[填空題] 在窗體上利用菜單編輯器設(shè)計(jì)一個(gè)主菜單項(xiàng)“菜單控制”(Name屬性值為mnuMenu)，然后為其設(shè)計(jì)兩個(gè)子菜單項(xiàng)“增加菜單”(Name屬性值為mnuA
[填空題] 在窗體上利用菜單編輯器設(shè)計(jì)一個(gè)主菜單項(xiàng)“菜單控制”(Name屬性值為mnuMenu)，然后為其設(shè)計(jì)兩個(gè)子菜單項(xiàng)“增加菜單”(Name屬性值為mnuAdd) 和“減少菜單”(Name屬性值為mnuDel)，另外設(shè)置一個(gè)標(biāo)題為空的菜單項(xiàng)
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 "菜單項(xiàng)已全部被刪除"
Else
Unload mnuDyn(InxId)
InxId=InxId-1
End If
End Sub
正確答案：[6]Load [7]InxId＜1
參考解析：本題考查動(dòng)態(tài)菜單的應(yīng)用，InxId表示動(dòng)態(tài)菜單項(xiàng)的索引，每增加一個(gè)菜單項(xiàng)，InxId加一，并用 Load方法將菜單顯示出來(lái)。而在刪除菜單項(xiàng)時(shí)，首先判斷是否有相應(yīng)的動(dòng)態(tài)菜單項(xiàng)可以刪除，即當(dāng)InxId的值大于等于1時(shí)，才可以使用Unload方法刪除最后一個(gè)增加的菜單項(xiàng)。
詞條內(nèi)容僅供參考，如果您需要解決具體問(wèn)題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。