考试说明：
在D盘上建立“考生文件夹”，将“考试素材”文件夹下所有文件夹复制到“考生文件夹”下：
1.在答题的过程中请注意保存；
2.提交前请核对所有文件是否存在；

第一套试卷

试题一（30分）
设计界面如图1-1所示。运行效果如图1-2所示。

操作要求：
1.创建一个“标准EXE”工程，将其窗体文件和工程文件分别“test.frm”“testl.vop”为文件名保存到“考生文件夹\程序设计\试题一”文件夹下。
2.（16分）参照图片1-1完成界面设计，按表1-1添加相关对象并设置相关的属性。
1-1表
对象名 属性 属性值
Forml Capttion 试题一
Framel Caption 字体颜色
Appearance 0
Combol Text 楷体
List 宋体
黑体
隶书
幼圆
微软雅黑
Frame2 Caption 字体效果
Appearance 0
BackColor &HooFFCoFF&
Check1 Caption 加粗
Check2 Caption 下划线
Check3 Caption 删除线
Check4 Caption 斜体
Optionl(0)~Optionl(3)

Caption 分别为“颜色1”“颜色2”“颜色3”“颜色4”
BackColor 颜色自定
Textl Text 2019年VB技能模拟考试题
MultLine True
ScrollBars 2
3.（4分）编写适当事件，当窗体加载时，添加“华文宋体”字体且在选中“隶书”字体前面，且单选按钮的标题“颜色2”选中，文本框中字体是“楷体”，字体颜色是单选按钮（Optionl(1)）选中的背景颜色，字体效果是斜体，显示如图1-2所示。
4.（2分）编写适当事件，单击组合框Combol中内容时，文本框1会显示相应的字体。
5.（4分）编写适当事件，选中复选框中任意一个或多个按扭，文本框1会显示相应的效果，若没有选中则会取消效果（单击一次选中再单击一次取消，不能用IF语句编写）。
6.（2分）编写适当事件，单击任一单选按扭，文本框1中会显示相应的字体颜色（要求不能用IF语句或SELECT CASE语句编写，用一句代码完成）。
7.（2分）保存窗体文件和工程文件，生成可执行文件“testl.exe”保存到“考生文件夹\程序设计\试题一”文件夹下。
试题二（25分）
添加定时器控制，并设置初始化状态：时间间隔0.5秒、不可用。实现功能：单击“启动”按钮，计时器开始工作，按钮的标题变为“停止”；再次单击“停止”按钮，计时器停止工作，按钮标题变成“启动”；计时器事件中实现标签组1（每组6个标签）共计7组从上到下逐组依次出现，然后再从下到上依次逐组出现，如图2-1所示。

操作要求：
1.（4分）添加相关的控件和属性，定时器控件设置初始化状态：时间间隔为0.5秒、不可用。
2.（4分）单击“启动”按钮，定时器开始工作，按钮的标题变为“停止”；再次单击“停止”按钮，计时器停止工作，按钮标题变成“启动”；完成相应的（1）（2）处的填空以实现此功能。
3.（15分）计时器事件中实现标签组1共计7组从上到下逐组依次出现，然后再从下到上依次逐组出现，根据题意完成相应的（3）~（7）处的填空以上程序正确执行实现此功能。调试并运行程序如图2-1所示。
4.（2分）保存窗体和工程文件，生成可执行“test2.exe”并保存“考生文件夹\程序设计\试题二”文件夹下。

试题三（20分）
修改VB程序运行结果如图3-1所示。

打开“考生文件夹\程序设计\试题三”文件夹中的工程文件“test3.vbp”，完成下列操作。
1.（18分）单击“产生”按钮，产生20个[0,9]的随机整数，存放在一堆数组x中，在文本框1中显示；单击“重组1”按钮，统计这20个数中0~9出现的次数，并按0至9顺序在文本框2中显示；单击“重组2”按钮，按文本框中数据顺序将相同数据在文本框3中显示；在事件中的（1）~（9）处正确填写一个表达式或语句（删除所有标号），以让程序正确执行。调试并运行程序实现上述功能。（每空2分，共18分）
2.（2分）保存窗体文件和工程文件，生成可执行程序“test3.exe”并保存到“考生文件夹\程序设计\试题三”文件夹下。

