[问答题] 注意：下面出现的“考生文件夹”均为c：wexam25160001。 (1)在窗体上建立一个名称为Text1的文本框，然后建立两个主菜单，标题分别为“销售业态”和“帮助”，名称分别为vbMenu和vbHelp，其中“销售业态”菜单包括“大型百货”、“连锁超市”和“前店 后厂”三个子菜单，名称分别为vbMenu1、vbMenu2和vbMenu3。要求程序运行后，在“销售业态”的下拉菜单中选择“大型百货”，则在文本框内显示“百货大楼”；如果选择“连锁超市”，则在文本框内显示“利客隆”：如果选择“前

在窗体上建立好控件后，先设置控件属性，再编写事件过程。
在VisualBasic中，菜单也被看作控件，具有属性和事件。菜单的建立在菜单编辑器中完成，菜单的级数通过内缩符号来表示，第一级菜单没有内缩符号，第二级菜单的内缩符号为1；文本框内容用Text属性来设置。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表8-3。
[*]
第二步：编写程序代码。
参考代码：
PrivateSubvbMenul_Click()
Text1.Text="百货大楼"
EndSub
PrivateSubvbMenu2_Click()
Text1.Text="利客隆"
EndSub
PrivateSubvbMenu3_Click()
Text1.Text="稻香村"
EndSub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)复选框用来表示状态，在程序运行期间可以改变其状态。复选框标题由Caption属性来设置，复选框的Value属性用来表示复选框的状态，其取值有：
0：表示复选框未被选中；
1：表示复选框被选中；
2：表示复选框被禁止使用(灰色)。
解题步骤：
第一步：编写程序代码。
程序提供的代码：
OptionExplicit
PrivateSubC1_Click()
Text1.Text=""
IfCh1.ValueAndNotCh2.ValueThenText1.Text="报名参加羽毛球比赛"
’IfCh1.Value=AndCh2.ValueThenText1.Text：“报名参加乒乓球比赛”
’IfCh1.ValueAndCh2.Value=ThenText1.Text：“报名参加羽毛球和乒乓球比赛”
EndSub
参考代码：
OptionExplicit
PrivateSubC1_Click()
Text1.Text=""
IfCh1.ValueAndNotCh2.ValueThenText1.Text=“报名参加羽毛球比赛”
IfCh1.Value=0AndCh2.ValueThenText1.Text=“报名参加乒乓球比赛”
IfCh1.ValueAndCh2.Value=1ThenText1.Text=“报名参加羽毛球和乒乓球比赛”
EndSub
第二步：调试并运行程序。
第三步：按题目要求存盘。