在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(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
A.面包黄油,冷菜,汤,主菜,甜点,咖啡,水果
B.主菜,面包黄油,冷菜,汤,甜点,咖啡,水果
C.冷菜,汤,面包黄油,主菜,甜点,咖啡,水果
D.甜点,面包黄油,冷菜,汤,主菜,咖啡,水果
A.面包黄油,冷菜,汤,主菜,甜点,咖啡,水果
B.主菜,面包黄油,冷菜,汤,甜点,咖啡,水果
C.冷菜,汤,面包黄油,主菜,甜点,咖啡,水果
D.甜点,面包黄油,冷菜,汤,主菜,咖啡,水果
A.调查客人食物中毒的原因
B.了解当时就餐的人员数量及就餐时间
C.有关食物留样待检
D.及时向公司总部报告
E.客人就诊期间,酒店应主动尽人道责任,指派专人到医院进行探望和慰问
尴尬的中国人
一天傍晚,巴黎的一家餐馆来了一群中国人,老板安排了一位中国使者为他们服务,交谈中得知他们是东北某县的一个考察团,今天刚到巴黎。随后使者向他们介绍了一些法国菜,他们不问贵贱,主菜配菜一下子点了几十道,使者担心他们吃不完,何况菜价不菲,但他们并不在乎。
点完菜,他们开始四处拍照,竞相和服务小姐合影,甚至跑到门外一辆凯迪拉克汽车前面频频留影,还不停地大声说笑,用餐时杯盘刀叉的碰撞声乃至嘴巴咀嚼食物的声音,始终不绝于耳,一会儿便搞得杯盘狼藉,桌子、地毯上到处是油渍和污秽。坐在附近的一位先生忍无可忍,向店方提出抗议,要他们马上停止喧闹,否则就要求换座位。