试题一（20分）
某旅游公司推出一项欧洲游人向导服务，并且根据游客选择旅游的城市数量给出相应折扣。
设计一个VB程序，程序界面（如图1-1所示）由图片框Picturel、命令按钮Commandl、标签Labell、列表框Listl以及一组复选框控件数组Checkl组成。程序功能如下：选择需要旅游的城市，单击“确定”按钮，在列表框Listl中显示选中的城市名称，出现消息框显示需要支付的费用。

操作要求：

1.创建一个“EXE”工程，将其窗体文件和工程文件分别“testl.frm”“testl.vbp”为文件名保存到“考生文件夹\程序设计\试题一”文件夹中。
2.（9分）参照程序界面1-1完成界面设计，按表格1-1添加相关对象并设置属性。

3.（2分）利用窗体加载事件，将当前“试题一”文件夹的Pic.jpg图片添加并显示到图片框Picturel中。
4.(8分)选控件数组Checkl中若干个控件，单击“确定”按钮，在列表框Listl中显示所有选中的城市名称（如图1-2所示），并出现消息框显示需要支付的旅游服务费用（如图1-3所示），收费标准参照表1-2.（服务费用计算使用Select Case语句完成）。

5.（1分）保存窗体文件和工程文件，生成可执行程序“testl.exe”并保存到“考生文件夹\程序设计\试题一”文件夹。
试题二（25分）
窗体上有一个标签Labell、一个命令按钮Commandl以及一个列表框Listl（程序界面如图2-1所示）。
修改程序，使之实现如下程序功能：计算（32000,40000）范围内的平方数，若该平方数十个数位上的数字正好是0123456789的不同组合，不重复，不缺失（每个数字均只出现一次），则在列表框Listl中输出。

打开“试题二”文件夹中工程文件“test2.vbp”，将“code2.txt”中的代码复制到适当对象事件过程中，完成下列操作。
1.（25分）分别在代码中的（1）~（5）处填写一条代码（填写完成后，删除标号（1）~（5），以使程序正确执行），调试并运行程序。（每空5分），（共25分）
2.保存工程文件和窗体文件，生成可执行文件“test2.exe”并保存到“考生文件夹\程序设计\试题二”文件夹下。
试题三（30分）
如图3-1所示的VB界面，有4个命令按钮Commandl~Command4（分别为“产生”“排序”“输出”“以及”“清除”），两个文本框Text2，以及一个图片框Picturel。

修改VB程序，使其具有下列功能：
（1）单击“产生”按钮，产生14个互不相同的大小写字母。
（2）单击“安排”按钮，对已产生的14个大写字母按升序排序。
（3）单击“输出”按钮，在图片框中将已排序的14个大写字母按图3-2所示的要求输出，第一行第一个字母输出在第10列。
（4）单击“清除”按钮，清除两个文本框和图片框中所有内容。

打开“试题三”文件夹的工程文件“test3.vbp”，完成下列操作。
1.（30分）在代码中的标号为（1）~（4）处填写一条代码（填写完成后，删除标号（1）~（4）），并对注释（5）~（8）所在行的代码进行修改，调试并运行程序，保证程序
输出正确的结果（标号（1）~（7）为每空4分，标号（8）为2分）
2.保存窗体文件和工程文件，生成可执行程序“test3.exe”并保存到“考生文件夹\程序设计\试题三”文件夹中。

试题一（25分）
设计如图1-1所示的界面。程序功能：单击组合框（Combol）中的任意一句名句添加到文本框（Textl）中。在对齐方式框架（Framel）中任意选择一个单选按钮（数组Optionl）将文本框字体设置为相应的对齐方式。在字形框架（Frame2）中选择一个字形（数组Checkl）则可以对文本框字形进行设置，如选中加粗则字体加粗，不选中则字体加粗。拖动水平滚动条（Hscroll1）的滑块或单击两端小箭头，则可以改变文本框的字体大小。在字体颜色框架（Frame3）中选择一个字体颜色（数组Option2），则可以设置字体颜色。

