VB考试最后一题.docx

（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 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 Sub*（1）在考生文件夹中有工程文件wy5.vbp及其窗体文件wy5.frm，该程序是不完 整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即号） 但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一 个命令按钮，名称为 C1，标题为复制。要求程序运行后，在列表框中 自动建立四个列表项，分别为Item1、Item2、Item3、Item4 如果选择列表框中的一项，则单击复制按钮时，可以把该项复制到文本 框中（如图所示）。 Option ExplicitPrivate 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 iEnd SubPrivate Sub Form_Load() List1.AddItem Item1 List1.AddItem Item2 List1.AddItem Item3 List1.AddItem Item4End Sub* （2）在考生文件夹中有工程文件wy6.vbp及其窗体文件wy6.frm ，该程序是不完 整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即号） 但不能修改其它部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗体有三个复选框，名称分别为 Ch1、Ch2和Ch3，标题依次为体育、 音乐、美术，还有一个命令按钮，名称为C1，标题为显示。要 求程序运行后，如果选中某个复选框，则当单击显示命令按钮时，则显示 相应的信息。例如，如果选中体育和音乐复选框，则单击显示 命令按钮后，在窗体上显示我的爱好是体育音乐（如图所示）；而如果 选中体育、音乐和美术复选框，则单击显示按钮后，在窗 体上显示我的爱好是体育音乐美术。 Option ExplicitPrivate 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 sEnd Sub*（1）在窗体上建立一个名称为Text1的文本框。然后建立两个主菜单，其标题 分别为颜色、帮助，名称分别为vbColor和vbHelp。其中颜色 菜单包括红色、蓝色、黄色三个子菜单项，名称分别为 red、 blue、yellow。程序运行后，如果单击红色菜单项， 则文本框内显示 小写字母串red；如果单击蓝色菜单项，则在文本框内显示小写字 母串blue； 如果单击黄色菜单项，则在文本框内显示小写字母串 yellow（要求：不能使用任何变量，直接显示字符串）。 *注意： 保存时必须存放在考生文件夹下，窗体文件名为wy5.frm，工程文件名 为wy5.vbp。 Private Sub blue_Click() Text1.Text = blueEnd SubPrivate Sub red_Click() Text1.Text = redEnd SubPrivate Sub yellow_Click() Text1.Text = yellowEnd Sub* （2）在考生文件夹中有文件wy6.vbp及其窗体文件wy6.frm，该程序是不完整的， 请在有？号的地方填入正确内容，然后删除？及所有注释符（即号），但 不能修改其它部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗体上有一个名称为Text1的文本框，还有两个名称分别为Ch1和Ch2，标 题分别为程序设计和数据库原理的复选框，一个名称为C1，标题 为确定的命令按钮，编写适当的事件过程。 要求程序运行后，如果只 选中Ch1，然后单击确定命令按钮，则在文本框中显示学习程序设计 如果只选中Ch2，然后单击确定命令按钮，则在文本框中显示学习数 据库原理；如果同时选中Ch1和Ch2，然后单击确定命令按钮，则在 文本框中显示：学习程序设计和数据库原理；如果Ch1和Ch2都不选， 然后单击确定命令按钮，则在文本框中什么都不显示。 Option ExplicitPrivate Sub C1_Click() Text1.Text = If Ch1.Value = 1 Then Text1.Text = Text1.Text + 程序设计 End If If Ch2.Value Then If Text1.Text Then Text1.Text = Text1.Text + 和 Text1.Text = Text1.Text + 数据库原理 End If If Text1.Text Then Text1.Text = 学习 + Text1.Text End IfEnd 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分以上End SubPrivate Sub vbmenu2_Click() Text1.Text = 75分至85分End SubPrivate Sub vbmenu3_Click() Text1.Text = 60分至75分End Sub* （2）在考生文件夹中有文件wy6.vbp及其窗体文件wy6.frm，该程序是不完整的， 请在有？号的地方填入正确内容，然后删除？及所有注释符（即号），但 不能修改其它部分。存盘时不得改变文件夹和文件名。 本题描述如下： 窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Ch1和Ch2， 标题分别为英语班和计算机班；一个名称为C1、标题为确定 命令按钮。要求程序运行后，如果只选中Ch1，单击确定命令按钮，则 在文本框中显示：报名参加英语班；如果只选中Ch2，单击确定命 令按钮，则在文本框中显示：报名参加计算机班；如果同时选中 Ch1 和Ch2，然后单击确定命令按钮，则在文本框中显示：报名参加英语 班和计算机班；如果Ch1和Ch2都不选，然后单击确定命令按钮