3.doc最后一题).docVIP

（1）在窗体上建立一个名称为Text1的文本框；然后建立两个主菜单，标题分别 为销售业态和帮助，名称分别为vbMenu和vbHelp，其中销售 业态菜单包括大型百货、连锁超市、前店后厂三个子菜单， 名称分别为vbMenu1、vbMenu2、vbMenu3。要求程序运行后，在销售业态 的下拉菜单中选择大型百货，则在文本框内显示：百货大楼；如果 选择连锁超市，则在文本框内显示利客隆；如果选择前店后厂 则在文本框内显示：稻香村。 *注意： 保存时必须存放在考生文件夹下，窗体文件名为wy5.frm，工程文件名 为wy5.vbp。 Private Sub vbmenu1_Click() Text1.Text = 百货大楼 End Sub Private Sub vbmenu2_Click() Text1.Text = 利客隆 End Sub Private Sub vbmenu3_Click() Text1.Text = 稻香村 End Sub *********************************************************************** （2）在考生文件夹中有文件wy6.vbp及其窗体文件wy6.frm，该程序是不完整的， 请在有？号的地方填入正确内容，然后删除？及所有注释符（即号），但 不能修改其它部分。存盘时不得改变文件夹和文件名。 本题描述如下： 窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Ch1和Ch2， 标题分别为羽毛球和乒乓球；一个名称为C1、标题为确定的命 令按钮。要求程序运行后，如果只选中Ch1，单击确定命令按钮，则在 文本框中显示：报名参加羽毛球比赛；如果只选中Ch2，然后单击确 定命令按钮，则在文本框中显示：报名参加乒乓球比赛；如果同时选 中Ch1和Ch2，单击确定命令按钮，则在文本框中显示：报名参加羽毛 球和乓乓球比赛；如果Ch1和Ch2都不选，然后单击确定命令按钮，则 在文本框中什么都不显示。 Private Sub C1_Click() Text1.Text = If Ch1.Value And Not Ch2.Value Then Text1.Text = 报名参加羽毛球比赛 If Ch1.Value = 0 And Ch2.Value Then Text1.Text = 报名参加乒乓球比赛 If Ch1.Value And Ch2.Value = 1 Then Text1.Text = 报名参加羽毛球和乒乓球比赛 End Sub ******************************************************************************* 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为Form1的窗体上放置两个列表框，名称分别为List1和List2。在 List1中添加第一题、第二题…第八题，并设置MultiSelect 属性为2（要求在控件属性中设置实现）。再放置一个名称为Cmd1，标题 为复制的命令按钮。程序运行后，如果单击复制按钮，将 List1 中选中的内容(至少两项)复制到List2中。如果选择的项数少于2项，用消 息框提示请选择至少两项。 *注意： 保存时必须存放在考生文件夹下，窗体文件名为wy1.frm，工程文件名 为wy1.vbp。 　　 Private Sub Cmd1_Click() For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then k = k + 1 End If Next i If k 2 Then MsgBox (请选择至少两项) ElseIf k = 2 Then For j = 0 To List1.ListCount - 1 I