操作要求：
1.创建一个“标准EXE”工程，将其窗体文件夹和工程文件分别以“testl.frm”“testl.vbp”为文件名保存到“考生文件夹\程序设计\试题一”文件夹下。
2.（10分）按表1-1添加控件并设置相应的属性。
表1-1
对象名 设置内容
窗体Forml 标题显示“字体设置”，窗体运行后位置在屏幕中心（1分）
文本框Textl 默认显示为空白，支持多行显示（0.5分）
组合框Combol 默认显示为空白，样式为简单组合框（0.5分）
框架Frame1 标题显示“对齐方式”（0.5分）
框架Frame2 标题显示“字形”（0.5分）
框架Frame3 标题显示“字体颜色”（0.5分）
控件数组Option1 分别显示“左对齐”“右对齐”“居中对齐”（1.5分）
控件数组Checkl 分别显示“粗体”“删除线”“下画线”（1.5分）
控件数组Option2 分别显示“黑色”“蓝色”“洋红色”（1.5分）
水平滚动条Hscroll1 最大100，最小10，LargeChange为10，SmallChange为5（2分）
3.（3分）窗体加载时，组合框添加三句有关学习的名言，如图1-1所示
4.（1分）单击组合框，将选项内容显示在文本框中。
5.（2分）单击对齐方式设置文本框内容的对齐方式。
6.（3分）单击字形选项设置文本框内容的字形。
7.（2分）拖动滚动条滑块或单击两端小箭头改变文本框内容的字号。
8.（3分）单击字体颜色选项设置文本框字体的字体颜色。
9.（1分）保存窗体文件和工程文件，生成“testl.exe”保存到“考生文件夹\程序设计\试题一”文件夹中。
试题二（20分）
如图2-1所示，程序功能是将英语句子中的每个单词的首字母转换为大写。文本框Textl显示原文本内容，单击“首字母大写”按钮Commandl后，Text2显示首字母大写的效果。

操作要求
1.打开试题二下的“test2.vbp”，将code2中的代码复制到事件过程中。
2.（12分）完成编号（1）~（3）处代码的填写。（填空完成后，删除（1）~（3），每空4分，共（12分）
3.（8分）完成编号（4）（5）处代码的修改。（修改成后，删除（4）（5）每空4分，共8分）
4.按原文件名保存，并生成“test.exe”文件保存到“考生文件夹\程序设计\试题二”文件夹中。
试题三（30分）
如图3-1所示，在文本框Textl中有一句默认显示的英文句子：“Wow Bob’pop racecar level is very good！”，单击按钮Commandl生成按钮，将该句子中的单词显示在列表框Listl中，单击Command2回文字符串按钮，将符合回文字符串的列表项显示早列表框List2中。单击排序按钮，将列表框List2中的列表项升序排序。

操作要求：
1.（2分）打开“试题三”文件夹下的“test3.vbp”，添加排序按钮Command3,并设置访问键Alt+P。
2.（20分）完成编号（1）~（5）处代码的填写。（填空完成后，删除（1）~（5），每空4分，共20分）
3.（8分）完成编号（6）（7）处代码的修改。（修改完成后，删除（6）（7），每空4分，共8分）
4.按原文件名保存，并生成“test3.exe”文件保存到“考生文件夹\程序设计\试题三”文件夹中。

试题一（27分）

