《vb考试最后一题》由会员分享，可在线阅读，更多相关《vb考试最后一题（7页珍藏版）》请在金锄头文库上搜索。
1、（1）在窗体上建立一个名称为Text1的文本框；然后建立两个主菜单，标题分别 为“销售业态“和“帮助“，名称分别为vbMenu和vbHelp，其中“销售 业态“菜单包括“大型百货“、“连锁超市“、“前店后厂“三个子菜单， 名称分别为vbMenu1、vbMenu2、vbMenu3。要求程序运行后，在“销售业态“ 的下拉菜单中选择“大型百货“，则在文本框内显示：“百货大楼“；如果 选择“连锁超市“，则在文本框内显示“利客隆“；如果选择“前店后厂“ 则在文本框内显示：“稻香村“。 *注意： 保存时必须存放在考生文件夹下，窗体文件名为wy5.frm，工程文件名 为wy5.vbp。 Private Su
2、b 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的文本框；两个复选框，名称分别为Ch
3、1和Ch2， 标题分别为“羽毛球“和“乒乓球“；一个名称为C1、标题为“确定“的命 令按钮。要求程序运行后，如果只选中Ch1，单击“确定“命令按钮，则在 文本框中显示：“报名参加羽毛球比赛“；如果只选中Ch2，然后单击“确 定“命令按钮，则在文本框中显示：“报名参加乒乓球比赛“；如果同时选 中Ch1和Ch2，单击“确定“命令按钮，则在文本框中显示：“报名参加羽毛 球和乓乓球比赛“；如果Ch1和Ch2都不选，然后单击“确定“命令按钮，则 在文本框中什么都不显示。 Private Sub C1_Click() Text1.Text = “ If Ch1.Value And Not Ch2.Valu
4、e 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（要求在控件
5、属性中设置实现）。再放置一个名称为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 For j =
6、0 To List1.ListCount - 1 If List1.Selected(j) = True Then List2.AddItem List1.List(j) Next j End If End Sub * （2）在名称为Form1的窗体上放置一个名称为Text1的文本框。程序运行后，用 户在文本框中输入的英文字母一律用大写显示（要求焦点在最右端）。 *注意： 保存时必须存放在考生文件夹下，窗体文件名为wy2.frm，工程文件名 为wy2.vbp。 Private Sub Text1_Change() Text1.Text = UCase(text1.text) Text1.Sel
7、Start = Len(Text1.Text) End Sub * （1）在考生文件夹中有工程文件wy5.vbp及其窗体文件wy5.frm，该程序是不完 整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即号） 但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一 个命令按钮，名称为 C1，标题为“复制“。要求程序运行后，在列表框中 自动建立四个列表项，分别为“Item1“、“Item2“、“Item3“、“Item4“ 如果选择列表框中的一项，则单击“复制“按钮时，可以把该项复制到文本 框中（
8、如图所示）。 Option Explicit Private Sub C1_Click() Dim i As Integer For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then Text1.Text = List1.List(i) End If Next i End Sub Private Sub Form_Load() List1.AddItem “Item1“ List1.AddItem “Item2“ List1.AddItem “Item3“ List1.AddItem “Item4“ End Sub *
9、（2）在考生文件夹中有工程文件wy6.vbp及其窗体文件wy6.frm ，该程序是不完 整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即号） 但不能修改其它部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗体有三个复选框，名称分别为 Ch1、Ch2和Ch3，标题依次为“体育“、 “音乐“、“美术“，还有一个命令按钮，名称为C1，标题为“显示“。要 求程序运行后，如果选中某个复选框，则当单击“显示“命令按钮时，则显示 相应的信息。例如，如果选中“体育“和“音乐“复选框，则单击“显示“ 命令按钮后，在窗体上显示“我的爱好是体育音乐“（如图所示）；而如果 选中“体育“、“音乐“
10、和“美术“复选框，则单击“显示“按钮后，在窗 体上显示“我的爱好是体育音乐美术“。 Option Explicit Private Sub C1_Click() Dim s As String s = “我的爱好是“ If Ch1.Value = 1 Then s = s + Ch1.Caption End If If Ch2.Value = 1 Then s = s + Ch2.Caption End If If Ch3.Value = 1 Then s = s + Ch3.Caption End If Print s End Sub * （1）在窗体上建立一个名称为Text1的文本框。然后
11、建立两个主菜单，其标题 分别为“颜色“、“帮助“，名称分别为vbColor和vbHelp。其中“颜色“ 菜单包括“红色“、“蓝色“、“黄色“三个子菜单项，名称分别为 red、 blue、yellow。程序运行后，如果单击“红色“菜单项， 则文本框内显示 小写字母串“red“；如果单击“蓝色“菜单项，则在文本框内显示小写字 母串“blue“； 如果单击“黄色“菜单项，则在文本框内显示小写字母串 “yellow“（要求：不能使用任何变量，直接显示字符串）。 *注意： 保存时必须存放在考生文件夹下，窗体文件名为wy5.frm，工程文件名 为wy5.vbp。 Private Sub blue_Clic
12、k() Text1.Text = “blue“ End Sub Private Sub red_Click() Text1.Text = “red“ End Sub Private Sub yellow_Click() Text1.Text = “yellow“ End Sub * （2）在考生文件夹中有文件wy6.vbp及其窗体文件wy6.frm，该程序是不完整的， 请在有？号的地方填入正确内容，然后删除？及所有注释符（即号），但 不能修改其它部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗体上有一个名称为Text1的文本框，还有两个名称分别为Ch1和Ch2，标 题分别为“程序设计
13、“和“数据库原理“的复选框，一个名称为C1，标题 为“确定“的命令按钮，编写适当的事件过程。 要求程序运行后，如果只 选中Ch1，然后单击“确定“命令按钮，则在文本框中显示“学习程序设计“ 如果只选中Ch2，然后单击“确定“命令按钮，则在文本框中显示“学习数 据库原理“；如果同时选中Ch1和Ch2，然后单击“确定“命令按钮，则在 文本框中显示：“学习程序设计和数据库原理“；如果Ch1和Ch2都不选， 然后单击“确定“命令按钮，则在文本框中什么都不显示。 Option Explicit Private Sub C1_Click() Text1.Text = “ If Ch1.Value = 1
14、Then Text1.Text = Text1.Text + “程序设计“ End If If Ch2.Value Then If Text1.Text “ Then Text1.Text = “学习“ + Text1.Text End If End Sub * （1）在窗体上建立一个名称为Text1的文本框，然后建立两个主菜单，标题分别 为“学分等级“和“帮助“，名称分别为vbMenu和vbHelp，其中“学分等 级“菜单包括“等级A“、“等级B“、“等级C“三个子菜单，名称分别为 vbMenu1、vbMenu2、vbMenu3。要求程序运行后，如果在“学分等级“的下 拉菜单中选择“等级A“，则在文本框内显示：“85分以上“； 如果选择 “等级B“，则在文本框内显示：“75分至85分“； 如果选择“等级C“， 则在文本框内显示：“60分至75分“（要求：不能使用任何变量，直接显 示字符串）。 *注意： 保存时必须存放在考生文件夹下，窗体文件名为wy5.frm，工程文件名 为wy5.vbp。 Private Sub vbmenu1_Click() Text1.Text = “85分以
