多项选择题

在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(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

你可能感兴趣的试题

当线性表的操作无插入和删除时，采用【】结构为好。

答案：正确答案：顺序

由一棵二叉树的前序遍历序列和【】可唯一确定这棵二叉树。

答案：正确答案：中序遍历序列

瀑布模型将软件生存周期划分为【】、开发和运行3个阶段。

答案：正确答案：计划

在结构化分析方法中，用于描述系统中所用到的全部数据和文件的文档称为【】。

答案：正确答案：数据字典

数据模型通常由3部分组成，它们是【】，数据操作和完整性约束。

答案：正确答案：数据结构

以下程序运行后的输出结果是【】。 Private Sub Form _ Click() i=10 ：j=0 Do j=j+1 i=i-1 Loop while i＞2 Print j； End Sub

答案：正确答案：52

多项选择题

下列程序的功能是：把一维数组a的元素，每5个元素赋值给二维数组b的每一行。 Private SubCommand1_Click() Dim a(25)As Integer，b(5，5)As Integer For i=1 To【】 a(i)=Int(Rnd*25) Print a(i)； Next i Print For i=1 To 5 For i=1 To 5 b(i，j)=【】 Print b(i，j)； Next j Print Next i End Sub

多项选择题

在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(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

多项选择题

下列程序的功能是求336的个位和十位数的值，填空补充程序。 Private Sub Command1 Click() n=1 For i=1 To 6 n=n*33 n=n Mod 100 Next i m=【】 n=【】 Print"十位数是”；n；”个位数是”；m End Sub

多项选择题

下面程序的功能是：将数组a中下标值为偶数的元素从小到大排列，其他元素不变。 Dim a(1 To 10)，i，j，k For i=1 To 10 a(i)：InputBox("input：") Next i For i；1 To 10 Print a(i) Next i Print For i=2 To 10【】 For j=i+2 To 10 If【】Then t=a(i) a(i)=a(j) a(j)=t End If Next j Next i For i=1 To 10 Print a(i) Next i