1.（1分）设计VB程序，在名为Forml的窗体上画一个文本框Textl，10个按钮，将窗体文件与工程文件分别以“textl.frm”“textl.vbp”为文件名保存到“考生文件夹\程序设计\试题一”文件夹中。
2.（14分）参照图1-1与表1-1属性设置窗体。
表1-1
对象名 属性 属性值 属性 属性值 属性 属性值
Forml Caption 第一题
Textl Font 幼圆、倾斜、二号 MultiLine True ScrollBars 2-Vertical
Text VB
爱VB
喜欢VB
很喜欢VB
非常喜欢VB
特别地喜欢VB Alignment 2-Centre
Command1 Name C1 Caption 加粗
Command2 Name C2 Caption 文字居右
续表
对象名 属性 属性值 属性 属性值 属性 属性值
Command3 Name C3 Caption 背景黄色
Command4 Name C4 Caption 文字变大
Comman5 Name C5 Caption 黑体
Command6 Name C6 Caption 文字红色
Command7 Name C7 Caption 边框变大
Command8 Name C8 Caption 隐藏
Command9 Name C9 Caption 删除线
Command10 Name C10 Caption 退出 Style 1-Garphical
BackColor FFC0FF

3.（2分）编写适当事件，实现字体加粗与不加粗。
4.（1分）编写适当事件，实现字体居右。
5.（1分）编写适当事件，实现字体黄色背景。
6.（1分）编写适当事件，实现字体变大，每次加5.
7.（1分）编写适当事件，实现字体为黑体。
8.（1分）编写适当事件，实现字体为红色。
9.（1分）编写适当事件，实现文本框变大，每次高、宽增加100缇。
10.（2分）编写适当事件，实现文本框隐藏与显示。当文本框为隐藏状态，按钮文字为“显示”；当文本框为显示状态，按钮文字为“隐藏”。
11.（1分）编写适当事件，实现文件框文字删除线效果。
12.（1分）编写适当事件，实现退出。
试题二（24分）
1.（24分）打开“试题二”文件夹下的“test2.vbp”，复制“test2.txt”文件到程序中，并在（1）~（8）处填空。（每空3分，共24分）
2.组合框“请选择发往地区”中有“本市”“江浙泸”“其他省份”三个地区，若没有选择发往地区，则给出提示，如图2-1所示。

3.收费算法：
（1）本市：首重：8元，续重：3元。
（2）江浙泸（除本市）：首重：20元，续重：3元。、
（3）其他省份：首重：20元，续重：10元。
（4）首重为500克重量，续重以500克为一单，下一位续重不足500克按一单位计算。假设首重运费为10元，续重为3元，若你有一包裹重1280克，则运费按如下计算：（2580-500）/500=4.16个续重，按5个续重计算。运费：首重10元+续重5×3元=25元。
4.单击“计算”按钮在Label3输出“您的货物发往:×××”,label4输出“重量：×××，续重单价：×××”。效果如图2-2所示。

试题三（24分）
1.（24分）打开“试题三”文件夹下“test3.vbp”,参照图3-1，复制“test3.txt”文件到程序中，并在（1）~（8）处填空。（每空3分，共24分）
2.输入名称、金额，单击“添加”按钮向列表框1中添加内容，一共可以输入10次。如图3-2所示。
3.单击“排序”按钮，按消费金额进行从高到低排序，如图3-3所示。
4.单击“统计按钮”，通过标签显示共消费的金额，如图3-4所示。
5.单击“返回”按钮，并关闭本窗体。

试题一（30分）
新建“标准EXE”工程文件，界面如图1-1所示。程序功能：单击“添加”按钮，出现如图1-2所示的输出框，输入一个正确中文字体，并添加到列表末尾；单击“删除”按钮，判断列表框中有无选中字体，有则删除；选择相应的颜色（单选按钮控件数组），设置标签的文字颜色；选择相应的字体（列表框），设置标签字体，运行效果如图1-3所示；单击“退出”按钮，结束程序。
操作要求：

操作要求：
1.（2分）创建一个“标准EXE”工程，将其窗口文件和工程文件分别以“testl.frm”“testl.vbp”为文件名保存到“考生文件夹\程序设计\试题一”文件夹下。
2.（9分）参照效果图1-1完成界面设计，按表1-1添加相关对象并设置相关属性。
表1-1
对象类型/名称 属性 属性值 对象类型/名称 属性 属性值
窗体/Label1 BorderStyle 1 框架/Frame1 Caption 颜色
Height 4500 单击按钮/Optionl（0） Value True
Width 7300 Caption 红色
Caption 文本格式 BackColor &H000000FF&
标签/Label1

