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

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

admin2009-03-15  46
问题 在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(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
选项
答案Load ,InxId＜1
解析 本题考查动态菜单的应用，InxId表示动态菜单项的索引，每增加一个菜单项，InxId加一，并用 Load方法将菜单显示出来。而在删除菜单项时，首先判断是否有相应的动态菜单项可以删除，即当InxId的值大于等于1时，才可以使用Unload方法删除最后一个增加的菜单项。
转载请注明原文地址:https://jikaoti.com/ti/Qyq0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)