点击查看：2018年3月计算机二级VB考前12天冲刺必做试题汇总

　　一、基本操作题

　　(1)请在名称为Forml的窗体上添加一个名称为Hl的水平滚动条，并在属性窗口中设置它的属性值，使其满足下列要求：它的最小刻度值为l，最大刻度值为100，在程序运行时，用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动l0个刻度。再在滚动条下面画两个名称分别为Ll和I2的标签，并分别显示1和100，运行时的窗体如图所示。

　　注意：存盘时必须存放在考生文件夹下，工程文件名为sitl.vbp，窗体文件名为sitl.frm。

　　

　　(2)在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，初始内容均为空;再建立一个下拉菜单，菜单标题为“操作”，名称为Ml，此菜单下含有两个菜单项，名称分别为Copy和Clear，标题分别为“复制”、“清除”，请编写适当的事件过程，使得在程序运行时，单击“复制”选项菜单，则把Textl中的内容复制到Text2中，单击“清除”选项菜单，则清除Text2中的内容(即在Text2中填人空字符串)。运行时的窗体如图所示。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。

　　注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sit2.frm。

　　

　　二、简单应用题

　　(1)在考生文件夹下有一个工程文件sit3.vbp，窗体上已经有一个标签Labell，请添加一个单选按钮数组，名称为Opl，含三个单选按钮，它们的Index属性分别为0、1、2，标题依次为“飞机”、“火车”、“汽车”，再添加一个名称为Textl的文本框。窗体文件中已经给出了Opl的Click事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在程序运行时单击“飞机”或“火车”单选按钮时，在Textl中显示“我坐飞机去”或“我坐火车去”，单击“汽车”单选按钮时，在Textl中显示“我开汽车去”，如图所示。

　　注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。

　　

　　(2)在考生文件夹下有一个工程文件sit4.vbp，Forml窗体中有一个文本框，名称为Textl;请先在窗体上添加两个框架控件，名称分别为Fl、F2，标题分别为“性别”、“身份”;然后在F1中添加两个单选按钮控件Opl、Op2，标题分别为“男”、“女”;其次在F2中添加两个单选按钮控件Op3、Op4，标题分别为“学生”、“教师”;最后再添加一个命令按钮，名称为Cl，标题为“确定”，如图所示。请编写适当的事件过程，使得运行时，在F1、F2中各选一个单选按钮，然后单击“确定”按钮，就可以按照下表把结果显示在文本框中。

　　

　　

　　最后把修改后的文件以原来的文件名存盘。

　　注意：考生不得修改窗体文件中已经存在的程序和Textl的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作。必须用窗体右上角的关闭按钮结束程序，否则无成绩。

　　三、综合应用题

　　以下数列：1，1，2，3，5，8，13，21…的规律是从第3个数开始，每个数都是其前面两个数之和。

　　在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件，如图所示。请编写适当的事件过程完成如下功能：选中一个单选按钮后，单击“计算”按钮，则计算出上述数列第n项的值，并在文本框中显示，n是选中的单选按钮后面的数值(提示：因计算结果较大，应使用长整型变量)。

　　注意：不能修改已经给出的程序和已有的控件的属性;在结束程序运行之前，必须选中一个单选按钮，并单击“计算”按钮以获得一个结果;必须使用窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。

　　

　　一、基本操作题

　　(1)【考点分析】本题考点有：水平滚动条的Name、Min、Max和LargeChange属性以及标签的Name和Caption属性。

　　【解题思路】水平滚动条的最大刻度值和最小刻度值分别由Max和Min属性设置;单击滚动条上滚动框以外的区域移动刻度值大小由LargeChange属性设置，而单击滚动条两边按钮移动刻度大小由SmallChange属性设置，本题要求“单击滚动条上滚动框以外的区域移动刻度大小”，由Large.Change属性设置;标签标题显示由Caption属性设置。

　　【操作步骤】

　　步骤1：打开VisualBasic开发环境，按照题目的要求新建窗体并添加一个水平滚动条控件，如图3.1所示。

　　

