在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(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
第4题
下面程序的功能是:将数组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
请帮忙给出正确答案和分析,谢谢!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!