VB考试最后一题VB考试最后一题.docxVIP

（1）在窗体上建立一个名称为Text1的文本框；然后建立两个主菜单，标题分别 为销售业态和帮助，名称分别为vbMenu和vbHelp，其中销售 业态菜单包括大型百货、连锁超市、前店后厂三个子菜单， 名称分别为vbMenu1、vbMenu2、vbMenu3。要求程序运行后，在销售业态 的下拉菜单中选择大型百货，则在文本框内显示：百货大楼；如果 选择连锁超市，则在文本框内显示利客隆；如果选择前店后厂 则在文本框内显示：稻香村。 *注意： 保存时必须存放在考生文件夹下，窗体文件名为wy5.frm，工程文件名 为wy5.vbp。 Private Sub vbmenu1_Click() Text1.Text = 百货大楼End SubPrivate Sub vbmenu2_Click() Text1.Text = 利客隆End SubPrivate 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 If List1.Selected(j) = True Then List2.AddItem List1.List(j) Next j End IfEnd Sub********************************************************************** （2）在名称为Form1的窗体上放置一个名称为Text1的文本框。程序运行后，用 户在文本框中输入的英文字母一律用大写显示（要求焦点在最右端）。 *注意： 保存时必须存放在考生文件夹下，窗体文件名为wy2.frm，工程文件名 为wy2.vbp。　 Private Sub Text1_Change() Text1.Text = UCase(text1.text) Text1.SelStart = Len(Text1.Text)End