vb考试最后一题

《vb考试最后一题》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、（1）在窗体上建立一个名称为Text1的文本框；然后建立两个主菜单，标题分别为"销售业态"和"帮助"，名称分别为vbMenu和vbHelp，其中"销售业态"菜单包括"大型百货"、"连锁超市"、"前店后厂"三个子菜单，名称分别为vbMenu1、vbMenu2、vbMenu3。要求程序运行后，在"销售业态"的下拉菜单中选择"大型百货"，则在文本框内显示："百货大楼"；如果选择"连锁超市"，则在文本框内显示"利客隆"；如果选择"前店后厂"则在文本框内显示："稻香村"。*注意：保存时必须存放在考生文件夹下，窗体文件名为wy5.frm，工程文件名为wy5.vbp。Pr

2、ivateSubvbmenu1_Click()Text1.Text="百货大楼"EndSubPrivateSubvbmenu2_Click()Text1.Text="利客隆"EndSubPrivateSubvbmenu3_Click()Text1.Text="稻香村"EndSub***********************************************************************（2）在考生文件夹中有文件wy6.vbp及其窗体文件wy6.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即

3、'号），但不能修改其它部分。存盘时不得改变文件夹和文件名。本题描述如下：窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Ch1和Ch2，标题分别为"羽毛球"和"乒乓球"；一个名称为C1、标题为"确定"的命令按钮。要求程序运行后，如果只选中Ch1，单击"确定"命令按钮，则在文本框中显示："报名参加羽毛球比赛"；如果只选中Ch2，然后单击"确定"命令按钮，则在文本框中显示："报名参加乒乓球比赛"；如果同时选中Ch1和Ch2，单击"确定"命令按钮，则在文本框中显示："报名参加羽毛球和乓乓球比赛"；如果Ch1和Ch2都不选，然后单击"确定"命令按钮，则在

4、文本框中什么都不显示。PrivateSubC1_Click()Text1.Text=""IfCh1.ValueAndNotCh2.ValueThenText1.Text="报名参加羽毛球比赛"IfCh1.Value=0AndCh2.ValueThenText1.Text="报名参加乒乓球比赛"IfCh1.ValueAndCh2.Value=1ThenText1.Text="报名参加羽毛球和乒乓球比赛"EndSub**************************************************************************

5、*****请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上放置两个列表框，名称分别为List1和List2。在List1中添加"第一题"、"第二题"…"第八题"，并设置MultiSelect属性为2（要求在控件属性中设置实现）。再放置一个名称为Cmd1，标题为"复制"的命令按钮。程序运行后，如果单击"复制"按钮，将List1中选中的内容(至少两项)复制到List2中。如果选择的项数少于2项，用消息框提示"请选择至少两项"。*注意：保存时必须存放在考生文件夹下，窗体文件名为wy1.frm，工程文件名为

6、wy1.vbp。　　PrivateSubCmd1_Click()Fori=0ToList1.ListCount-1IfList1.Selected(i)=TrueThenk=k+1EndIfNextiIfk<2ThenMsgBox("请选择至少两项")ElseIfk>=2ThenForj=0ToList1.ListCount-1IfList1.Selected(j)=TrueThenList2.AddItemList1.List(j)NextjEndIfEndSub***********************************************

7、***********************（2）在名称为Form1的窗体上放置一个名称为Text1的文本框。程序运行后，用户在文本框中输入的英文字母一律用大写显示（要求焦点在最右端）。*注意：保存时必须存放在考生文件夹下，窗体文件名为wy2.frm，工程文件名为wy2.vbp。　PrivateSubText1_Change()Text1.Text=UCase(text1.text)Text1.SelStart=Len(Text1.Text)EndSub****************************************************

8、*************************（