2. 计算机
  3. 在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name属性值为mnuMenu),然后为其设计一个子菜单项“增加菜单”(Name 属性值为mnuAdD)另外设置一个标题为空的菜单项(控件数组)，其Name属性值为mnuDyn,Index值为0，Visi

在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name属性值为mnuMenu),然后为其设计一个子菜单项“增加菜单”(Name 属性值为mnuAdD)另外设置一个标题为空的菜单项(控件数组)，其Name属性值为mnuDyn,Index值为0，Visi

admin2009-03-15  53
问题 在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(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
解析 单击mnuAdd菜单项后，首先弹出输入对话框，要求输入新增加的菜单项的标题，接下来是给变量 Indexld赋值，菜单控件数组mnuDyn最初其数组下标Index为0，每增加一个菜单项，则该控件数组的下标应该加1，以指向下一个数组中的下一个控件(菜单)。在解决了下标问题之后，就可将菜单项装载进内存(用于装载控件的语句是Load)，然后将输入的新菜单项的标题赋给该菜单项，最后使得该菜单项可见，即将其 Visible属性设置为True。
转载请注明原文地址:https://kaotiyun.com/show/ZR1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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