　　步骤2：在属性窗口中，按照题目的要求设置水平滚动条的相关属性，如图3.2所示。

　　

　　步骤3：按照题目的要求，在窗体上添加两个标签控件，

　　如图3.3所示。

　　

　　步骤4：按照题目的要求没嚣两个标签的相关属性，如图3.4所示。

　　

　　程序中用到的控件及属性见表3+1。

　　

　　步骤5：按下键盘上的F5键运行程序。程序运行后的窗体界面如图3.5所示。

　　

　　步骤6：按题目要求保存工程和窗体，如图3.6所示。

　　

　　【易错提示】题目要求只在属性窗口设置属性值，请不要通过编写代码来达到要求。SmallChange为最小变动值属性，表示用户单击滚动条两端箭头时，滑块移动的增量值;LargeChange为最大变动值属性，表示用户单击滚动条的空白处时，滑块移动的增量值，要注意仔细区别。

　　(2)【考点分析】本题考点有：菜单编辑器的使用(标题、名称、内缩符号)，菜单Click事件以及文本框的Text和Name属性。

　　【解题思路】在编辑窗体中单击鼠标右键选择“菜单编辑器”来创建菜单，在菜单的Click事件中，通过对Text2.Text属性的设置来完成对内容的清除和复制。

　　【操作步骤】

　　步骤1：新建窗体，按表3.2建立菜单项并设置其属性，如图3.7所示。

　　

　　

　　步骤2：同步骤1，输入第3项的标题和名称，单击确定即可。

　　步骤3：添加文本框控件，按表3.3设置文本框的属性。

　　

　　步骤4：打开代码编写窗口，编写程序代码，如图3.8所示。

　　

　　参考答案

　　PrivateSubClearClick()

　　Text2.Text=””

　　EndSub

　　PrivateSubCopy_Click()

　　Text2.Text=Textl.Text

　　EndSub

　　步骤5：调试并运行程序，关闭程序后按题目要求存盘。

　　【易错提示】在清除文本框Text2的内容时不能使用cls方法，必须通过赋值空字符串来实现，在赋值过程时，注意要在英文状态下编写代码，区分“"和"”。

　　二、简单应用题

　　(1)【考点分析】本题考点有：单选按钮数组的Name、Caption和Index属性，文本框的Name属性，SelectCase选择语句，“+”字符连接。

　　【解题思路】通过Name属性设置对象名称;通过Caption属性设置对象的标题;设置两个字符型变量a、b，a："我坐"，b="我开"，用于SelectCase选择语句的字符串连接;通过对单选按钮数组Index属性的查询，实现单击单选按钮完成字符串连接和文本框显示操作的功能。

　　【操作步骤】

　　步骤1：打开本题工程文件，按照题目要求建立单选按钮数组，如图3.9所示。

　　

　　步骤2：按照题目要求建立其他控件并设置其属性，见表3.4。

　　

　　步骤3：打开代码编辑窗口，去掉程序中的注释符“´”，将问号改为正确的内容。

　　参考答案(横线部分是需考生填入的内容)

　　PrivateSubOplclick(IndexAsInteger)

　　DimaAsStrin9，bAsString，CAsString

　　a="我坐"

　　b="我开"

　　SelectCase__________

　　´通过Index值决定响应哪一个控件数组

　　CaSeO

　　Textl.Text=a+Me.Op1(O).Caption+"去"

　　CaSel

　　Textl.Text=__________+Me.Opl(1).Caption+"去"

　　´当Index值为1时，选择"我坐"

　　CaSe2

　　Textl.Text=b+Me.Opl(2).Caption+"去"

　　EndSelect

　　EndSub

　　步骤4：调试并运行程序，关闭程序后按题目要求存盘。

　　【易错提示】在窗体上复制一个控件时，如果需要创建控件数组，则在提示框中单击“是”即可，如果不需要，则直接单击“否”。

　　(2)【考点分析】本题考点有：单选按钮的Name、Caption和Value属性，框架的Name和Caption属性，命令按钮的Name和Caption属性，文件操作(Open、Cbse、Output)以及判断语句。

