问题 填空题

在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(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
【6】 mnuDyn(InxId)
mnuDyn(Inxld) ,Calption=mnuc
mauDyn(InxId) .Visible=True
End Sub
Private SubmnuDel_Click()
Dim i As Integer
If 【7】 Then
MsgBox "菜单项已全部被删除"
Else
Unload mnuDyn(InxId)
InxId=InxId-1
End If
End Sub

答案

参考答案:[6]Load [7]InxId<1

解析: 本题考查动态菜单的应用,InxId表示动态菜单项的索引,每增加一个菜单项,InxId加一,并用 Load方法将菜单显示出来。而在删除菜单项时,首先判断是否有相应的动态菜单项可以删除,即当InxId的值大于等于1时,才可以使用Unload方法删除最后一个增加的菜单项。

材料题

季羡林和钱学森一文一理,均是中国当代巨擘,2009年先后仙逝。请阅读下面的材料,任选一人,写一段颂词。要求:至少运用两种修辞手法,60字以内。

  季羡林先生(1911.8.6—2009.7.11)

  ①1935年留学德国,1941年获哲学博士学位,并应聘留校任教,奠定了自己在国际印度学学界的地位。②他的学术研究领域主要有印度古代语言、中印佛教史、吐火罗文译释、中印文化交流史、比较文学、美学、文艺理论、东方文化、敦煌学等,范围之广,国内外罕见。③此外,他还创作了许多散文作品,已结集的有《天竺心影》《朗润集》以及《季羡林散文集》等。④他的100多部著作已汇编成24卷《季羡林文集》,在传播中国传统文化、构建全民族人文精神素质方面发挥着重要作用。

  钱学森先生(1911.12.11—2009.10.31)

  ①在美期间获航空工程硕士学位和航空、数学博士学位。从事空气动力学、固体力学和火箭、导弹等领域的研究,28岁时成为世界知名的空气动力学家。②1955年历经艰难回到祖国,后来他组织领导了新中国火箭、导弹和航天器研发工作,为中国火箭、导弹和世界航天事业的迅速发展作出了卓越贡献。③在工程控制、应用力学、系统工程、系统科学和思维研究等领域的研究均有划时代的意义。④国务院、中央军委授予钱学森“国家杰出贡献科学家”荣誉称号和一级英雄模范奖章。

_____________________________________________

单项选择题