点击查看：2016年9月计算机二级VB考前15天冲刺必做试题汇总
一、基本操作题
(1)在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性，满足如下要求：
①Text2可以显示多行文本，并且有垂直和水平两个滚动条;
②程序运行时在Textl中显示输入的字符为“*”。
程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl.vbp，窗体文件名保存为sjtl.frm。
(2)在名称为Forml的窗体上添加一个名称为Imagel的图像框，其高、宽分别为l900、1700，通过属性窗口把考生文件夹下的图像文件picl.bmp载入图像框;再画两个命令按钮控件，名称分别为Cl、C2，标题分别为“放大”、“缩小”，如图所示。
要求：
①请编写适当的事件过程，程序运行后，如果单击“放大”按钮，则将图像框的高度、宽度均增加100;单击“缩小”按钮，则将图像框的高度、宽度均减少100，要求程序中不得使用任何变量。
②通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sit2.vbp，窗体文件名保存为sjt2.frm。
微信搜索"考试吧"获取更多考试资讯、备考资料
二、简单应用题
(1)考生文件夹下有一个工程文件sjt3.vbp，其功能是：
①单击“读数据”按钮，则将考生文件夹下in3.dat文件中的100个0—999的整数读入到数组a中;
②单击“计算”按钮，则找出这l00个整数中的所有水仙花数，并将它们的最大值与最小值分别显示在文本框Textl、Text2中(注：当一个数的值等于该数中的各位数字的立方和时，此数被称为水仙花数。如：l53=13+53+33，所以153就是一个水仙花数)。
在窗体文件中已经给出了全部控件(如图所示)和“读数据”命令按钮的事件过程以及判断一个数是否为水仙花数的通用过程。要求编写“计算”命令按钮的事件过程。
注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须进行“计算”，并且必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上添加一个组合框，名称为cbl，并输入三个列表项：“3”、“7”、“11”(列表项的顺序不限，但必须是这三个数字);添加一个名为Textl的文本框;再添加一个标题为“计算”、名称为cl的命令按钮，如图所示。请编写适当的事件过程，使得在程序运行时，在组合框中选定一个数字后，单击“计算”按钮，则计算5000以内能够被该数整除的所有数之和，并放入Textl中。最后，按原文件名存盘。
提示：由于计算结果较大，应使用长整型变量。
注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。并且必须用窗体右上角的关闭按钮结束程序，否则无成绩。
微信搜索"考试吧"获取更多考试资讯、备考资料
三、综合应用题
在考生文件夹下有一个工程文件sjt5.vbp，其名称为Forml的窗体上已有三个文本框Textl、Text2、Text3，以及部分程序代码，请完成以下工作。
①在属性窗口中修改Text3的适当属性，使其在运行时不显示，作为模拟的剪贴板使用，窗体如图所示。
②建立下拉式菜单，如下表所示。
③窗体文件中给出了所有事件过程，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，以便实现如下功能：当光标所在的文件框中无内容时，“剪切”、“复制”不可用，否则可以把该文本框中的内容剪切或复制到Text3中;若Text3中无内容，则“粘贴”不能用，否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。
注意：不能修改程序中的其他部分，各菜单项的标题名称必须正确。最后将修改后的文件按原文件名存盘。
微信搜索"考试吧"获取更多考试资讯、备考资料
一、基本操作题
(1)【考点分析】本题考点有：窗体的Caption属性，文本框的Name、Width、Hei【ght、PasswordChar、Text、MuhiLine、ScrollBars属性。
【解题思路】文本框控件的MuhiLine属性用于设置文本框是否显示多行文本，值为True表示是，值为False则表示否。ScrollBars属性设置文本框是否有水平或垂直滚动条，它有0、l、2和3这4个值，0表示没有滚动条(默认值)，1表示只有水平滚动条，2表示只有垂直滚动条，3表示有水平和垂直滚动条。文本框的PasswordChar属性常用于设置用某字符(如“*”)屏蔽用户在文本框中键入的内容，常用于口令输入。
【操作步骤】
步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉及的控件及属性见表3.8和表3.9。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】由于ScrollBars属性的设置值较多，易混乱，请考生牢记4个值分别设置的文本框滚动条属性。
(2)【考点分析】本题考点有：图像框的Name、Width、Height、Picture和Stretch属性，命令按钮的Name、Caption属性。
【解题思路】图像框(Image)控件的Picture属性用于在设计阶段时装载在图像框中显示的图片，它的Stretch(自动伸缩)属性用来设定载入其中的图片是否需要自动调整，以适应图像框的大小。图像框的宽和高分别由其Width属性和Hcight属性设置。
本题要在单击按钮时实现“放大”或“缩小”的功能，应在程序中动态设置图像框大小(宽和高)，即在其原来基础上增加或减小图像框的宽和高。
【操作步骤】
步骤1：新建一个窗体，按照题目要求建立控件并设置图像框相应属性，如图3.17所示。
步骤2：按照步骤I设置其他控件相关属性，程序中涉及的控件及属性见表3.10。
步骤3：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
PrivateSubClCIick()´当单击"放大"按钮时，依次将Imagel的高与宽分别加100
Imagel.Height=Imagel。Height+100
Imagel.Width=Imagel.Width+100
EndSub
PrivateSubC2C1ick()1当单击”缩小”按钮，则依次将Imagel的高与宽分别减100
Imagel.Height=Imagel.Height-100
Imagel.Width=Imagel。Width-100
EndSub
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
微信搜索"考试吧"获取更多考试资讯、备考资料
二、简单应用题
(1)【考点分析】本题考点有：变量初值定义、If判断语句、For选择语句、Val()函数、Fix()函数以及文件操作。
【解题思路】循环遍历数组a，通过调用Function过程判断是否为水仙花数，并通过If语句对数值进行比较，如果Fnsx<=a(i)，那么max=a(i)，最小值同理。在设置变量初值时，max=-I，min=1000，目的是方便比较数的大小。
因为数组中的数值最小的是0，最大的是999，所以，让max先等于-1，小于数组中的最小值，在程序执行过程中，只要有水仙花数，就一定会大于max，这样才会赋值给max，min=1000也是同样的道理。
【操作步骤】
步骤1：按照题目要求打开工程文件。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
DimiAsInteger
DimmaxAsInteger，minAsInteger
max=-1
min=1000
Fori=1T0100
Ifisnarc(a(i))Then'调用isnarc判断是否为水仙花数
Ifmax<=a(i)Thenmax=a(i)
Ifmin>=a(i)Thenmin=a(i)’求水仙花
数中的最大值与最小值
EndIf
Nexti
Textl=max
Text2=min
步骤3.按照题目要求调试并运行程序，如图3.18所示。
步骤4：关闭程序后，按题目要求存盘。
【易错提示】Function过程比较复杂，只有了解了内部函数的用法，才能对水仙花数的判断有一个清晰的思路。对于最值的求解，则要注意变量初值的处理。
(2)【考点分析】本题考点有：文本框的Name属性、组合框的Name和I.ist属性、命令按钮的Name和Caption属性、Val()函数以及Mod取模运算。
【解题思路】本题主要考查组合框的属性及For循环语句的使用。
Mod取模运算就是求余数，例如10mod3=1，因为10除以3等于3余1，结果就是余数。如果amodb=0，则说明a能被b整除，反之如果amodb<>0，则a不能被b整除。
组合框(ComboBox)将文本框与列表框的特性组合在一起，既可以在组合框的文本框部分输入信息，也可在列表框部分选择项目;组合框的列表项可在设计阶段通过其List属性添加，每输入完一项后按键换行再输入下一项;其Text属性用于设置或返回其文本框部分当前的文本。
根据题意，用For逐一循环5000内的整数，通过If语句的条件表达式：iModn=0，判断各个数是否能被n整除，把能被整除的数累加到变量sum。i为循环变量，n的值为Val(Cbl.Text)。
【操作步骤】
步骤1：打开本题工程文件，按照题目要求建立控件并设置组合框控件属性，如图3.19所示。程序中用到的控件及属性见表3.11。
步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。
参考答案
PrivateSubCl_Click()
DimsumAsLong
DimnAsInteger
DimiAsInteger
n=Val(cbl.Text)’读取选中的数字并通过函数
Vai转换为数值
Fori=nT05000´从本身开始循环查找
IfiModn=0Then
sum=Sum+i´判断是否能被该数整除并求和
EndIf
Nexti
Textl.Text=sum.在Textl中显示
EndSub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】在定义变量时注意，由于数值较大，应定义为长整型变量，防止数值过大溢出。
微信搜索"考试吧"获取更多考试资讯、备考资料
三、综合应用题
【考点分析】本题考点有：文本框的Visible和Text属性、菜单编辑器的使用(名称、内缩符号)、菜单项的Enabled属性、If选择判断语句、For循环语句以及焦点触发的GotFocus事件过程。
【解题思路】本题中隐藏的文本框Text3的功能相当：f剪贴板。在文本框(Textl或Text2)获得焦点触发的GotFo-CUS事件过程中，用窗体变量which记录下该文本框序号(1或2)。在“编辑”菜单的Click事件过程中，首先根据which的不同值来判断相应文本框(Textl或Text2.)的内容是否为空，如果内容为空则设置“剪切”和“复制”菜单项不可用。否则设置“剪切”和“复制”菜单项可用;其次判断Text3文本框的内容是否为空，如果内容为空则设置“粘贴”菜单项不可用，否则设置“粘贴”菜单项可用。
在“复制”命令的单击事件过程中，根据which的值不同，将相应文本框(Textl或Text2)中的内容复制到Text3文本框中。在“剪切”命令的单击事件过程中除应执行与“复制”命令相同的语句外，还应执行清除当前文本框中内容的语句。在“粘贴”命令的单击事件过程中，也要根据which值的不同，将Text3文本框中的内容粘贴到文本框中的原内容之后。
【操作步骤】
步骤1：打开本题工程文件，将Text3的Visible属性设置为False，然后按照题目要求建立菜单并设置其属性，如图3.20所示。
菜单属性如表3.12所示。
步骤2：打开代码编辑窗口，去掉程序中的注释符“´”，
将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
DimwhichAsInteger
PrivateSubcopy_Click()´复制按钮
Ifwhich=1Then。当焦点在Textl中，将
Textl中的内容复制给Text3
Text3.Text=Textl.Text
ElseIfwhich=2Then’同理，焦点在Text2
中，将Text2中的内容复制给Text3
Text3.Text=Text2.Text
EndIf
EndSub
PrivateSubcutClick()´剪切按钮
Ifwhich=1Then‘当焦点在Textl中，则将内容
复制给Text3，并清空Textl内容
Text3.Text=Textl.Text
Textl.Text=””
ElseIfwhich=2Then´同上
Text3.Text=Text2.Text
Text2.Text=””
EndIf
EndSub
PrivateSubeditClick()´编辑
Ifwhich=__________Then
IfTextl.Text=””Then
Cut.Enabled=FalSe
Copy.Enabled=False
E1Se
Cut.Enabled=True
Copy.Enabled=True
EndIf
ElseIfwhich=__________Then
IfText2.Text=""Then
Cut.Enabled=FalSe
Copy.Enabled=FalSe
E1Se
Cut.Enabled=True
Copy.Enabled=True
EndIf
EndIf
IfText3.Text=""Then
PaSte.Enabled=FalSe
E1Se
PaSte.Enabled=True
EndIf
EndSub
PrivateSubpasteCliCk()´粘贴按钮
Ifwhich=1Thenl当焦点在Textl中则将
Text3的内容追加到Textl文件末尾
Textl.Text=__________
E1seIfwhich=2Then´同上
Text2.Text=__________
EndIf
EndSub
PrivateSubTextlGotFoCUS()´本过程的作用是当
焦点在Textl中时，which=1
which=1
EndSub
PrivateSubText2GotFocus()´本过程的作用是当
焦点在Text2中时，which=2
which=2
EndSub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】对于which值的判断，贯穿整个程序，因此要明白为什么要设置which值来进行判断。
微信搜索"考试吧"获取更多考试资讯、备考资料