　　【解题思路】在窗体上建立好控件后，先设置控件属性，再编写事件过程。本题需注意容器中控件的画法。命令按钮标题由caption属性设置，单击命令触发Chck事件;单选按钮的标题由Caption属性设置，程序中需要检测单选按钮的状态，通过Value属性来实现，如果单选按钮被选中，则VMue值为l，否则Value值为0。在文本框中显示内容通过Text属性实现，其形式为：文本框名.Ten=显示的内容。在VisuMBasic程序中，0pen语句用于打开顺序文件，打开顺序文件的基本格式为：0penFileNameForModeAs#Ele-Number。其中，FileName表示要打开的文件的路径;Mode为打开模式，OutPut用于输出，Append用于追加写入，Input用于读取;EleNumber为打开文件时指定的句柄。读文件操作在窗体的Load事件过程中完成，写文件操作在命令按钮的Click事件过程中完成。

　　【操作步骤】

　　步骤1：打开本题工程文件，按照题目要求建立框架控件并设置其属性，如图3.10所示。

　　

　　步骤2：按照步骤1建立其他控件并设置相关属性，程序中用到的控件及属性见表3.5和表3.6。

　　

　　

　　步骤3：打开代码编辑窗口，在指定位置编写如下代码。

　　参考答案

　　PrivateSubCl_Click()

　　Textl.Text="我是"´首先确定不论选什么情况

　　Textl的内容一定以”我是”开头

　　IfOpl.ValueThen

　　Textl.Text=Textl.Text&Opl.Caption

　　ElSe

　　Textl.Text=Textl.Text&Op2.Caption

　　EndIf’通过单选按钮的Value值(选择为true，否则为false)确认性别，最后把其Caption值接至Textl后

　　IfOp3.ValueThen

　　Textl.Text=Textl.Text&Op3.Caption

　　Else

　　Textl.Text=Textl.Text&Op4.Caption

　　EndIf'确认身份，思路同上

　　EndSub

　　步骤4：调试并运行程序，关闭程序后按题目要求存盘。

　　三、综合应用题

　　【考点分析】本题考点有：文本框的Text属性，单选按钮的Name、Caption和Value属性，单选按钮控件数组，For循环语句，If条件判断语句以及内部函数VM()。

　　【解题思路】单选按钮数组常用于提供唯一选择，Value属性值决定每个单选按钮的选中状态：Fise为未选中，True为选中，Caption属性用于设置单选按钮的标题。本题在For循环语句(循环变量k的初值为0，终值应为3)中逐一检查每个单选按钮是否被选中，用变量n记录选中单选按钮的索引号。然后取消对当前选中单选按钮的选择，使单选按钮数组中的下一个按钮被选中。如果当前已经选中最后一个单选按钮，则将n赋值为0，重新从单选按钮数组的第一个元素开始。

　　【操作步骤】

　　步骤1：打开本题工程文件。

　　步骤2：打开代码编辑窗口，在指定位置编写如下代码。

　　参考答案

　　PrivateSubCommandl_Click()

　　Dima()AsLong

　　DimiAsInteger

　　DimnAsInteger

　　´Opl.Count是单选按钮数目，这里用的是控件数组

　　Forl=0ToOpl.Count-l

　　´判断哪一项被选择，把它后面的数值赋给n，确定n值

　　IfOpl(i).Value=TrueThen

　　n=Val(Opl(i).Caption)

　　ExitFor

　　EndIf

　　Next

　　ReDima(n)´重新申请空间，这里是动态申请

　　a(1)=1

　　a(2)=1´数列第一项、第--4值确定

　　Fori=3Ton

　　a(i)=a(i-1)+a(i-2)’后一项值是

　　前两项值之和

　　Next

　　Textl.Text=a(n)

　　EndSub

　　步骤3：调试并运行程序，关闭程序后按题目要求存盘。

　　【易错提示】在定义数组a的时候，要注意定义为长整型Long，可以防止溢出;单选按钮数组的Index属性分别为0,1，2，在编写循环语句的时候要注意循环变量Opl.Count-1。