Caption 长风破浪会有时，
直挂云帆济沧海。
框架/Frame2 Caption 字体 单击按钮/Optionl（1） Caption 绿色
列表框/List1
List 黑体
仿宋 BackColor &H000000FF&
命名按钮/Command1 Caption 添加 单击按钮/Optionl（2） Caption 蓝色

命名按钮/Command2 Caption 删除 BackColor &H000000FF&
命名按钮/Command3 Caption 退出 命名按钮/Command3 Cancel True
3.（18分）按题中要求编写代码：窗体加载时标签颜色为红色（事件1分，事件过程2分）；“添加”按钮功能正确实现（3分）；“删除”按钮功能正确实现（4分）；实现标签颜色设置（3分）；实现标签字体设置（4分）；“退出”按钮功能正确实现（1分）。
4.（1分）保存窗体文件和工程文件，生成可执行程序“testl.exe”并保存到“考生文件夹\程序设计\试题一”文件夹下。
注意：程序中不允许出现任何自定义变量。
试题二（25分）
在“试题二”文件夹下有“test2.vbp”工程文件。如图2-1所示，窗体中有两个图片框，名称分别为P1、P2、P1的图片是一朵云彩，P2的图片在程序运行时自动加载为一个航天飞机（图片文件在“试题二”文件夹下），还有一个计时器，名称为Timerl，两个命名按钮，名称分别为C1、C2。程序功能：运行时自动加载一个航天飞机到P2图片框；单击“发射”按钮，“发射”按钮隐藏，“重发”按钮可见，航天飞机以每0.1秒移动到100缇速度发射，当碰到云朵时，出现如图2-1所示的消息框，并停止；单击“重发”按钮，“发射”按钮可见，“重发”按钮隐藏，航天飞机回到初始位置，等待重发。

操作要求：
打开“试题二”文件夹的工程文件“test2.vbp”。
1.（2分）设置计时器的属性，使其初始状态下不工作；使其每隔0.1秒调用Timer事件过程一次。
2.（2分）设置命令按钮C1的访问键ALt+F，效果如；设置命令按钮C2不可见。
3.（20分）复制“2.txt”中的代码到合适的事件（2分），并在（1）~（9）处填空（每空3分，共18分），使程序正确运行，实现功能。
4. （1分）保存文件，并生成“test2.exe”保存到“考生文件夹\程序设计\试题二”文件夹下。
试题三（20分）
在“试题三”文件夹下有一个工程文件“test3.vbp”,修改VB程序，使其具有下列功能：滚动条的值每改变一次，就在下方的文本框Text1中积累输出滚动条当前值对应的ASCII字符;单击“处理”按钮Command1，查找文本框中的最大字符（英文字符不区分大小写），在改字母后面插入字符串“（max）”，并将结果显示在标签label1中。程序运行界面如图3-1所示。
操作要求：
1.（4分）选择适当事件，编写事件过程实现：滚动条的值每改变一次，就在下方的文本框Text中积累输出滚动条当前值对应的ASCII字符。（事件1分，代码3分，共4分）
2.（15分）在程序（1）~（5）处填空，使程序正确运行，实现功能。（每空3分，15分）
3.(1分)直接保存，并生成“test3.exe”文件保存到“考生文件夹\程序设计\试题三”文件夹下。

试题-（30分）
新建“标准EXE”工程文件，界面如图1-1所示，窗体上有一个文本框（用于显示电话号码）；由10个命令按钮组成的控件数组（数字键，用于拨号），连续单击命令按钮Command1，在文本框中连续显示相应的数字，数字刚好11位、7位时按钮有效；单击后，则显示新窗体Form2，Form1隐藏，10秒后结束程序，新窗体Form2界面如图1-2所示；单击则取消③之前拨号即文本框被清空。