2013年3月全国计算机等级考试二级VB无纸化上机题题库题干及答案解析(5)
2013年3月全国计算机等级考试
二级VB上机题库题干
第八十一套题干104
一、基本操作题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个名称为cmdOpen的命令按钮，标题为\"打开文件\"，再画一个名称为cdlOpen的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框。
请按下列要求设置属性和编写代码：
①设置适当属性，使对话框的标题为\"打开文件\"；设置适当属性，使对话框的\"文件类型\"下拉式组合框中有二行：\"文本文件\"、\"所有文件\"(如图1所示)，默认的类型是\"所有文件\"。
②编写命令按钮的事件过程，使得单击按钮可以弹出打开文件对话框。要求：程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。
图1
(2)在名称为Form1的窗体上画一个图片框(名称为Pic1)、一个垂直滚动条(名称为Vsb1)和一个命令按钮(名称为cmdSet，标题为\"设置属性\")，通过属性窗口在图片框中装入一个图形(文件名为pic1.jpg，位于考生目录下)，图片框的宽度与图形的宽度相同，图片框的高度任意(如图2所示)。编写适当的事件过程。程序运行后，如果单击命令按钮，则设置垂直滚动条的如下属性：
图2
Min=100 Max=2400
LargeChange=200 SmallChange=20
之后就可以通过移动滚动条上的滚动块来放大或缩小图片框的高度。运行后的窗体如图3所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。
图3
考前复习必看资料：PiaoMo整理 —1—
二、简单应用题
(1)在考生目录下有一个工程文件vbsj3.vbp，包含了所有控件和部分程序，如图4所示。
要求：①利用属性窗口设置适当的属性，使txtInput、txtResult中数据右对齐；②请编写适当的程序完成以下功能：在txtInput中输入40(度数)，选择组合框中的一个项目，单击\"计算\"按钮，则根据所选择的项目，计算出相应的正弦、余弦值(保留3位小数，第4位截去，π取3.14159)，并显示在txtResult中。
注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算；在txtInput中输入的必须是40；必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，按原文件名存盘。
图4
(2)在考生文件夹下有一个工程文件vbsj4.vbp，相应的窗体文件为vbsj4.frm。在窗体上有一个命令按钮，其名称为cmdCal，标题为\"计算\"。程序运行后，如果单击命令按钮，程序将计算500以内两个数之间(包括开头和结尾的数)所有连续数的和为1250的正整数，并在窗体上显示出来。这样的数有多组，程序输出每组开头和结尾的正整数，并用\"～\"连接起来，如图5所示。该程序不完整，请把它补充完整。
图5
要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。 三、综合操作题
在考生文件夹下有一个工程文件vbsj5.vbp，其功能是：①单击\"读数\"按钮，则把考生文件夹下in5.dat文件中的100个0-999之间的整数读入数组a中；②单击\"计算\"按钮，则对这100个数中的水仙花数(当一个数的值等于该数中各位数字的立方和时，此数被称为水仙花数。如153=13+53+33，所以153就是一个水仙花数)求平均值，并对该平均值截尾取整后显示在文本框txtResult中。
窗体中给出了所有控件(如图6所示)以及\"读数\"按钮的Click事件过程，请为\"计算\"按钮编写适当的事件过程实现上述功能。
注意：不得修改已经给出的程序和已有的控件的属性，在结束程序运行之前，必须进行计算，且必须使用窗体右上角的\"关闭\"按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。
图6
第八十二套题干105
一、基本操作题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在标题为\"列表框\"、名称为Form1的窗体上画一个名称为lstCourse列表框，通过属性窗口输入四个列表项：\"
全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】
语文\"、\"数学\"、\"外语\"、\"体育\"，列表项采用\"复选框形式\"，如图1所示。列表框的宽为1500，高不限。
注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。
图1
(2)在名称为Form1的窗体上画一个文本框(名称为txtWord，Text属性为\"人民\"，FontName属性为\"黑体\")和一个水平滚动条(名称为hsbWord)，如图2所示。在属性窗口中对滚动条设置如下属性：
图2
Min＝10 Max＝100
LargeChange ＝5 SmallChange ＝2 编写适当的事件过程。程序运行后，如果移动滚动条上的滚动框，则可扩大或缩小文本框中的\"人民\"字。运行后的窗体如图3所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。
图3
二、简单应用题
(1)在名称为Form1的窗体中画一个名称为lblClock的标签，其标题为\"0\"，BorderStyle属性为1；再添加一个名称为tmrClock的计时器。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，每隔一秒钟标签中的数字加1。如图4所示的是程序刚启动时的情况。程序中不得使用任何变量。
图4
注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj3.vbp，窗体文件名为vbsj3.frm。
(2)在考生文件夹下有一个工程文件vbsj4.vbp，要求程序运行后，如果多次单击列表框中的项，则可同时选择这些项。而如果单击\"显示\"按钮，则在窗体上输出所有选中的列表项(如图5所示)。
要求：修改列表框的适当属性，使得运行时可以多选，并去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不得修改程序中的其他部分。最后把修改后的程序以原来的文件名存盘。
考前复习必看资料：PiaoMo整理 —2—
图5
三、综合操作题
数列：1，1，2，3，5，8，3，21叺墓媛墒谴拥 3个数开始，每个数是它前面两个数之和。在考生文件夹下有一个工程文件vbsj5.vbp(相应的窗体文件为vbsj5.frm)。窗体Form1中已经给出了所有控件。
编写适当的事件过程完成以下功能：选中一个单选按钮后，单击\"计算\"按钮，则计算出上述数列的第n项的值(n是选中的单选按钮后面的数值)，并显示在文本框中，如图6所示(提示：因计算结果较大，应使用Long型变量)。
图6
注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击\"计算\"按钮获得一个结果；必须使用窗体右上角的\"关闭\"按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。
第八十三套题干106
一、基本操作题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个名称为cmdArray的命令按钮数组，含3个命令按钮，它们的Index属性分别为0、1、2，标题依次为\"是\"、\"否\"、\"取消\"，每个按钮的高、宽均为400、900。窗体的标题为\"按钮示例\"。运行后的窗体如图1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。
图1
(2)在名称为Form1的窗体上画一个名称为Drv1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，名称为Label1、标题为\"文件名\"的标签和名称为Label2、BorderStyle为1的标签。窗体的标题设置为\"文件系统控件\"。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将选中的文件名显示在Label2中，如图2所示。
注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。
图2
二、简单应用题
(1)在考生文件夹下有一个工程文件vbsj3.vbp，相应的窗体文件名为vbsj3.frm。在窗体上有一个命令按钮，其名称为cmdAdd，标题为\"添加\"；有一个文本框，名称为txtSentense，初始内容为空白；有一个列表框，名称为
全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】
lstWord。程序运行后，在文本框中输入一个英文句子(由多个单词组成，各单词之间用一个空格分开)，然后单击命令按钮，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图3所示。该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的？改为正确
的内容，使其能正确运行，但不能修改程序中的其他部分。
最后把修改后的文件按原文件名存盘。
图3
(2)在考生文件夹下有一个工程文件vbsj4.vbp，请在
窗体上画三个文本框，其名称分别为Txt1、Txt2和txtResult，
文本框内容分别设置为\"等级考试\"、\"全国计算机\"和空白。
然后画两个单选按钮，其名称分别为optChange和optLink，
标题分别为\"交换\"和\"连接\"，如图4所示。编写适当的事件程序，要求在程序运行时，先单击\"交换\"单选按钮，使Txt1
文本框中内容与Txt2文本框中内容进行交换，并使\"交换\"单选按钮消失；然后单击\"连接\"单选按钮，则把交换后的Txt1和Txt2的内容以Txt1在前，Txt2在后的顺序连接起来，并在txtResult文本框中显示连接后的内容。存盘时，工程文件名为vbsj4.vbp，窗体文件名为vbsj4.frm。
图4
注意：不得修改已经给出的程序。在结束程序运行之前，必须先单击\"交换\"单选按钮，后单击\"连接\"单选按钮。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。 三、综合操作题
在考生文件夹中有一个工程文件vbsj5.vbp(相应的窗体文件为vbsj5.frm)。窗体Form1上有两个名称为Lab1和Lab2的标签，它们的标题分别为\"密码\"和\"允许次数\"；一个名称为Cmd1的命令按钮，其标题为\"确定\"；两个名称分别为Txt1和Txt2的文本框。其中Txt1用来输入密码(输入时显示\"*\")，无初始内容，Txt2的初始内容为3。已给出了Cmd1的事件过程，但不完整，要求去掉程序中的注释符\"'\"，把程序中的问号\"？\"改为正确内容，使得在运行时，在Txt1中输入密码后，单击\"确定\"按钮，如果输入的是\"123456\"，则在Txt1中显示\"密码正确\"如图5所示；如果输入其他内容，单击\"确定\"后，弹出如图6所示的错误提示对话框，并且Txt2中的数字减1。最多可输入3次密码，若3次输入错误，则禁止再次输入。
图5
图6
第八十四套题干107
一、基本操作题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1、标题为\"鼠标光标形状示例\"的窗体上画1个名称为Text1的文本框。请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框中时，鼠标光标为箭头(Arrow)形状，如图1所示；在窗体中其他位置处，鼠标光标为十字(Cross)形状，如图2所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。
考前复习必看资料：PiaoMo整理 —3—
图1 图2
(2)在名称为Form1的窗体上画两个名称分别为Label1、Label2，标题分别为\"开始位置\"、\"选中字符数\"的标签；画三个文本框，名称分别为txtInput、txtBegin、txtNum；再画一个名称为cmdDisplay，标题为\"显示选中文本\"的命令按钮。程序运行时，在txtInput中输入若干字符，并用鼠标选中一些字符后，单击\"显示选中文本\"按钮，则把选中的第一个字符的顺序号显示在txtBegin中，选中的字符个数显示在txtNum中，如图3所示。
要求：画出所有控件，编写命令按钮的Click事件过程。 注意：要求程序中不得使用变量，事件过程中只能写两条语句，分别用于显示第一个字符的顺序号和显示选中的字符个数。存盘时必须存放在考生文件夹下，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。 图3
二、简单应用题
(1)在名称为Form1的窗体上画一个名称为lblPwd的标签，标题为\"密令\"；画两个文本框，名称分别为txtPwd、txtObj，都没有初始内容；再画三个命令按钮，名称分别为cmdShow、cmdHide、cmdCopy，标题分别为\"显示\"、\"隐藏\"、\"复制\"，在开始运行时，向txtPwd中输入的所有字符都显示\"*\"，单击\"显示\"按钮后，在txtPwd中显示所有字符，再单击\"隐藏\"后，txtPwd中的字符不变，但显示的都是\"？\"，单击\"复制\"后，把txtPwd中的实际内容复制到txtObj中，如图4所示。
要求：①在属性窗口中，把窗体的标题改为\"密令窗口\"。②建立适当的事件过程，完成上述功能。每个过程中只允许写一条语句，且不能使用变量。存盘时，工程文件名为vbsj3.vbp，窗体文件名为vbsj3.frm。
图4
(2)在考生文件夹下有一个工程文件vbsj4.vbp，运行情况如图84-5所示。程序的功能是计算如下表达式的值：Z=(X+2)^2+(X+3)^3+(X+4)^4+…+(X+N)^N。其中，N和X值通过键盘分别输入到文本框txtN、txtX中。之后如果单击名称为cmdCal、标题为\"计算\"的命令按钮，则计算表达式的值Z，并将计算结果显示在名称为lblResult的标签中。在给出的窗体文件中已经添加了全部控件和程序，但程序不完整。要求去掉程序中的注释符，把程序中的？改为正确的内容。
注意：考生不得修改窗体文件中已经存在的程序。程序中不得使用^运算符，而应使用函数xn进行幂运算。程序至少运行一次，按照下图输入数据，使N=5，X=10，单击\"计算\"按钮，计算Z的值，并将结果显示在标签lblResult中，否则没有成绩。最后，程序按原文件名存盘。
图5
三、综合操作题
在考生文件夹下有一个工程文件vbsj5.vbp，请先装入
全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】
该工程文件，然后完成以下操作：在名称为Form1的窗体上画两个命令按钮，其名称分别为cmdRead和cmdCal，标题分别为\"读入数据\"和\"计算保存\"(如图6所示)。程序运行后，如果单击\"读入数据\"按钮，则调用题目所提供的ReadData1和ReadData2过程读入in51.txt和in52.txt文件中的各20个整数，分别放入Arr1和Arr2两个数组中；如果单击\"计算保存\"按钮，则把两个数组中对应下标的元素相减，其结果放入第三个数组中(即：第一个数组的第n个元素减去第二个数组的第n个元素，其结果作为第三个数组的第n个元素。这里的n为1、2、...、20)，最后计算第三个数组各元素之和，把所求得的和在窗体上显示出来；并调用题目中给出的WriteData过程将所求得的和存入考生文件夹下的out5.dat文件中。 图6
注意：考生不得修改窗体文件中已经存在的程序，且
必须执行此程序一次，最后把修改后的文件以原来的文件
名存盘。
第八十五套题干108 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画两个标签(名称分别为lblBook和lblAuthor，标题分别为\"书名\"和\"作者\")、两个文本框(名称分别为txtBook和txtAuthor，Text属性均为空白)和一个命令按钮(名称为cmdDisplay，标题为\"显示\")，如图1所示。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输入书名和作者，然后单击命令按钮，则在窗体的标题栏上先后显示两个文本框中的内容，如图2所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。 图1 图2
(2)在名称为Form1，标题为\"列表框示例\"的窗体上画
一个名称为lstCity的列表框，表项内容依次输入\"北京\"、\"
上海\"、\"天津\"和\"重庆\"；再画两个标题分别为\"复制\"和\"移
除\"，名称分别为cmdCopy和cmdRemove的命令按钮。如图
3所示。
图3
要求：编写适当的事件过程，使得单击\"复制\"按钮，可以将选中的列表项内容复制到已有列表项的尾部；单击\"移除\"按钮，可以将选中的列表项内容删除。
注意：存盘时，将文件保存至考生文件夹下，窗体文件名为vbsj2.frm，工程文件名为vbsj2.vbp。要求程序中不
得使用变量，每个事件过程中只能写一条语句。 二、简单应用题 (1)在考生文件夹下有一个工程文件vbsj3.vbp。窗体上有一个标题为\"得分\"的框架，在框架中有一个名称为Txt1的文本框数组，含六个元素；文本框Txt2用来输入难度系数。程序运行时，在左边的六个文本框中输入6个得分，输入难度系数后，单击\"计算分数\"按钮，则可计算出最后得分并在文本框Txt3中显示(如图4所示)。 计算方法：去掉1个最高得分和1个最低得分，求剩下得分的平均分，再乘以3，再乘以难度系数。最后结果保留到第2位小数，不四舍五入。 考前复习必看资料：PiaoMo整理 —4—
注意：文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。考生不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。 图4
(2)在名称为Form1的窗体上画一个名称为picOpen的图片框，并利用属性窗口把考生目录中的图标文件Open.ico放到图片框中；再画一个通用对话框控件，名称为cdlOpen，
利用属性窗口设置相应属性，即打开对话框时：标题为\"
打开文件\"，文件类型为\"Word文档\"，初始目录为C盘根目
录。再编写适当的事件过程，使得在运行时，单击P1图片
框，可以打开上述对话框。运行后的窗体如图5所示。
注意：存盘时必须存放在考生文件夹下，工程文件名
为vbsj4.vbp，窗体文件名为vbsj4.frm。程序中不得使用任
何变量。
图5
三、综合操作题
在考生目录下有一个工程文件vbsj5.vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是：数列的前2项是小于10的正整数，将此两数相乘，若乘积<10，则以此乘积作为数列的第3项；若乘积>=10，则以乘积的十位数
为数列的第3项，以乘积的个位数为数列的第4项。再用数列的最后2项相乘，用上述规则形成后面的项，直至产生了第n项。窗体上部从左到右3个文本框的名称分别为：txtFir、txtSec、txtNum，窗体下部的文本框名称为txtList。程序运行时，在txtFir、txtSec中输入数列的前两项，txtNum中输入要产生的项数n，单击\"计算\"按钮则产生此数列的前n项，并显示在txtList中。如图6所示。
已经给出了全部控件，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。
注意：不得修改原有程序和控件的属性。最后把修改后的文件按原文件名存盘。
图6
第八十六套题干109 一、基本操作题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个标签(名称为Lbl1，标题为空白，BorderStyle属性为1，Visible属性为False)、一个文本框(名称为Txt1，Text属性为空白)和一个命令按钮(名称为cmdDisplay，标题为\"显示\")，如图1所示。
然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入\"全国计算机等级考试\"，然后单击命令按钮，则文本框消失，并在标签内显示文本框中的内容。运行后的全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】
窗体如图2所示。要求程序中不得使用任何变量。
图1 图2
注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。
(2)考生文件夹下的工程文件vbsj2.vbp中有一个由直线Line1、Line2和Line3组成的三角形，直线Line1、Line2和Line3的坐标值如下表所示。
要求画一条直线Line4以构成三角形的高，且该直线的初始状态为不可见。再画两个命令按钮，名称分别是cmdShow、cmdHide，标题分别为\"显示\"、\"隐藏\"，如图3所示。请编写适当的事件过程使得其在运行时，单击\"显示\"按钮，则显示三角形的高；单击\"隐藏\"按钮，则隐藏三角形的高。
注意：要求程序中不得使用变量，每个事件过程只能写一条语句。不得修改已经存在的控件，最后将修改后的文件按原文件名存盘。
图3
二、简单应用题
(1)在考生目录下有一个工程文件vbsj3.vbp。窗体上有个钟表图案，其中代表指针的直线的名称是Line1，还有一个名称为Label1的标签，和其他一些控件(如图4所示)。在运行时，若用鼠标左键单击圆的边线，则指针指向鼠标单击的位置(如图5所示)；若用鼠标右键单击圆的边线，则指针恢复到起始位置；若鼠标左键或右键单击其他位置，则在标签上显示\"鼠标位置不对\"。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。程序中的oncircle函数的作用是判断鼠标单击的位置是否在圆的边线上(判断结果略有误差)，是则返回True，否则返回False。符号常量x0、y0是圆心距窗体左上角的距离；符号常量radius是圆的半径。
注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
图4 图5
(2)在考生文件夹下有一个工程文件vbsj4.vbp，其窗体如图6所示。该程序用来对在上面的文本框中输入的英文字母串(称为\"明文\")加密，加密结果(称为\"密文\")显示在下面的文本框中。加密的方法是：选中一个单选按钮，单击\"加密\"按钮后，根据选中的单选按钮后面的数字n，把明文中的每个字母改为它后面的第n个字母(\"z\"后面的字母认为是\"a\"，\"Z\"后面的字母认为是\"A\")，如图所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。
注意：不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。
考前复习必看资料：PiaoMo整理 —5—
图6
三、综合操作题
在考生文件夹下有一个工程文件vbsj5.vbp，含三个窗体，标题分别为\"启动\"、\"注册\"、\"登录\"，运行时显示\"启动\"窗体，如图7所示，单击其上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组users中，注册用户数(最多10个)放在全局变量n中(均已在标准模块中定义)。注册时用户名不能重复，且\"口令\"与\"验证口令\"须相同，如图8所示，注册成功则在\"启动\"窗体的标签中显示\"注册成功\"，否则显示相应错误信息。登录时，如图9所示，检验用户名和口令，若正确，则在\"启动\"窗体的标签上显示\"登录成功\"，否则显示相应错误信息。标准模块中函数finduser的功能是：在users数组中搜索用户名(即参数ch)，找到则返回该用户名在users中的位置，否则返回0。已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把Form2、Form3窗体文件中的？改为正确的内容。
图7 图8 图9 注意：不得修改已经存在的程序和控件的属性；最后，程序按原文件名存盘。
第八十七套题干110
一、基本操作题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在Form1的窗体上画一个文本框，名称为Txt1；画一个命令按钮，名称为cmdDisplay，标题为\"显示\"，TabIndex属性为0。请为cmdDisplay设置适当的属性，使得按Esc键时，可以调用cmdDisplay的Click事件，该事件过程的作用是在文本框中显示\"Visual Basic考试\"，程序运行结果如图1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。程序中不得使用任何变量。
图1
(2)在窗体上画两个文本框，名称分别为txtPwd、txtCopy。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，如果在txtPwd中每输入一个字符，则显示一个\"*\"，同时在txtCopy中显示输入的内容(如图2所示)。程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。
图2
二、简单应用题
(1)在名称为Form1的窗体上画一个名称为txtInput的文本框；画两个标题分别为\"对齐方式\"、\"字体\"，名称分别为fraAlign、fraFont的框架；在fraAlign框架中画三个单选按钮，标题分别为\"左对齐\"、\"居中\"、\"右对齐\"，名称分别为optLeft、optCenter、optRight；在fraFont框架中画两个单
全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】
选按钮，标题分别为\"宋体\"、\"黑体\"，名称分别为optSt、optHt。 要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的文字实现相应的操作，如图3所示。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为vbsj3.vbp，窗体文件名为vbsj3.frm。 图3
(2)在考生文件夹下有一个工程文件vbsj4.vbp。其窗体上有一个圆，相当于一个时钟，当程序运行时通过窗体的Activate事件过程在圆上产生12个刻度点，并完成其他初始化工作；另有长、短2条(红色、蓝色)直线，名称分别为linLong和linShort，表示两个指针。程序运行时，单击\"开始\"按钮，则每隔0.5秒linLong(长指针)顺时针转动一个刻度，linShort(短指针)顺时针转动1/12个刻度(即长指针转动一圈，短指针转动一个刻度)，单击\"停止\"按钮，两个指针停止转动，如图4所示。在窗体文件中已经给出了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容。
图4
提示：程序中的符号常量x0、y0是圆心到窗体左上角的距离，radius是圆的半径。
注意：不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。 三、综合操作题
在考生目录下有一个工程文件vbsj5.vbp，其窗体如图5所示。考生目录下有一个in5.dat文件，文件中有5个运动员的姓名、7个裁判的打分和动作的难度系数。每人的数据占一行，顺序是：姓名、7个分数、难度系数。程序运行时，单击\"读入\"按钮，可把in5.dat文件中的5个姓名读入数组athlete中，把5组得分(每组7个)和难度系数读入二维数组a中(每行的最后一个元素是难度系数)，并把这些数据显示在txtList文本框中；单击\"选出冠军\"按钮，则把冠军的姓名和成绩分别显示在文本框txtMark、txtScore中。成绩的计算方法是：去掉一个最高分和一个最低分，求剩下得分的平均分，再乘以3，再乘以难度系数；单击\"保存\"按钮，则把冠军姓名和成绩存入考生目录下的out5.dat文件中。
要求：去掉程序中的注释符，把程序中的？改为正确的内容(程序中getmark函数的功能是计算并返回第n个运动员的最后得分)，并编写\"选出冠军\"按钮的Click事件过程。
注意：不得修改已经存在的程序和控件的属性，在结束程序运行前，必须用\"保存\"按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。
图5
第八十八套题干111
一、基本操作题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 考前复习必看资料：PiaoMo整理 —6—
(1)在名称为Form1的窗体上画一个名称为CmdChange、标题为\"改变颜色\"的命令按钮，窗体标题为\"
设置窗体背景色\"。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图1所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。
图1
(2)在名称为Form1的窗体上画一个命令按钮和一个垂直滚动条，其名称分别为Cmd1(标题为\"设置\")和Vsb1，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置垂直滚动条的属性：
Max=窗体高度 Min=0
LargeChange=50 SmallChange=10
如果移动垂直滚动条的滚动框，则在窗体上显示滚动框的位置值。程序的运行情况如图2所示。
要求：不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。
图2
二、简单应用题
(1)在考生文件夹下有一个工程文件vbsj3.vbp，相应的窗体文件为vbsj3.frm，在窗体上有一个标题为\"计算\"的命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组arr中每个元素与其下标相除所得的和，并在文本框中显示出来，程序的运行情况如图3所示。在窗体的代码窗口中，已给出了部分程序，其中计算数组arr中每个元素与其下标相除所得的和的操作在通用过程Fun中实现，请编写该过程的代码。
图3
要求：请勿改动程序中的其他部分，只在Function Fun()和End Function之间填入你编写的若干语句并运行程序。在结束程序运行之前，必须至少正确运行一次程序，将结果显示在文本框中，否则无成绩。最后把修改后的文件按原文件名存盘。
说明：数组arr中共有40个元素，\"数组arr中每个元素与其下标相除所得的和\"，是指：arr(1)/1+arr(2)/2+ arr(3)/3+...+arr(40)/40
(2)在考生文件夹下有一个工程文件vbsj4.vbp。程序运行后，如果单击\"开始\"按钮，则图片自左向右移动，同时滚动条的滑块随之移动，每0.5秒移动一次。当图片完全移出窗体的右边界时，立即再从窗体的左边界开始重新移动，若单击\"停止\"按钮，则图片停止移动，如图4所示。在窗体文件中已经给出了全部控件，但程序不完整。
图4
要求：请去掉程序中的注释符，把程序中的？改为正
全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】
确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 三、综合操作题 在考生目录下有一个工程文件vbsj5.vbp，用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是：a2+b2=c2。例如，3、4、5就是一个满足条件的整数组合(注意：a，b，c分别为4，3，5与分别为3，4，5被视为同一个组合，不应该重复计算)。编写程序，统计三个数均在60以
内满足上述关系的整数组合的个数，并显示在标签Lbl1中，运行时程序界面如图5所示。 图5
注意：不得修改原有程序的控件的属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。
第八十九套题干124
一、基本操作题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1、标题为\"滚动条\"的窗体上画一个名称为HScroll1的水平滚动条，刻度值范围为1~100；再画两个标签，其名称分别为Label1、Label2，标题分别为\"1\"、\"100\"。运行后的窗体如图1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
图1
(2)在名称为Form1的窗体上用形状控件画一个圆，名称为Shape1。其直径为1000(高、宽均为1000)；再画两个命令按钮，名称分别为Command1、Command2，标题分别为\"红色\"、\"绿色\"。
要求：编写两个按钮的Click事件过程，使得单击\"红色\"按钮，则圆的边线的颜色变为红色(为相关属性赋值：&HFF&)；单击\"绿色\"按钮，则圆的边线的颜色变为绿色(为相关属性赋值：&HC000&)。在程序中不得使用变量，事件过程中只能写一条语句。运行时的窗体如图2所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
图2
二、简单应用题
(1)在考生目录下有一个工程文件sjt3.vbp，窗体上有两个命令按钮，其中\"读数据\"按钮的名称是Command1，\"统计\"按钮的名称是Command2；还有一个文本框。请画三个单选按钮，其名称分别是：Option1、Option2、Option3，标题分别是\"统计大写字母数\"、\"统计小写字母数\"、\"统计空格字符数\"，如图3所示。 程序运行时，请按以下顺序操作： 1)单击\"读数据\"按钮，把考生目录下的文件in3.dat中的所有内容读到变量s中(此过程已经给出)； 2)选择一个单选按钮；
3)单击\"统计\"按钮，则可按选中的单选按钮的标题要求对s中的字符进行统计，结果放到文本框中(要求考生编写程序)； 4)单击窗体右上角的关闭按钮结束程序。
\"读数据\"按钮的Click事件过程已经给出，请为\"统计\"按钮编写适当的事件过程实现上述功能。
考前复习必看资料：PiaoMo整理 —7—
注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一次统计，并且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
图3
(2)在考生文件夹下有一个工程文件sjt4.vbp。程序功
能是：在程序运行时，显示红灯，汽车不动；单击\"开始\"
按钮后，显示绿灯，汽车向右运动；单击右边命令按钮中的一个方向按钮后，则汽车向该按钮上箭头所示的方向移动(如图4所示)；单击\"停止\"按钮，则显示红灯，汽车停止运动。
在窗体文件中已经给出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的？改为正确的内容。
提示：两个图片框Picture1、Picture2分别装入了红灯亮和绿灯亮的图片，并重叠在一起，要使哪种灯亮，就使相应的图片框为可见，另一图片框为不可见。汽车的移动是由计时器按一定时间间隔移动汽车所在的图片框来实现的。
注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
图4
三、综合操作题
若两个素数a、b之间没有其他素数，则称a、b为相邻的素数。在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件，如图5所示。从左到右的三个文本框名称分别为Text2、Text1、Text3；三个命令按钮的名称分别为Command1、Command2、Command3。本程序的功能是：单击\"读入数据\"按钮，则从文件in5.dat中读入一个整数x放入Text1(中间的文本框)中；单击\"找素数\"按钮，则找出一对相邻素数a、b，使得满足以下条件：
a≤x 图5 第九十套题干125 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上用名称为Shape1的形状控件画一个椭圆，高、宽分别为1000、2000。请设置适当的属性满足以下要求： 1)椭圆的边线为红色(把相应的属性设置为：&H000000FF&或&HFF&)； 2)窗体的标题为\"椭圆\"，窗体的最大化按钮不可用。 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 运行后的窗体如图1所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 图1 (2)在文件名为sjt2.vbp的工程文件中建立两个窗体,名称分别为Form1和Form2，其中Form2是启动窗体，其标题为\"启动窗体\"，在Form2上画一个命令按钮，名称为Command1，标题为\"结束\"，如图2(a)所示。 请编写适当的事件过程以满足以下要求： 1)单击Form2窗体，则显示Form1窗体(如图2(b)所 示)； 2)单击Form1窗体，则Form1窗体消失； 3)单击\"结束\"按钮则结束程序运行。 注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，Form1窗体文件名为sjt21.frm，Form2窗体文件名为sjt22.frm。 (a) (b) 图2 二、简单应用题 (1)在考生目录下有一个工程文件sjt3.vbp，窗体上给出了一个文本框Text1和两个命令按钮，命令按钮的标题分别是\"读文件\"、\"计算\"，名称分别是Command1、Command2。请画三个单选按钮，名称分别为Option1、Option2、Option3，标题分别为\"大小写字母数之差\"(即大写字母数减小写字母数)、\"大小写字母数之和\"、\"大小写字母数乘积\"；窗体如图3所示。 程序运行时，请按以下顺序操作： 1)单击\"读文件\"按钮，可把考生目录下的文件in3.dat中的所有内容读到变量s中(此事件过程已经给出)； 2)选中一个单选按钮。 3)单击\"计算\"按钮，则可按选中的单选按钮的标题要求对s中的字符进行计算，结果放到文本框中(要求考生编写程序)。 4)单击窗体右上角的关闭按钮结束程序。 \"读文件\"按钮的Click事件过程已经给出，请为\"计算\"按钮编写适当的事件过程实现上述功能。 注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一次计算，并且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，按原文件名存盘。 图3 (2)在考生目录下有一个工程文件sjt4.vbp，其窗体左部的图片框的名称为Picture1，框中还有六个有香蕉图案的小图片框，它们是一个数组，名称为pic，在窗体右部有一个有香蕉图案的图片框，名称为Picture2，如图4(a)所示。 程序运行时，有六个香蕉图案的小图片框不显示。可以用鼠标拖拽的方法把右边的香蕉放到左部的图片框中(右部的香蕉不动)，如图4(b)所示。左边的图片框最多可放六个香蕉。 考前复习必看资料：PiaoMo整理 —8— 实现此功能的方法是：刚运行程序时，图片框数组不显示，当拖拽一次香蕉时，就显示一个图片框数组元素，产生香蕉被放入的效果。 文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。 注意：考生不得修改工程中已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。 (a) (b) 图4 三、综合操作题 在考生文件夹下有一个工程文件sjt5.vbp，其中文本框Text1用于显示五个学生的六门课成绩；右边的五个文本框是一个数组，名称为Text2，用于显示每个学生的平均分；下方的六个文本框是一个数组，名称为Text3，用于显示每 门课的平均分。 程序的功能是：单击\"读入文件\"按钮，则把考生文件夹下的文件in5.dat中的姓名和成绩分别读到数组n和a中；单击\"每人平均分\"按钮，则计算每个学生的平均分，并显示在Text2数组中；单击\"每科平均分\"按钮，则计算每门课的平均分，并显示在Text3数组中，所有平均分的值均四舍五入取整或截尾取整；单击\"存结果\"按钮，则把Text2、Text3中的所有平均分存入out5.dat文件中。 窗体中给出了所有控件(如图5所示)和\"读入文件\"、\"存结果\"按钮的Click事件过程，请为\"每人平均分\"按钮和\"每科平均分\"按钮编写适当的事件过程，实现上述功能。 注意：不得修改已经存在的程序；在结束程序运行之前，必须用\"存结果\"按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。 图5 第九十一套题干126 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个名称为Text1的文本框，请设置适当属性，使文本框中无初始内容，可显示多行，有垂直滚动条，且最多只能输入1000个字符。如图1所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 图1 (2)在名称为Form1的窗体上利用形状控件画一个矩形，名称为Shape1，高和宽分别为1000、1700；再画两个命令按钮，名称分别是Command1、Command2，标题分别为\"圆\"、\"椭圆\"，如图2(a)所示。请编写适当的事件过程使得在运行时，单击\"圆\"按钮，则矩形变为一个圆；单击\" 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 椭圆\"按钮，则矩形变为一个椭圆(如图2(b)所示)。要求程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 (a) (b) 图2 二、简单应用题 (1)在考生目录下有一个工程文件sjt3.vbp。窗体上有三条直线，是一个数组，数组的名称为Line1。在运行时，用鼠标单击其中一条线的任何位置，则以单击的点为起始点，画一个正弦曲线(如图3所示)；若鼠标单击在直线之外，则不画正弦曲线。 文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。文件中的drawsin过程的作用是画一条正弦曲线，可以直接调用。 注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。 图3 (2)在考生文件夹下有一个工程文件sjt4.vbp。窗体上有三个文本框Text1、Text2、Text3，其中Text3可显示多行，并已经输入了内容(如图4所示)，Text1用来输入要查找的内容，Text2用来输入要替换的新内容。程序运行时，在Text1、Text2中输入文字，单击\"替换\"按钮，则在Text3中找到Text1中的内容，并用Text2中的内容替换，若未找到，则不替换。此外窗体上还有两个单选按钮，名称依次为Option1、Option2，标题依次为\"第1个\"和\"全部\"。程序运行后，若Option1被选中，则只替换Text3中第一个匹配的字串；若Option2被选中，则替换Text3中所有匹配的字串。 在窗体文件中已经给出了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容。 注意：不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。 图4 三、综合操作题 在考生目录下有一个工程文件sjt5.vbp，其功能是：单击\"读数据\"按钮，则把考生目录下的文件in5.dat中的100个整数读到数组a中；单击\"计算\"按钮，则找出其中与所有数的平均值(平均值截尾取整)最接近的整数，放到文本框中；单击\"存盘\"按钮则把计算结果存盘。窗体中给出了所有控件(如图5所示)和\"读数据\"按钮及\"存盘\"按钮的Click事件过程，请为\"计算\"按钮编写适当的事件过程实现上述功能。 注意：不得修改已经存在的程序，在结束程序运行之前，必须用\"存盘\"按钮存储计算结果，否则无成绩。最考前复习必看资料：PiaoMo整理 —9— 后，程序按原文件名存盘。 提示：与平均值最接近的数可能大于也可能小于平 均值。 图5 第九十二套题干127 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上建立一个如下表所示的下拉菜单，其中\"设置\"菜单项为灰色(不可用)，如图1所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 图1 (2)在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条，其最大刻度为100，最小刻度为0；再画两个单选按钮，名称分别为Option1、Option2，标题分别为\"最大值\"、\"最小值\"，且都未选中。再通过属性窗口设置适当属性使得程序刚运行时，焦点在滚动条上(如图2所示)。 请编写适当的事件过程，使得程序运行时，单击\"最大值\"单选按钮，则滚动条上的滚动框移到最右端；单击\"最小值\"单选按钮，则滚动框移到最左端。 注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 图2 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp，已给出了所有控件和部分程序。程序运行时，请按以下顺序操作： 1)单击\"读入数据\"按钮，可把考生目录下的文件in3.dat中的100个整数读到数组a中； 2)从名称为List1的列表框中选中一项(如图3所示)。 3)单击\"计算\"按钮，则可按该选项的要求计算出结果并放到文本框中。 4)单击窗体右上角的关闭按钮结束程序。 \"读入数据\"按钮的Click事件过程已经给出，请为\"计算\"按钮编写适当的事件过程实现上述功能。 注意：不得修改已经存在的程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 图3 (2)在考生文件夹下有一个工程文件sjt4.vbp。窗体中横线(横坐标)的名称为Line1，竖线(纵坐标)的名称为Line2；五个不同颜色的矩形是一个形状控件数组，名称为Shape1，它们的Visible属性都为False；从左到右的两个按钮的名称分别为Command1、Command2；另有一个有五个元素的标签数组，名称为Label1，其所有元素的Visible属性都为False。如图4(a)所示。程序运行时，单击\"输入5个数据\"按钮，可输入五个整数(最好在100~2000之间)，并作为刻度值显示在纵坐标的左面；单击\"画直方图\"按钮，则按五个数的输入顺序显示直方图。例如若输入的五个数是1200、500、800、1900、1500，则结果如图4(b)所示。 文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。 注意：不能修改程序的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。 图5 第九十三套题干128 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画出如图1所示的三角形。下表给出了直线Line1、Line2的坐标值，请按此表画Line1、Line2，并画出直线Line3，从而组成如图1-21所示的三角形。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 (a) (b) 图4 三、综合操作题 在考生文件夹下有一个工程文件sjt5.vbp，已给出了所有控件(如图5所示)和部分程序。程序运行时，请按以下顺序操作： 1)单击\"读入文件\"按钮，把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Text1)中； 2)单击\"加密\"按钮，则可对Text1中的内容进行加密并显示在下面的文本框(Text2)中。 3)单击\"存结果\"按钮则把Text2中的内容存到out5.dat文件中。 加密规则：对于第奇数个字符，若是字母，则把它变为它后面的字符(若为\"Z\"则变为\"A\")，不是字母则不变；对于第偶数个字符，若是字母，则把它变为它前面的字符(若为\"A\"则变为\"Z\")，不是字母则不变。大小写字母都遵循此规则。 例如： 若原有的字符是：AbbaZGHa-MnnKYzx 则加密后的字符是：BaczAFGb-NmojXaw 已经给出\"存结果\"按钮的Click事件过程和函数isletter，函数isletter(aAsString)判断变量a中是否为一个字母，若是则返回True，否则返回False，可以直接调用。 请编写\"读入文件\"按钮和\"加密\"按钮的Click事件过程，以实现上述功能。(in5.dat文件中只含英文单词和空格，不分段落和行) 注意：考生不得修改已经存在的程序，必须用\"存结果\"按钮存储加密结果，否则无成绩。最后，按原文件名把程序存盘。 图1 (2)在名称为Form1的窗体上画一个名称为List1的列表框，并任意输入若干列表项；再画一个名称为Text1的文本框，无初始内容。请编写List1和Text1的Click事件过程。程序运行后，如果单击列表框中的某一项，则在文本框中显示该项相应的顺序号，若单击第一项，则在文本框中显示1；若单击第二项，则在文本框中显示2，以此类推(如图2所示)；如果单击文本框，则把该列表项的内容显示在文本框中。 注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 图2 二、简单应用题 (1)在考生目录下有一个工程文件sjt3.vbp，有两个名称分别为Form1和Form2的窗体，Form1为启动窗体，程序执行时Form2不显示。Form1中有菜单(如图3(a)所示)，程序运行时，若单击\"格式\"菜单项，则显示Form2窗体(如图3(b)所示)，选中一种字号和字体后单击\"确定\"按钮，则可改变Form1上文本框的字号和字体，并使Form2窗体消失。若单击\"退出\"菜单项，则结束程序的运行。 文件中已经给出了所有控件和程序，但程序不完整，要求： 1)利用属性窗口设置适当的属性，使Form1窗体标题栏右上角的最大化按钮、最小化按钮消失(如图3(a)所示)； 2)利用属性窗口把Form2窗体的标题设置为\"格式\"(如图3(b)所示)； 3)请去掉程序中的注释符，把程序中的？改为正确的内容。 注意：不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。 考前复习必看资料：PiaoMo整理 —10— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 (a) (b) 图3 (2)在考生目录下有一个工程文件sjt4.vbp，包含了所有控件和部分程序。程序运行时，请按以下顺序操作： 1)单击\"读入数据\"按钮，可把考生目录下的文件in4.dat中的100个整数读到数组a中； 2)从名称为Combo1的组合框中选中一项(如图4所示)。 3)单击\"计算\"按钮，则可按该选项的要求对a中的数计算平均值(四舍五入取整或截尾取整)并放到文本框中。 4)单击窗体右上角的关闭按钮结束程序。 \"读入数据\"按钮的Click事件过程已经给出，请为\"计算\"按钮编写适当的事件过程实现上述功能。 提示：存放前n个数之和的变量应使用Long类型。 注意：不得修改已经存在的程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 图4 三、综合操作题 在考生目录下有一个工程文件sjt5.vbp。窗体左边的图片框名称为Picture1，框中还有六个小图片框，它们是一个数组，名称为Pic，在窗体右边从上到下有三个显示不同物品的图片框，名称分别为Picture2、Picture3、Picture4，还有一个文本框Text1以及四个标签，如图5(a)所示。 程序运行时，可以用鼠标拖拽的方法把右边的物品放到左边的图片框中(右边的物品不动)，同时把该物品的价格累加到Text1中，如图5(b)所示。最多可放六个物品。 实现此功能的方法是：程序刚运行时，Picture1中的图片框数组不显示，当拖拽一次物品时，就显示一个图片框数组元素，并在该图片框数组元素中加载相应的图片，产生物品被放入的效果。 文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。 注意：不得修改已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。 (a) (b) 图5 第九十四套题干129 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画两个文本框，其名称分别为Text1和Text2，内容分别为\"文本框1\"和\"文本框2\"，编写适当的事件过程。程序运行后，如果单击窗体，则Text1隐藏，Text2显示，如图1(a)所示；如果双击窗体，则Text1显示，Text2隐藏，如图1(b)所示。 注意：程序中不得使用变量。 存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 考前复习必看资料：PiaoMo整理 —11—(a) (b) 图1 (2)在名称为Form1的窗体上画一个文本框，其名称为Text1，初始内容为空白；再画一个水平滚动条，其名称为HS1，SmallChange属性为4，LargeChange属性为10，Min属性为0，Max属性为200，编写适当的事件过程。程序运行后，如果在文本框内输入一个数值(0～200)，然后单击窗体，则把滚动条的滚动框移到相应的位置，如图2所示。 注意：程序中不要使用变量；存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 图2 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm，在窗体上有一个命令按钮(名称为Command1，标题为\"计算并输出\")和两个文本框(名称分别为Text1和Text2)，如图3所示。程序运行后，单击命令按钮，即可计算出数组Arr中10个数的正数之和pos与负数之和neg，并分别在两个文本框中显示出来。 该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，但不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。 图3 (2)在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。 在窗体上有两个命令按钮，其名称分别为Command1、Command2；一个标签，其名称为Label1；一个计时器，其名称为Timer1，如图4(a)所示。程序运行后，如果单击\"开始\"命令按钮，则该按钮变为禁用，而标题变为\"继续\"，同时标签中的字体每隔100毫秒增大0.1倍(即变为原来的1.1倍)，如图4(b)所示，字体大小超过100后，自动缩小为8；如果单击\"停止\"命令按钮，则该按钮变为禁用，\"继续\"命令按钮变为有效，同时标签中的字体停止变化；再次单击\"继续\"命令按钮后，标签中的字体继续变化。 这个程序不完整，请仔细阅读已有内容，并把它补充完整，使之能正确运行。 要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (a) (b) 图4 三、综合操作题 在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm。窗体上三个命令按钮的名称分别是Command1、Command2和Command3，标题分别是\"显示\"、\"统计\"和\"保存\"。运行程序时，单击\"显示\"按钮，从文件 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 in5.txt中读取文本，并显示在文本框Text1中，如图5所示。分，也不能修改控件的属性。最后用原来的文件名保存工单击\"统计\"按钮，则统计Text1中字母R、T、D(不区分大程文件和窗体文件。 小写)出现的次数，统计结果分别保存在窗体变量intR、intT、intD中，同时显示在文本框Text2中(显示格式不限)。单击\"保存\"按钮，可将intR、intT、intD中的数据保存到考生文件夹下out5.txt文件中。 要求： 1)去掉\"显示\"按钮事件过程中的注释，把程序中的？ 改为能实现上述要求的正确内容。 图3 2)编写统计字母R、T、D出现次数的事件过程。 (2)在考生文件夹下有一个工程文件sjt4.vbp，相应的3)不要改动各控件的属性设置和程序的其他部分。窗体文件为sjt4.frm。 最后把修改后的文件用原文件名存盘。 在窗体上有两个命令按钮，其名称分别为Command1 和Command2，标题分别为\"开始\"和\"停止\"；有两个水平滚动条，其名称分别为HScroll1和HScroll2，Min属性均为0，Max属性均为100；此外还有一个计时器，其名称为Timer1，如图4(a)所示。程序的功能是，程序运行后，如果单击\"开始\"命令按钮，则滚动条HScroll1中的滚动框从左向右移动(每次移动一个刻度)，移到最右端后，自动回到最左端，再重新向右移动；同时滚动条HScroll2中的滚动框从右向左移动(每次移动一个刻度)，移到最左端后，自动回到最 右端，再重新向左移动。如果单击\"停止\"按钮，则两个滚 图5 动条中的滚动框停止移动，如图4(b)所示。该程序不完整， 第九十五套题干130 请把它补充完整。 要求：去掉程序中的注释符，把程序中的？改为正一、基本操作题 确的内容，使其能正确运行，但不能修改程序中的其他部请根据以下各小题的要求设计Visual Basic应用程序 分。最后用原来的文件名保存工程文件和窗体文件。 (包括界面和代码)。 (1)在名称为Form1的窗体上画一个标签，其名称为Label1，标题为\"程序设计\"，BorderStyle属性为1，且可以根据标题自动调整大小，编写适当的事件过程。程序运行后，其界面如图1(a)所示，此时如果单击窗体，则标签消失，同时用标签的标题作为窗体的标题，如图1(b)所示。 (a) (b) 注意：程序中不得使用变量。存盘时必须存放在考 图4 生文件夹下，工程文件名为sjt1.vbp，窗体文件名为 三、综合操作题 sjt1.frm。 在考生文件夹下有一个工程文件sjt5.vbp，装入该工程文件。窗体上有一个名称为Text1的文本框，三个命令按钮，名称分别为Command1、Command2和Command3，标 题分别为\"读文件\"、\"删除\"和\"计算/保存\"。程序运行后， (a) (b) 单击\"读文件\"命令按钮，将in5.txt文件中的内容显示在 图1 Text1中，如图5(a)所示；单击\"删除\"命令按钮，删除Text1 (2)在名称为Form1的窗体上画一个文本框，其名称中的字母\"A\"、\"D\"、\"R\"和\"S\"(小写字母也删)，并将删除为Text1，初始内容为空白；然后再画三个单选按钮，其名后的文本显示在Text1中，如图5(b)所示；单击\"计算/保存\"称分别为Op1、Op2和Op3，标题分别为\"单选按钮1\"、\"单命令按钮，则计算当前Text1中显示的所有字符(删除后)的选按钮2\"和\"单选按钮3\"，编写适当的事件过程。程序运行ASCII码之和，并把结果保存到考生文件夹下的out5.txt文后，如果单击\"单选按钮1\"则在文本框中显示\"1\"，单击\"件中。 单选按钮2\"则在文本框中显示\"2\"，以此类推。程序的运行要求： 情况如图2所示。 1)要删除的字母不区分大小写。 注意：程序中不要使用变量，每个单选按钮的事件2)不要改变窗体中各控件的属性设置及事件过程。 过程中只能写一条语句；存盘时必须存放在考生文件夹3)编写\"计算/保存\"按钮的事件过程。 下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 4)\"删除\"按钮的事件过程不完整，去掉程序中的注释 符，把程序中的？改为正确的内容，使程序能正常运行。最后把修改后的文件按原文件名存盘。 图2 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。在窗体上有一个名称为Text1的文本框，其MultiLine属性为True。程序运行后，如果单击窗体，则用随机数函数产生16个0~99的整数，并按4行4列的矩阵形式在文本框中显示出来；然后在文本框中输出该矩阵对角线上的数。程序运行情况如图3所示。 这个程序不完整，请把它补充完整，并能正确运行。 提示：程序中的vbCrLf是回车-换行符。 要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，但不能修改程序中的其他部考前复习必看资料：PiaoMo整理 —12— (a) (b) 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 图5 第九十六套题干131 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个文本框，名称为Text1，内容为\"VB程序设计\"；再画两个命令按钮，其名称分别为Command1和Command2，标题分别为\"扩大\"和\"缩小\"，如图1所示，编写适当的事件过程。程序运行后，每单击Command1命令按钮一次，文本框中文本的字体扩大1.2倍；每单击Command2单选按钮一次，文本框中文本的字体缩小1.2倍。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 (c) (d) 图3 (2)在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。 在窗体上有一个命令按钮，其名称为Command1，标题为\"计算\"。程序运行后，如果单击命令按钮，程序将根据下面的公式计算π的值：π/4=1-1/3+1/5-1/7+……，所提供的窗体文件已给出了命令按钮的事件过程，程序运行结果如图4所示。 该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。 图1 (2)在名称为Form1的窗体上画一个列表框，其名称为List1，通过属性窗口向列表框中输入9个项目，分别为10、20、30、40、50、60、70、80、90；画一个文本框，其名称为Text1，初始内容为空白；再画一个水平滚动条，其名称为HScroll1，Min属性和Max属性分别为0和100，如图2(a)所示，编写适当的事件过程。程序运行后，如果单击列表框中的某个项目，则在文本框中显示该项目内容，并把滚动条的滚动框移到相应的位置，如图2(b)所示。要求：不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 图4 (a) (b) 图2 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。 在名称为Form1的窗体上有一个名称为Text1的文本框和名称为Command1、标题为\"确定\"的命令按钮，一个名称为List1的列表框和两个名称分别为Option1和Option2、标题分别为\"添加\"和\"删除\"的单选按钮，如图3(a)所示。程序运行后，如果选择单选按钮Option1并在文本框中输入一个字符串，然后单击\"确定\"命令按钮，则把文本框中的字符串添加到列表框中，并清除文本框，如图3(b)所示；如果选择列表框中的一项和单选按钮Option2，并单击\"确定\"命令按钮，则删除列表框中所选择的项目，如图3(c)所示；如果不选择列表框中的项目，或者没有在文本框中输入字符串，则单击\"确定\"命令按钮后，将显示一个信息框\"未输入或未选择项目\"，如图3(d)所示。该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。 三、综合操作题 在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm。窗体外观如图5(a)所示。三个命令按钮的名称分别为Command1、Command2和Command3，标题分别为\"读取数据\"、\"首字母大写\"和\"存盘\"。程序运行后，如果单击\"读取数据\"命令按钮，则读取考生文件夹下in5.txt中的全部文本(文本中的单词与单词之间或标点符号与单词之间均用一个空格分开)，并在文本框中显示出来。文本内容如下： TuckeddeepwithinthepromisesandpoliciesofhisStateoftheUnionaddress,PresidentBushutteredthreewordsthatspeakvolumesaboutWashington'sparalysisinaddressingtheplightofthefortymillionAmericanswholackhealthinsurance.InbetweenhisdiscourseonMedicareandhissupportforalow-incomehealthcaretaxcredit,Bushcalledforsomethingcalledassociationhealthplans. 如果单击\"首字母大写\"命令按钮，则将文本框中每个单词的第一个字母变为大写字母(如果原来已是大写字母则不改变)，并在文本框中显示出来，如图5(b)所示；如果单击\"存盘\"命令按钮，则把文本框中的内容(首字母大写后)保存到考生文件夹下)，并在文本框中显示出来，如图5(b)所示；如果单击\"存盘\"命令按钮，则把文本框中的内容(首字母大写后)保存到考生文件夹下的文件out5.txt中。窗体文件中已给出了部分程序，请把它补充完整，使其实现上述功能。 要求： 1)编写\"读取数据\"命令按钮的Click事件过程。 2)去掉\"首字母大写\"命令按钮和\"存盘\"命令按钮事件过程中的注释符，把程序中的？改为正确的内容，使其能正确运行。 3)用原来的文件名保存工程文件和窗体文件。 (a) (a) (b) 考前复习必看资料：PiaoMo整理 —13— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。 (b) 图5 (a) (b) 图4 三、综合操作题 第九十七套题干133 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1、标题为\"窗体\"的窗体上画一个标签，其名称为Label1，标题为\"等级考试\"，字体为\"黑体\"，BorderStyle属性为1，且可以自动调整大小，再画一个框架，名称为Frame1，标题为\"科目\"，如图1所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 图1 (2)在名称为Form1的窗体上画两个图像框，其名称分别为Image1和Image2，Stretch属性分别为True和False，然后通过属性窗口在Image1中装入一个图形文件pic.jpg(位于考生文件夹下)，如图2(a)所示，编写适当的事件过程。程序运行后，如果单击窗体，则可清除Image1中的图形，并把该图形复制到Image2中，如图2(b)所示。 注意：程序中不得使用变量。 存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 (a) (b) 图2 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。在窗体上有一个文本框，其名称为Text1；另有一个命令按钮，其名称为Command1，标题为\"计算/输出\"。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入n的值，然后单击\"确定\"按钮，即可计算1+(1+2)+(1+2+3)+ …+(1+2+3+…+n)的值，并把结果在文本框中显示出来，如图3所示。 注意：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 图3 (2)在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。在窗体上有两个文本框，其名称分别为Text1和Text2，其中Text1中的内容为\"计算机等级考试\"；另有一个命令按钮，其名称为Command1，标题为\"反向显示\"，如图4(a)所示。程序运行后，如果单击命令按钮，则在Text2中按相反方向显示Text1中的内容，如图4(b)所示。该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的？改为正考前复习必看资料：PiaoMo整理 —14— 在名称为Form1的窗体上画一个文本框，其名称为Text1，可以多行显示，并有垂直滚动条；然后再画三个命令按钮，其名称分别为Command1、Command2和Command3，标题分别为\"取数\"、\"排序\"和\"存盘\"，如图5(a)所示，编写适当的事件过程。程序运行后，如果单击\"取数\"命令按钮，则将in5.txt文件中的100个整数读到数组中，并在文本框中显示出来，如图5(b)所示；如果单击\"排序\"命令按钮，则对这100个整数按从大到小的顺序进行排序，并把排序后大于500的数在文本框中显示出来；如果单击\"存盘\"命令按钮，则把文本框中所有的数(即排序后大于500的数)保存到考生文件夹下的文件out5.txt中。 注意：1)必须把排序后大于500的所有整数保存到文件out5.txt中，否则没有成绩。2)存盘时必须存放在考生文件夹下，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。 (a) (b) 图5 第九十八套题干134 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个水平滚动条，其名称为HScroll1，Min属性为0，Max属性为100，LargeChange属性为5，SmallChange属性为2，然后再画一个文本框，其名称为Text1，初始内容为空白，编写适当的事件过程。程序运行后，在文本框中输入0~100之间的一个值，然后单击窗体，则滚动条的滚动框移到相应的位置，程序的运行情况如图1所示。 要求：程序中不得使用任何变量。存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 图1 (2)在名称为Form1的窗体上画一个标签，其名称为Label1，标题为\"程序设计\"，AutoSize属性为True；然后再画一个列表框，通过属性窗口输入5个项目，分别为10、16、20、24、36，如图2(a)所示，编写适当的事件过程。程序运行后，如果用鼠标选中列表框中的某个项目，则把 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 标签中字体的大小设置为与该项目相同。程序的运行情况如图2(b)所示。 要求：程序中不得使用任何变量。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 (a) (b) 图2 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。 在窗体上有一个命令按钮，其名称为Command1，标题为\"移动\"；有一个文本框，名称为Text1，可以多行显示；此外还有一个列表框，其名称为List1。程序运行后，会在列表框中显示几行文字，如图3(a)所示。如果单击命令按钮，则把列表框中的文字移到文本框中，如图3(b)所示。该程序不完整，请把它补充完整(程序中的vbCrLf表示回车换行符)。 要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。 (a) (b) 图3 (2)在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。 在窗体上有一个标签(名称为Label1)、一个计时器(名称为Timer1)和两个命令按钮(名称分别为Command1和Command2)，如图4(a)所示。程序运行后，其初始界面如图4(b)所示。此时如果单击\"开始\"命令按钮，则可使标签每隔0.2秒闪烁一次；如果单击\"停止\"命令按钮，则标签停止闪烁。该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。 (a) (b) 图4 三、综合操作题 在名称为Form1的窗体上画三个命令按钮(名称分别为Command1、Command2和Command3，标题分别为\"显示\"、\"统计\"和\"保存\")，然后画一个文本框(名称为Text1，MultiLine属性设置为True，ScrollBars属性设置为2)，如图5(a)所示。程序运行后，如果单击\"显示\"命令按钮，则读入in5.txt文件中的文本，并在文本框中显示出来，如图5(b)所示；如果单击\"统计\"命令按钮，则统计文本框中ASCII码大于等于70、小于等于100的字符的个数，并把结果在文本框中显示出来，如图5(c)所示(注意，图中所显示的统计次数是随便写的，不是实际的统计结果)；如果单击\"保存\"命令按钮，则把统计结果存入考生文件夹下的out5.txt文件中。 注意：结束程序运行前必须用\"保存\"命令按钮把统计结果存入考生文件夹下的out5.txt文件中，否则没有成绩。存盘时必须存放在考生文件夹下，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。 考前复习必看资料：PiaoMo整理 —15— (a) (b) (b) 图5 第九十九套题干135 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画1个命令按钮，其名称为C1，标题为\"等级考试\"；再画1个文本框，名称为T1，如图1(a)所示。请编写适当的事件过程，使程序运行后，一旦文本框中的信息有任何变化或输入任何信息，则命令按钮消失，并使命令按钮的标题在文本框中显示出来，如图1(b)所示。 注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。 (a) (b) 图1 (2)在名称为Form1、标题为\"菜单演示\"的窗体上画一个名称为Label1、标题为空的标签；再建立一个菜单，各菜单项的属性设置见下表。窗体外观如图2(a)所示。 请编写适当的程序，使得选中\"输出窗体标题\"菜单项 时，就在标签中显示窗体标题；选中\"输出当前时间\"菜单项时，在标签中显示当前系统时间(如图2(b)所示)。要求程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 (a) (b) 图2 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp，其功能是：1)单击\"读数据\"按钮，则把考生文件夹下in3.dat文件中的100个按升序排列的整数读入到数组a中，同时显示在Text1文本框中； 2)单击\"查找\"按钮，则提示用户输入查找的数，并利用二分法在数组a中查找该数，若查找成功，则在Text2文本框中显示该数在数组中的位置，否则显示查找失败。 提示：二分法查找的思路是，将查找值与有序数组的中间项元素进行比较，若相同则查找结束；否则判断查找值落在数组的上半部分还是下半部分，并继续在那一半的数组中重复上述查找过程。 要求：请将窗体的标题设置为\"二分法查找\"，并将\"查找\"命令按钮的Click事件过程中的注释符去掉，把？改为正确内容，以实现上述程序功能。如图3所示的是运行时输入数值68的查找结果。 注意：考生不得修改窗体文件中已经存在的控件和程序。最后，程序按原文件名存盘。 图1 (2)在名称为Form1、标题为\"椭圆练习\"的窗体上，画1个名称为Shape1的椭圆，其高为800、宽为1200、左边距为1000。椭圆的边框是宽度为5的蓝色(&H00C00000&)实线，椭圆填充色为黄色(&H0000FFFF&)。再画2个名称为Command1和Command2、标题为\"左移\"和\"右移\"的命令按钮。如图2所示。 要求：编写2个按钮的Click事件过程，使得每单击\"左移\"按钮一次，椭圆向左移动100；每单击\"右移\"按钮一次，椭圆向右移动100。要求程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。 图2 图3 (2)在考生文件夹下有一个工程文件sjt4.vbp。运行程序，按下鼠标左键，并在窗体上拖动鼠标时，沿鼠标移动可在窗体上画出一系列圆，如图4所示。给出的程序不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp，其窗体中有一个红色方框和一个计时器控件。程序运行时每隔0.5秒，方框的颜色交替变为黄色和红色(黄色值为&HFFFF&；红色值为&HFF&)；若单击鼠标右键，则停止变色；若单击鼠标左键，则方框左上角移到鼠标点击的位置处(如图3所示)。请将事件过程中的注释符去掉，把？改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 图4 三、综合操作题 在考生文件夹下有一个工程文件sjt5.vbp。程序功能为：在文本框Text1中输入一个正整数N后，单击\"计算\"按钮，则计算11+22+33+…+NN，并将计算结果显示在Text2中。程序中的函数f可以计算mm的值。 在给出的窗体文件中已经有了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的？改为正确的内容，并编写相应的程序，实现程序的功能，并且必须在运行时计算N=8时的结果。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须计算N=8时的结果，否则无成绩。 第一百套题干136 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1、标题为\"电影制作\"的窗体上画1个名称为Cmb1、初始内容为空的下拉式组合框(可以输入文本)。 下拉列表中有\"音频效果\"、\"视频效果\"和\"视频过渡\"3个表项内容。运行后的窗体如图1所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。 图3 (2)在考生文件夹下有一个工程文件sjt4.vbp，其窗口上有2个名称分别为Command1和Command2，标题分别为\"开始查找\"和\"重新输入\"的命令按钮；有2个名称分别为Text1和Text2、初始值均为空的文本框。 1)在Text1文本框中输入仅含字母和空格(空格用于分隔不同的单词)的字符串后，单击\"开始查找\"按钮，则可以将输入字符串中最长的单词显示在Text2文本框中，如图4所示； 2)单击\"重新输入\"按钮，则清除Text1和Text2中的内容，并将焦点设置在Text1文本框中，为下一次输入做好准备。请将\"开始查找\"命令按钮Click事件过程中的注释符去掉，把？改为正确内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序。最后，程序按原文件名存盘。 图4 三、综合操作题 在考生文件夹下有一个工程文件sjt5.vbp，窗口有2个名称分别为Command1和Command2、标题分别为\"读数 考前复习必看资料：PiaoMo整理 —16— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 据\"和\"排序\"的命令按钮，有2个标题分别为\"数组A\"和\"数可以直接调用。 组B\"的标签。请将窗体标题设置为\"完全平方数排序\"；再注意：考生不得修改窗体文件中已经存在的控件和画2个名称分别为Text1和Text2、初始内容都为空的文本程序，在结束程序运行之前，必须进行\"排序\"，且须用窗框，并且可多行显示，有垂直滚动条，如图5所示。程序体右上角的关闭按钮结束程序，否则无成绩。最后，程序功能如下： 按原文件名存盘。 1)单击\"读数据\"按钮，则把考生文件夹下in5.dat文件中的100个正整数读入数组A，并将它们显示在Text1文本框中； 2)单击\"排序\"按钮，则首先将这100个数中的所有完全平方数放入数组B中，并将它们按降序排列显示在Text2文本框中。 提示：一个整数若是另一个整数的平方，那么它就是完全平方数。如144=122，所以144就是一个完全平方数。 要求：去掉注释符，把？改为正确内容，并添加代 码使得\"排序\"命令按钮的Click事件过程可以实现上述功 图5 能。 提示：Sort过程可以把求出的完全平方数进行排序， 考前复习必看资料：PiaoMo整理 —17— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 上机题答案解析 第八十一套上机答案解析104 一、基本操作题 第1小题 【知识点播】通用对话框的DialogTitle属性用于返回 Pic1.Height = Vsb1.Value End Sub 步骤3：按要求将文件保存至考生文件夹中。 【主要考点】滚动条控件。 二、简单应用题 或设置该对话框标题栏上所显示的文本。 【审题分析】要在单击按钮时弹出\"打开文件\"对话框，只需在\"打开\"按钮的Click事件过程中调用通用对话框的ShowOpen方法即可。 【操作步骤】 步骤1：新建一个\"标准EXE\"工程，选择【工程】→【部件】命令，打开\"部件\"对话框，从其列表中选中\"MicroSoft Common Dialog Control6.0\"项目，单击\"确定\"按钮。 步骤2：在窗体Form1中加入一个命令按钮和一个通用对话框，其相关属性设置如表1所示。 表1 步骤3：在代码编辑窗口中，编写\"打开文件\"按钮的 单击事件过程： 参考代码： Private Sub cmdOpen_Click() cdlOpen.ShowOpen End Sub 步骤4：按要求将文件保存至考生文件夹中。 第2小题 【知识点播】①窗体、图像框（ImageBox）和图片框（PictureBox）上均可以显示来自位图、图标、元文件、JPEG或GIF文件的图形。区别在于：图像框专门用于显示位图，而另外两种还提供了画图的功能。为图片框控件指定图片有两种方法：一是在设计阶段通过Picture属性设置；二是在程序运行时通过LoadPicture()图片加载函数加载。②图片框的宽和高分别由其Width属性和Height属性设置。 【审题分析】根据题意，本题需在命令按钮的单击事件过程中编写设置垂直滚动条相关属性的语句，在滚动条的Change事件过程中编写将滚动条的Value属性值赋予图片框Height属性的语句，从而达到利用滚动条控制图片框高度的目的。 【操作步骤】 步骤1：新建一个\"标准EXE\"工程，在窗体Form1中画一个图片框和一个水平滚动条，在属性设置窗口中设置其相关属性，属性及其值如表2所示。 表2 步骤2：打开代码编辑窗口，分别编写命令按钮的 Click事件过程和垂直滚动条的Change事件过程。 参考代码： Private Sub cmdSet_Click() Vsb1.Min = 100 Vsb1.Max = 2400 Vsb1.LargeChange = 200 Vsb1.SmallChange = 20 End Sub Private Sub Vsb1_Change() 考前复习必看资料：PiaoMo整理 —18— 第1小题 【知识点播】①Alignment属性用于确定文本框中文本的放置方式，其值可以设置为0（靠左，默认）、1（靠右）或2（居中）。②组合框（ComboBox）将文本框与列表框的特性组合在一起，既可在组合框的文本框部分输入信息，也可在列表框部分选择项目，其Text属性可返回列表框中当前选中项目的内容。③Int取整函数用于删除所给数的小数部分而返回剩下的整数。④Sin(N)正弦函数用于返回N的正弦值，Cos(N)余弦函数用于返回N的余弦值，其中参数N应为弧度。⑤多分支控制结构也称为Select Case语句或Case语句，它和If语句差不多，都是对一个条件的结果判断后再进行操作，它们的区别是前者只对单个条件来判断，后者则可以对多个条件来判断。Select Case语句的格式如下： Select Case变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … [Case Else [语句块n+1]] End Select 【审题分析】本题可通过Select Case语句对组合框的Text属性返回值逐一进行判断，并根据Text属性值不同，分别进行相应运算。为实现\"第4位截去\"的功能，可将运算值乘以1000后取整，再除以1000。 【操作步骤】 步骤1：打开考生文件夹中的工程文件vbsj3.vbp，依次选中窗体中的两个文本框，将其Alignment属性值设置为1-Right Justify。 步骤2：双击窗体中的\"计算\"命令按钮，在打开的代码编辑窗口中编写其单击事件过程。 参考代码： Private Sub cmdCal_Click() Select Case cboFun.Text Case \"Sin\" txtResult.Text = Int(Sin(Val _ (txtInput.Text)*3.14159/180) *1000)/1000 Case \"Cos\" txtResult.Text = Int(Cos(Val _ (txtInput.Text)*3.14159/180)*1000)/1000 End Select End Sub 步骤4：按 步骤5：单击窗体右上角的关闭按钮以结束程序。 步骤6：按要求将文件保存至考生文件夹中。 【提示】本题程序运行时，单击窗体右上角的关闭按钮将输出计算结果到文件out3.txt中，并以其判断程序编写是否正确。 第2小题 【知识点播】通常把循环体内不再含有循环语句的循环叫做单层循环，而把循环体内含有循环语句的循环称为多重循环。例如在循环体内含有一个循环语句的循环称为二重循环。多重循环又称多层循环或嵌套循环。 【审题分析】程序设计思路：按顺序让1~500中的每一个数都与它之后的所有的数逐一相加，在相加过程中若累加和等于或超过1250时，则停止该组数继续相加，并将和等于1250的该组数的开头和结尾的数按题目要求输出。 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 源程序使用嵌套For循环完成上述功能，变量iSum用于记录体，FontSize属性、FontBold属性、FontItalic属性、每组数累加时的和，其初值应为0；表达式iSum = iSum + jFontStrikethru属性和FontUnderline属性可分别用来设置字用于实现累加功能；当累加和正好等于1250时，输出该组体的大小和样式。 数的开头和结尾的数，即i和j。 【审题分析】要实现本题所要求的功能，应在水平滚 【操作步骤】 动条的Change事件过程中，通过代码设置文本框的FontSize步骤1：打开考生文件中的本题工程文件vbsj4.vbp，属性值等于水平滚动条的Value属性值。 在代码编辑窗口，去掉程序中的注释符\"'\"，将问号\"？\"改为【操作步骤】 正确的内容。 步骤1：新建一个\"标准EXE\"工程，按表2在窗体中画 参考代码： 出控件并设置其相关属性。 iSum = 0 表2 iSum = iSum + j If iSum = 1250 Then 步骤2：按要求将文件保存至考生文件夹中。 三、综合操作题 【审题分析】程序设计思路：通过For循环逐一取出数组a中的100个元素，分别计算出其百位、十位和个位上的数字，若表达式a(i) = x ^ 3 + y ^ 3 + z ^ 3成立（其中，x、y、z分别代表a(i)百位、十位和个位上的数字），则a(i)即为水仙花数。 【操作步骤】 步骤2：打开代码编辑窗口，编写hsbWord的Change步骤1：打开考生文件中的本题工程文件vbsj5.vbp，事件过程。 在代码编辑窗口指定位置编写以下代码： 参考代码： Private Sub hsbWord_Change() 参考代码： txtWord.FontSize = hsbWord.Value Dim sum As Integer End Sub Dim n As Integer 步骤3：按要求将文件保存至考生文件夹中。 Dim x As Integer Dim y As Integer 【主要考点】水平滚动条、文本框。 Dim z As Integer 二、简单应用题 For i = 1 To 100 第1小题 x = Int(a(i) / 100) 【知识点播】标签控件（Label）常用于显示用户不能 y = Int((a(i) - x * 100) / 10) 直接改变的信息，Caption属性用来设置其显示的文本。标 z = a(i) - x * 100 - y * 10 签的BorderStyle属性用于设置标签的边框样式，值为0表示 If a(i) = x ^ 3 + y ^ 3 + z ^ 3 Then 无边框，值为1表示有固定单边框。 sum = sum + a(i) n = n + 1 【审题分析】根据题目要求，要在程序运行时能每隔 End If 1秒，标签中的数字加1，需将计时器的Interval属性值设置Next 为1000毫秒，Enabled属性值设置为True，在计时器的TimertxtResult.Text = Int(sum / n) 事件过程中将标签中的数值加1。 步骤2：按要求将文件保存至考生文件夹中。 【操作步骤】 步骤3：按 第八十二套上机答案解析105 一、基本操作题 第1小题 【知识点播】列表框控件（ListBox）用于显示可供单一或多个选择的列表项，给列表框添加列表项既可以在设计阶段通过其List属性设置加入（注意：每输入完一项后按 【审题分析】本题只需按要求画出控件并设置相关属性即可。 【操作步骤】 步骤1：新建一个\"标准EXE\"工程，按表1在窗体中画出控件并设置其相关属性。 表1 步骤2：按要求将文件保存至考生文件夹中。 第2小题 【知识点播】①在程序设计时通过属性设置窗口中的Font属性可设置控件标题文本的字体、字号、字形等。②FontName属性用于设置程序运行时在控件中显示文本的字考前复习必看资料：PiaoMo整理 —19— 步骤2：双击窗体上的计时器控件，在其Timer事件过程中加入以下代码： 参考代码： Private Sub tmrClock_Timer() lblClock.Caption=Val(lblClock.Caption)+1 End Sub 步骤3：按要求将文件保存至考生文件夹中。 【特别提示】常通过计时器来完成一些重复的有规律性的任务。 【主要考点】计时器控件。 第2小题 【知识点播】①列表框的MultiSelect属性用于设置是否可在列表项中做多个选择，值为0（缺省设置）表示不允许做多项选择，值为1表示允许做简单多项选择，值为2表示允许配合使用Shift、Ctrl键做多项选择；Selected(Index)属性用于设置或返回指定索引号（从0开始）列表项的选择状态，值为True表示被选中，值为False表示未被选中；ListIndex可用于设置或返回在列表框中当前选择项目的索引号。②列表框的Selected(Index)属性用于设置或返回指定索引号列表项的选中状态，值为True时表示被选中，值为False时表示未被选中，Index（索引号）值从0开始。List(Index) 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 For i = 3 To n 属性用于设置或返回指定索引号列表项的内容。ListCount a(i) = a(i - 1) + a(i - 2) 属性用来返回列表框中当前的列表项项数。 Next 【审题分析】程序设计思路：在\"显示\"按钮的单击事 txtResult.Text = a(n) 件过程中，使用For循环语句逐一判断列表框中的各项是否 End Sub 被选中，If语句的条件表达式为：lstItem.Selected(i) = True， 步骤4：运行程序，选中一个单选按钮，并单击\"计算 用Print方法将选中的列表项显示在窗体上。为与列表框的项 \"按钮获得一个结果，然后使用窗体右上角的\"关闭\"按钮结 目索引号保持一致，循环变量的初始值应为0，终值应为 束程序。 lstItem.ListCount-1。为使列表框在运行时可以多选，应将其 步骤5：按要求将文件保存至考生文件夹中。 MultiSelect属性值设置为1-simple。 【考试误区】数组的重新定义。 【操作步骤】 【主要考点】单选按钮数组、For循环语句。 步骤1：打开考生文件中的本题工程文件vbsj4.vbp， 第八十三套上机答案解析106 将列表框的MultiSelect属性值设置为1-simple。 一、基本操作题 步骤2：在代码编辑窗口，去掉程序中的注释符\"'\"， 将问号\"？\"改为正确的内容。 参考代码： For i = 0 To lstItem.ListCount – 1 If lstItem.Selected(i) = True Then 步骤3：按要求将文件保存至考生文件夹中。 【主要考点】列表框控件。 三、综合操作题 【知识点播】①数组使用相同的名字引用一系列变 量，并用数字索引来识别它们。数组有上界和下界，数组 的元素在上下界内是连续的。Visual Basic对每一个索引值都分配空间，所以不要不切实际地声明一个太大的数组。 在很多情况下，使用数组可以缩短和简化程序，因为可以 利用索引值设计循环，高效处理多种情况。 ②可以声明具有任何基本数据类型的数组，数组中的所有元素具有相同的数据类型，当数据类型为Variant时，各 元素能够包含不同种类的数据（对象、字符串、数值等）。 ③Visual Basic中有两种类型的数组：固定大小的数组及动态数组。固定大小的数组总是保持同样的大小，而动 态数组在运行时可以改变大小。要使用动态数组可以先声 明一个不指明大小的空数组（即没有维数下标），然后再用 ReDim语句在过程中改变数组大小。 【审题分析】本题实际是要让考生编写\"显示结果\"按 钮的单击事件过程。用For循环语句（循环变量的取值与单 选按钮数组的下标一致，从0到Opt1.Count - 1）逐一检查单 选按钮数组中的元素的选中状态，若某单选按钮的Value属性值为True，则该单选按钮被选中，用变量n记录下其对应的数值，即n=Val(Opt1(i).Caption)。 可以用一个下界为1的数组a来记录，由于数组a的大小在变，故先将其定义为动态数组，数据类型为长整型，在获知n值后，再重新定义为ReDim a(n) ，其中a(1)=1，a(2)=1。 根据题意，从数列的第3个数开始，每个数是其前两个数之和，数列第n项的值可表示为：a(n)=a(n-1)+a(n-2)。可以利用For循环语句（循环变量i的初值为3，终值为n），从数列的第3个数开始，逐一计算出该数列第3~n项的值，计算表达式为a(i)=a(i-1)+a(i-2)。 【操作步骤】 步骤1：打开考生文件夹下的本题工程文件vbsj5.vbp。 步骤2：在代码编辑窗口中的通用部分，输入如下代码： Option Base 1 步骤3：编写\"计算\"按钮的单击事件过程。 参考代码： Private Sub cmdCal _Click() Dim a() As Long Dim i As Integer Dim n As Integer For i = 0 To optNum.Count-1 If optNum (i).Value = True Then n = Val(optNum (i).Caption) Exit For End If Next ReDim a(n) a(1) = 1 a(2) = 1 考前复习必看资料：PiaoMo整理 —20— 第1小题 【知识点播】①控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有唯一的索引号（Index），即下标。要将一组相同类型的控件改为控件数组，只需将它们的名称改为同一个名称，再将其Index属性分别设置为不同值即可。 ②添加控件数组的方法是：先通过工具箱建立第1个控件，然后对该控件进行\"复制\"、\"粘贴\"操作，粘贴时在弹出的对话框中选择建立控件数组，这时控件数组的Index值会自动从0开始编号。 【审题分析】本题只需按题目要求在窗体中画一个命令按钮控件数组即可。 【操作步骤】 步骤1：新建一个\"标准EXE\"工程，单击工具箱中的 CommandButton控件图标，在窗体Form1上拉出一个命令按钮，在属性设置窗口中该单选按钮名称设置为cmdArray，Width属性值设置为900，Height属性值设置为400。 步骤2：选中cmdArray控件，选择【编辑】→【复制】命令，然后选择【编辑】→【粘贴】命令，在弹出的询问是否建立控件数组的对话框中，选择\"是\"按钮，则可以建立cmdArray控件数组的第2个元素。再次选择【编辑】→【粘 贴】命令，建立cmdArray控件数组的第3个元素。 步骤3：依次选中cmdArray控件数组中各个元素，设置它们的相关属性，属性及其值如表1所示。 表1 步骤4：按要求将文件保存至考生文件夹中。 【考试误区】控件数组元素的索引号（下标）默认从0开始。 【主要考点】控件数组、单选按钮。 第2小题 【知识点播】驱动器列表框（Drive ListBox）用来显示当前系统中所有有效磁盘驱动器的列表；目录列表框（Dir List Box）用来分层显示指定磁盘驱动器上的目录列表；文件列表框（File List Box）用来显示指定目录中所选择文件 类型的文件列表，默认为*.*。在程序运行时，驱动器列表框的Drive属性用来设置或返回选择的驱动器（缺省值是当 前驱动器），目录列表框的Path属性用来设置或返回选择的 目录（缺省值是当前路径），文件列表框的Path属性用来设 置或返回其当前的目录（缺省值是当前路径），文件列表框的FileName属性可返回所选文件的文件名。 【审题分析】要在程序运行时，能对系统中的文件进行浏览，就要让驱动器列表框、目录列表框和文件列表框实现同步变化，关键是将驱动器列表框、目录列表框、文件列表框相互关联起来，这可通过编写驱动器列表框、目录列表框的Change事件过程，使三者的路径保持一致来实 现。 【操作步骤】 步骤1：新建\"标准EXE\"工程，往窗体Form1中加入驱全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 动器列表框、目录列表框控件、文件列表框控件各一个以来交换两个文本框中的内容，然后将optChange的Enable属及两个标签，分别设置它们的相关属性，属性及其值如表2性设置为False。在optLink单选按钮的Click事件应实现：将所示。 两个文本框中的内容连接进来，这里我们可以采用连接字 表2 符符号\"&\"来连接两个文本框的Text属性。 【操作步骤】 步骤1：新建一个\"标准EXE\"工程，按表3在窗体中画出控件并设置其相关属性。 表3 步骤2：打开代码编辑窗口，输入如下代码： 参考代码： Private Sub Drv1_Change() Dir1.Path = Drv1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub File1_Click() Label2.Caption=File1.FileName End Sub 步骤3：按要求将文件保存至考生文件夹中。 【考试误区】程序运行时当通过代码改变目录列表框的Path属性值时，也会触发其Change事件，因此在驱动器列表框的Change事件过程中没必要加入语句：File1.Path = Dir1.Path。 【主要考点】文件系统控件。 二、简单应用题 第1小题 【知识点播】Mid(字符串,起始位置[,个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串。 【审题分析】程序设计思路：从文本框的第1个字符开始依次检查其后面的每一个字符，若发现空格则将其之前或两个空格之间的字符串作为一个单词添加到列表框中。在Do循环（指内循环，循环条件为：取出的字符为非空格字符且取字符的起始位置没有超出文本框的总字符数，表达式为：Mid(S1, I1, 1) <> \" \" And I1 <= Len(S1)，其中S1=txtSentense.Text，将Mid函数从文本框中取出的非空格字符，逐个连接成一个单词，语句为：S2 = S2 & Mid(S1, I1, 1)，每执行一次循环体取字符的起始位置加1，即I1 = I1 + 1。当遇到空格时结束循环，将得到的单词（即变量S2的值）用AddItem方法添加到列表框中，并且清空变量S2，将取字符的起始位置加1。 之后继续执行内循环以得到下一个单词，直到取字符的起始位置（即变量I1的值）超过文本框的总字符数为止，外循环的条件为：I1 <= Len(S1)。 【操作步骤】 步骤1：打开考生文件夹下的本题工程文件vbsj3.vbp。 步骤2：打开代码编辑窗口，去掉程序中的注释符\"'\"，将问号\"？\"改为正确的内容。 参考代码： S1 = txtSentense.Text Do While Mid(S1, I1, 1)<>\" \"And I1<= Len(S1) lstWord.AddItem S2 S2 = \"\" 步骤3：按要求将文件保存至考生文件夹中。 【特别提示】以空格作为分隔单词的依据是本题的关键，同时注意空格字符串和空字符串是完全不同的。 【主要考点】多重Do循环、字符串函数。 第2小题 【审题分析】根据题目要求，设计本题程序的思路：在optChange单选按钮的Click事件应实现：将Txt1和Txt2文本框中的内容互换，因此这里我们可以通过一个中间变量考前复习必看资料：PiaoMo整理 —21— 步骤2：在代码编辑窗口，编写3个按钮的单击事件过程。 参考代码： Private Sub optChange_Click() Dim temp As String temp = Txt1.Text Txt1.Text = Txt2.Text Txt2.Text = temp optChange.Visible = False End Sub Private Sub optLink_Click() txtResult.Text=Txt1.Text & Txt2.Text End Sub 步骤3：按要求将文件保存至考生文件夹中。 【主要考点】&连字符、数据交换。 三、综合操作题 【审题分析】根据题目源程序，判断文本框Txt1输入的密码是否为\"123456\"的条件表达式为：Txt1.Text = \"123456\"；要去掉对文本框中输入内容的屏蔽，需将其PasswordChar属性值清空，即执行语句：Txt1.PasswordChar =\"\"；每输入一次错误密码，文本框Txt2中的数字减1，当文本框Txt2中数值还大于0时，提示重新输入，否则提示错误，并禁用文本框Txt1。 【操作步骤】 步骤1：打开考生文件中的本题工程文件vbsj5.vbp，将文本框Txt1的PasswordChar属性值设置为\"*\"。 步骤2：在代码编辑窗口，去掉程序中的注释符\"'\"，将问号\"？\"改为正确的内容。 参考代码： If Txt1.Text = \"123456\" Then Txt1.PasswordChar = \"\" If Txt2.Text > 0 Then Txt1.Enabled = False 步骤3：按要求将文件保存至考生文件夹中。 【主要考点】If语句、文本框控件。 第八十四套上机答案解析107 一、基本操作题 第1小题 【知识点播】某对象的MousePointer属性用于设置鼠标经过该对象时光标的形状类型，在程序设计或运行阶段都可设置。MousePointer属性值可以是0~15之间的任意整数，不同的值代表不同的形状。MousePointer属性的可选设置值及含义如表1所示。 表1 MousePointer属性的可选设置值及含义 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 【审题分析】根据题目要求，要使鼠标指针位于文本框中时，鼠标指针形状为箭头，需将文本框的MousePointer属性值设置为1。为使鼠标指针位于窗体中其他位置时，鼠标指针的形状为十字，需将窗体的MousePointer属性值设置为2。 【操作步骤】 步骤1：新建\"标准EXE\"工程，在窗体Form1中画一个文本框，按表2设置文本框及窗体属性。 表2 步骤2：在代码编辑窗口，编写命令按钮的单击事件过程。 参考代码： Private Sub cmdDisplay_Click() txtBegin.Text=txtInput.SelStart + 1 txtNum.Text = txtInput.SelLength End Sub 步骤3：按要求将文件保存至考生文件夹中。 二、简单应用题 第1小题 【审题分析】PasswordChar属性用于设置屏蔽文本框中内容的字符，要去掉对文本框中输入内容的屏蔽，需将其PasswordChar属性值清空。 【操作步骤】 步骤1：新建一个\"标准EXE\"工程，按表4在窗体中画出控件并设置其相关属性。 表4 步骤2：按要求将文件保存至考生文件夹中。 【特别提示】当窗体中控件的MousePointer属性值为0时，鼠标经过该控件时光标的形状类型由窗体的MousePointer属性值决定。 【主要考点】MousePointer属性、Select Case语句。 第2小题 【知识点播】文本框的Text属性可返回或设置文本框中显示的内容；SelLength属性可返回或设置文本框中当前选定的字符数；SelStart属性可返回或设置所选文本的起始点，该起始点位于起始文本的左侧；SelText属性可返回含有当前所选择的字符串。 【审题分析】由于SelStart属性返回的所选文本的起始点位于起始文本的左侧，故所选文本的第一个字符的顺序号应为SelStart属性值加1。选中字符数即为SelLength属性返回值。 步骤1：新建一个\"标准EXE\"工程，按表3在窗体中画出控件并设置其相关属性。 表3 步骤2：在代码编辑窗口，分别编写3个按钮的单击事件过程。 参考代码： Private Sub cmdShow_Click() txtPwd.PasswordChar = \"\" End Sub Private Sub cmdHide_Click() txtPwd.PasswordChar = \"?\" End Sub Private Sub cmdCopy_Click() txtObj.Text = txtPwd.Text End Sub 步骤3：按要求将文件保存至考生文件夹中。 【主要考点】PasswordChar属性。 第2小题 【知识点播】过程是构成程序的一个模块，常用来完成一个相对独立的功能。Function过程也叫函数过程，一般用于调用后不仅要执行一组代码完成相应操作，还需返回一个有用值的情况。调用Function函数常放在赋值符右端。 【审题分析】本题源程序中，自定义函数xn的功能是进行a^m幂运算，它通过For循环连续m次将a乘以累积变量tmp（初值为1）来实现。故自定义函数xn中第一个？处应改为：tmp*a，作为函数返回值第二个？处应改为：tmp。 在\"计算\"按钮的单击事件过程中，根据程序所要计算 考前复习必看资料：PiaoMo整理 —22— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 表达式的特点，源程序利用一个For循环依次计算表达式中【操作步骤】 各项的值（(x+i)^i），并将其累加入变量z。计算表达式中各步骤1：新建一个\"标准EXE\"工程，在窗体Form1中加项的值通过调用自定义函数xn(t,i)来实现的，其中t=x+i。故入两个标签、两个文本框和一个命令按钮，其相关属性设cmdCal_Click事件过程中第一个？处应改为：xn(t,i)。计算置如表1所示。 结果显示在标签中，故第二个？处应改为：z。 表1 【操作步骤】 步骤1：打开考生文件中的本题工程文件vbsj4.vbp，在代码编辑窗口，去掉程序中的注释符\"'\"，将问号\"？\"改为正确的内容。 参考代码： tmp = tmp * a xn = tmp z = z + xn(t, i) lblResult.Caption = z 步骤2：双击窗体Form1中的\"显示\"按钮，在打开的代步骤2：按 码编辑窗口中，输入如下代码： 第2个文本框中输入10，然后单击\"计算\"按钮。 参考代码： 步骤3：按要求将文件保存至考生文件夹中。 Private Sub cmdDisplay_Click() 三、综合操作题 Form1.Caption=txtBook.Text& \"，\"& txtAuthor.Text 【审题分析】本题源程序已提供用于读数的 End Sub ReadData1、ReadData2和用于写盘的WriteData几个自定义 步骤3：按要求将文件保存至考生文件夹中。 过程，只需编写\"读数\"、\"计算\"和\"保存\"命令按钮的单击事 【主要考点】连字符&、窗体标题。 件过程，并在事件过程中调用ReadData1、ReadData2和 第2小题 WriteData自定义过程。程序设计思路：在\"读数\"按钮的Click 【审题分析】列表框的Text属性可返回选中列表项的 事件过程中，通过分别调用ReadData1和ReadData2过程将数 内容，往列表框中添加项目应使用AddItem方法，删除列表 据从文件dr342.dat和dr343.dat中读入到数组Arr1和Arr2（窗 框中选中列表项应使用RemoveItem方法。 体变量）中；然后在\"计算\"按钮的Click事件过程中，利用 【操作步骤】 For语句（循环变量i的初值为1，终值为20）依次将数组Arr1 步骤1：新建一个\"标准EXE\"工程，按表2所列在窗体 和Arr2同下标的元素相减后赋值给数组Arr3同下标的元素 Form1中画出控件，并设置其相关属性。 （表达式为：Arr3(i)= Arr1(i)-Arr2(i)），并累加到变量Sum， 表2 循环结束后将Sum的值显示在窗体上。在\"保存\"按钮的Click事件过程中，通过调用WriteData过程将Sum的值写入数据文件out5.txt。 注意：调用WriteData过程时需传递参数dw343.dat和Sum，变量Sum应声明为窗体变量。 【操作步骤】 步骤1：打开考生文件中的本题工程文件vbsj5.vbp，按表5在窗体中画出控件并设置其相关属性。 表5 步骤2：在代码编辑窗口，分别编写\"读入数据\"按钮和\"计算保存\"按钮的单击事件过程。 参考代码： Private Sub cmdRead_Click() ReadData1 ReadData2 End Sub Private Sub cmdCal_Click() Dim Arr3(20) As Integer Dim Sum As Integer Sum = 0 For i = 1 To 20 Arr3(i) = Arr1(i) - Arr2(i) Sum = Sum + Arr3(i) Next Print Sum WriteData \"out5.dat\End Sub 步骤3：按 步骤4：按要求将文件保存至考生文件夹中。 【特别提示】为在多个过程中使用同一个变量，应将其声明为窗体变量。 【主要考点】过程调用、For循环语句、数组。 步骤2：在打开的代码编辑窗口中，编写两个命令按钮的单击事件代码： 参考代码： Private Sub cmdCopy_Click() lstCity.AddItem lstCity.Text End Sub Private Sub cmdRemove_Click() lstCity.RemoveItem lstCity.ListIndex End Sub 步骤3：按要求将文件保存至考生文件夹中。 二、简单应用题 第1小题 【知识点播】控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有唯一的索引号（Index），即下标，默认索引号从0开始。控件数组的Count属性值可返回该控件数组中元素的个数。 【审题分析】本题源程序在\"计算\"按钮的单击事件过程中，用变量a记录最高得分，用变量b记录最低得分，用变量s记录得分总数，这3个变量的初值均为文本框数组Txt1中第1个元素的值。源程序通过For循环将文本框数组Txt1中第2~6（索引号为1~5）个元素的值依次累加入变量s，并依次与变量a、变量b比较大小，将较大值存入变量a，将较小值存入变量b。故第1个？处应改为：5（或Txt1.Count-1），第2个？处应改为：a。去掉1个最高得分和1个最低得分后，剩下求平均分的元素只有4个，故第3个？处应改为：4。所得平均分乘以3，再乘以难度系数即为最后得分，故第4个？处应改为：s。最后结果保留到第2位小数（不四舍五入）后显示中文本框Txt3中，故第5个？处应改为：Txt3.Text。 【操作步骤】 第八十五套上机答案解析108 一、基本操作题 第1小题 【审题分析】要实现题目要求的功能，只需在\"显示\"命令按钮的Click事件过程中，将两个文本框中的内容连接后，赋值给窗体的Caption属性。 考前复习必看资料：PiaoMo整理 —23— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 步骤1：打开考生文件中的本题工程文件vbsj3.vbp，一、基本操作题 在代码编辑窗口，去掉程序中的注释符\"'\"，将问号\"？\"改为第1小题 正确的内容。 【审题分析】要在程序运行时实现题目所要求的功 参考代码： 能，只需在命令按钮Click事件过程中用代码设置文本框的For k = 1 To 5 Visible属性值为False，将文本框中的内容赋值给标签的If a < Val(Txt1(k).Text) Then Caption属性，设置标签的Visible属性值为True。 s = (s - a - b)/4 【操作步骤】 s = s * 3 * Val(Txt2.Text) 步骤1：新建一个\"标准EXE\"工程，按表1在窗体中画 Txt3.Text = Int(s * 100)/100 出控件并设置其相关属性。 步骤2：按要求将文件保存至考生文件夹中。 表1 第2小题 【知识点播】通用对话框的InitDir属性用于为打开或另存为对话框指定初始的目录，如果此属性没有指定，则使用当前目录。 【审题分析】本题需按要求在图片框的单击事件过程中，通过调用通用对话框的ShowOpen方法实现。 【操作步骤】 步骤1：新建一个\"标准EXE\"工程，按表3在窗体中画出控件并设置其相关属性。 表3 步骤2：打开代码编辑窗口，编写命令按钮的Click事件过程。 参考代码： Private Sub cmdDisplay_Click() Txt1.Visible = False Lbl1.Caption = Txt1.Text Lbl1.Visible = True End Sub 步骤3：按要求将文件保存至考生文件夹中。 【主要考点】Visible属性。 步骤2：打开代码编辑窗口，编写如下事件过程。 第2小题 参考代码： 【知识点播】Visible（可见）属性用于设置控件或菜Private Sub picOpen_Click() cdlOpen.ShowOpen 单项在程序运行时是否可见，值为True表示可见，值为FalseEnd Sub 表示不可见。 步骤3：按要求将文件保存至考生文件夹中。 【审题分析】本题的考核要求有两项。 【特别提示】打开\"打开文件\"对话框还可使用语句：【操作步骤】 cdlOpen.Action=1。 步骤1：打开本题工程文件vbsj2.vbp，在窗体中画一 【主要考点】通用对话框。 个直线控件和一个命令按钮，并设置其相关属性如表2所 三、综合操作题 示。 【知识点播】While循环和Do循环是用条件来控制的表2 循环。Do循环语句的功能是：当指定的\"循环条件\"为真或直到指定的\"循环条件\"变为真之前重复执行循环体。 【审题分析】根据题意，数列第n项的值源于该项前两项的乘积。本题源程序中，将文本框txtFir的输入值赋予变量a作初值，将文本框txtSec的输入值赋予变量b作初值，并把a、b初值作为数列的前两项。故第1个？处应改为：b。将文本框txtNum的输入值赋予变量n，以标记数列最终要生成的项数。变量k用于记录数列当前项数，初值为2。 在DO循环中，首先将a、b的乘积赋予变量c（当前项数k增1），然后判断c的值是否小于10，若c小于10则c即为数 列的第3项，并将b的值赋予变量a，c的值赋予变量b，以便步骤2：打开代码编辑窗口，编写命令按钮的Click事计算数列下一项的值；若c不小于10，则取a和b乘积十位上件过程。 的数（即d=c \\ 10）作数列的第3项，将d的值赋予变量a（当参考代码： Private Sub cmdShow_Click() 前项数k增1），并进一步判断当前k值是否小于或等于最终 Line4.Visible = True 要生成的项数n，若是则取a和b乘积个位上的数（即d=c Mod End Sub 10）作数列的第4项，将d的值赋予变量b，以便计算数列下 Private Sub cmdHide_Click() 一项的值。重复执行循环体，即可依次求出数列后续项的 Line4.Visible = False 值。 End Sub 【操作步骤】 步骤3：按要求将文件保存至考生文件夹中。 步骤1：打开考生文件中的本题工程文件vbsj5.vbp，二、简单应用题 在代码编辑窗口，去掉程序中的注释符\"'\"，将问号\"？\"改为第1小题 正确的内容。 【知识点播】鼠标事件分点击事件和状态事件：点击 参考代码： 事件有单击（Click）和双击（DblClick），不区分左右键；txtList = txtList & a & \" \" & b 状态事件有按下（MouseDown）、移动（MouseMove）和弹 a = b 起（MouseUp），能够区分出鼠标的左、右和中间键。按下If k <= n Then 鼠标键事件过程的一般格式为： b = d Private Sub Form_MouseDown(Button As Integer, Shift 步骤2：按要求将文件保存至考生文件夹中。 As Integer, X As Single, Y As Single) 第八十六套上机答案解析109 End Sub 考前复习必看资料：PiaoMo整理 —24— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 其中各参数的含义：Button表示被按下的鼠标键，可表达式为：Trim$(Text2) <> users(k,2 )），若不正确则弹出提以取3个值， 1左键、2为右键、4为中间键；Shift表示Shift，示信息，否则在\"启动\"窗体的标签（Form1.Label1）中显示Ctrl和Alt键的状态， Shift键为1、Ctrl键为2、Alt键为4；X，\"登录成功\"。 Y表示鼠标光标的当前位置。 【操作步骤】 【审题分析】本题源程序在Form_MouseDown事件过步骤1：打开考生文件中的本题工程文件vbsj5.vbp，程中，先通过调用函数oncircle(X, Y)以判断鼠标单击的位置在代码编辑窗口，去掉程序中的注释符\"'\"，将问号\"？\"改为是否在圆的边线上，若在边线上，则接着判断当前按下的正确的内容。 是否为鼠标左键，若为左键，则将直线Line1的终点位置设参考代码： 置为当前鼠标单击的位置，故第1个？处应改为：Y；若当'---注册窗体Form2- n = n + 1 前按下的不是左键，则直线Line1的终点位置设置为其原始 ElseIf finduser(Trim$(Text1)) > 0 Then 位置，即Line1.X2 = Line1.X1、Line1.Y2 = y0-radius。若鼠 Form1.Label1.Caption = \"注册成功！\" 标单击的位置不在圆的边线上，则在标签上显示相关信息， '---登录窗体Form3- 故4个？处应改为：Label1.Caption。 If k = 0 Then 【操作步骤】 ElseIf Trim$(Text2) <> users(k, 2) Then 步骤1：打开本题工程文件vbsj3.vbp，在代码编辑窗 步骤2：按要求将文件保存至考生文件夹中。 口，去掉程序中的注释符\"'\"，将问号\"？\"改为正确的内容。 第八十七套上机答案解析110 参考代码： 一、基本操作题 Line1.Y2 = Y Line1.X2 = Line1.X1 第1小题 Line1.Y2 = y0 – radius 【知识点播】①程序运行时，通常用单击命令按钮的Label1.Caption = \"鼠标位置不对\" 方式来选中某个按钮，为了能够在按 【审题分析】程序设计思路：在\"加密\"按钮的单击事的Tab键次序，所谓Tab键次序是指按 【操作步骤】 cmdDisplay的Click事件，需将按钮的Cancel属性设置为步骤1：打开考生文件中的本题工程文件vbsj4.vbp，True。 在代码编辑窗口，去掉程序中的注释符\"'\"，将问号\"？\"改为【操作步骤】 正确的内容。 步骤1：新建一个\"标准EXE\"工程。 参考代码： 步骤2：在窗体Form1中加入一个文本框和一个命令按n = Val(Opt1(k).Caption) 钮，并分别设置它们的相关属性，属性及值如表1所示。 For k = 1 To m 表1 c = Mid$(Txt1.Text, k, 1) a = a + c 步骤2：按要求将文件保存至考生文件夹中。 【主要考点】加密算法。 三、综合操作题 【知识点播】①在实际应用中，较为复杂的应用程序通常由多个窗体组成，且可设置其中一个为启动窗体，只 有启动窗体才能在运行程序时自动加载并显示出来。②在步骤3：双击\"显示\"按钮，打开代码编辑窗口，输入多个窗体组成的程序中，可以在一个窗体中读取另一个窗如下代码： 体中控件的属性值，其语法格式为：窗体名称.控件名称.属参考代码： 性名称。③标准模块（文件扩展名为.BAS）是应用程序内Private Sub cmdDisplay_Click() 其它模块可访问的过程和声明的容器。它们可以包含变量、 Txt1.Text = \"Visual Basic考试\" 常数、类型、外部过程和全局过程的全局（在整个应用程End Sub 序范围内有效的）声明或模块级声明。 步骤4：按要求将文件保存在考生文件夹中。 【审题分析】本题源程序在\"注册\"窗体的\"确定\"按钮【考试误区】一个窗体中最多只能有一个命令按钮的的单击事件过程中，先判断是否输入用户名，若没有输入Cancel属性值被设置为True。 则弹出提示信息，否则通过调用标准模块中的finduser函数，【主要考点】命令按钮控件。 检查输入用户是否存在于users数组中（条件表达式为：第2小题 finduser(Trim$(Text1)) >0），若该用户存在则弹出提示信息，【审题分析】为在txtPwd中将输入内容显示为\"*\"，需否则进一步检查前后两次输入的密码是否一致，若前后不将txtPwd的PasswordChar属性值设置为\"*\"。要实现程序运行一致则弹出提示信息，否则通过调用过程writeusers将该用时，在txtPwd中输入一个字符，就能在txtCopy中显示的功户名及密码写入数组users中，并在\"启动\"窗体的标签能，可在txtPwd的Change事件过程中，加入让txtCopy显示（Form1.Label1）中显示\"注册成功\"。每调用一次过程内容始终与txtPwd保持一致的语句。 writeusers，全局变量n将记录新增一个用户，即n = n +1。 【操作步骤】 在\"登录\"窗体的\"登录\"按钮的单击事件过程中，通过步骤1：新建一个\"标准EXE\"工程。 调用标准模块中的finduser函数，检查输入用户是否存在于步骤2：在窗体Form1中加入两个文本框，并分别设置users数组中，若不存在（条件表达式为：k=0）则弹出提示它们的相关属性，属性及值如表2所示。 信息，否则进一步检查该用户的密码输入是否正确（条件表2 考前复习必看资料：PiaoMo整理 —25— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 第2小题 【知识点播】①Activate（活动）、Deactivate（非活动）事件：当一个窗体成为活动窗口时发生Activate事件；当一个对象不再是活动窗口时发生Deactivate事件。②Circle语句的常用语法格式为：对象.Circle (x,y) ,R,Color[,Start] [,End][,ρ]。其功能是在对象指定位置上画圆或椭圆。其中， 步骤3：双击Txt1文本框，打开代码编辑窗口，在txtPwd (x,y)是圆心坐标，R是圆半径；Start、End这2个参数表示圆 的Change事件过程中输入如下代码： 弧的开始和结束（可省掉参数，但逗号不能省，例 参考代码： Circle( (1000,1000) , 500, , , , 2)；ρ参数指定了椭圆水平长度Private Sub txtPwd_Change() 和垂直长度比。另外，Circle 方法还可以画出圆弧（圆的一 txtCopy.Text = txtPwd.Text 部分）和楔形饼块。 End Sub 【审题分析】本题源程序要通过窗体的Activate事件步骤4：按要求将文件保存至考生文件夹中。 过程在圆上产生12个刻度点，其中For循环的步长值应设置【主要考点】文本框控件。 为：360/12=30。由于VB窗体的坐标原点位于窗体最左上角，二、简单应用题 因此每个刻度点距圆心的横向距离（radius * Cos(k * 第1小题 3.14159 / 180)）需加上圆心的x坐标值（x0），才是该刻度点【知识点播】①框架控件（Frame）：是一个容器控件， 的x坐标值。而该刻度点的y坐标值则应是圆心的y坐标值常用于将界面上的控件分组，框架内的控件将随框架一起 （y0）减去刻度点距圆心的纵向距离（radius * Sin(k * 移动或隐藏，框架的Caption属性用于设置其显示的标题。 3.14159 / 180)）。 ②容器（如窗体和框架）中的单选按钮（OptionButton）组 计时器Timer1的Timer事件每隔0.5秒触发一次，在常用于提供多个选项间的唯一选择，其Value属性用于设置 Timer事件过程中，长指针linLong的终点（X2,Y2）顺时针或返回每个单选按钮的选中状态：值为False表示未选，值 每次转动一个刻度，其坐标值通过计算得出（其中，Len1为True表示选中。③Alignment属性用于确定文本框中文本 为长指针的长度；a为长指针与圆心所在水平线形成的夹角的放置方式，其值可以设置为0（靠左，默认）、1（靠右） 度数，初值为90，每次减少30），故该事件过程中第1个？或2（居中）。④FontName属性用于设置程序运行时在控件 处应改为：Y2。短指针linShort的终点每次顺时针每次转动中显示文本的字体，FontSize属性、FontBold属性、FontItalic 1/12个刻度，其坐标值通过计算得出（其中，Len2为短指针属性、FontStrikethru属性和FontUnderline属性可分别用来设 的长度，b为短指针与圆心所在水平线形成的夹角度数，初置字体的大小和样式。 值为90，每次减少30/12），故该事件过程中第2个？处应改【审题分析】本题需分别在五个单选按钮的Click事件 为：b。 过程中，设置文本框txtInput的Alignment属性或FontName属 \"开始\"按钮用于启动计时器，而\"停止\"按钮则用于停性为对应值。 止计时器，语句为：Timer1.Enabled = False。 【操作步骤】 【操作步骤】 步骤1：新建一个\"标准EXE\"工程，按表3在窗体中画 步骤1：打开考生文件中的本题工程文件vbsj5.vbp，在代码出控件并设置其相关属性。 编辑窗口，去掉程序中的注释符\"'\"，将问号\"？\"改为正确的表3 内容。 参考代码： Timer1.Enabled = False For k = 0 To 359 Step 30 x = radius * Cos(k * 3.14159/180) + x0 linLong.Y2=y0-len1*Sin(a*3.14159/180) b = b - 30/12 步骤2：按要求将文件保存至考生文件夹中。 三、综合操作题 【审题分析】根据题意，数组athlete中存入的是5个运动员的姓名，二维数组a中存入的是5个运动员每人的7个分数和1个难度系数，数组athlete中元素的下标与二维数组a中第一维的下标对应。 源程序的getmark函数中，参数n为运动员的顺序号，变量s用于记录某运动员的7个分数之和，其初值设置为该运动员的第1个分数（即a(n,1)）。统计7个分数之和是在For循 环中完成的，依次将第2~7个分数累加入变量s，故循环终值 步骤2：在代码编辑窗口，分别编写5个按钮的单击事 应为：7。变量maxnum和minnum分别用于记录7个分数中的 件过程。 最高分和最低分，数组元素a(n,8)是难度系数，故getmark函 参考代码： 数的返回值应为：getmark = s * 3 * a(n,8)。 Private Sub optLeft_Click() 在\"选出冠军\"的Click事件过程中，可声明一个整型变 txtInput.Alignment = 0 量max，用于记录最后得分较高的运动员序号，其初值可设End Sub 置为1。通过For循环依次比较第1个运动员与后面4人的最后Private Sub optCenter_Click() 得分，并用max记录下最后得分较高的运动员序号。循环结 txtInput.Alignment = 2 End Sub 束，数组元素athlete(Max)即为冠军的姓名，函数Private Sub optRight_Click() getmark(Max)的值即为其最后得分。 txtInput.Alignment = 1 【操作步骤】 End Sub 步骤1：打开考生文件中的本题工程文件vbsj5.vbp， Private Sub optSt_Click() 在代码编辑窗口，去掉程序中的注释符\"'\"，将问号\"？\"改为 txtInput.FontName = \"宋体\" 正确的内容。 End Sub 参考代码： Private Sub optHt_Click() s = a(n, 1) txtInput.FontName = \"黑体\" For k = 2 To 7 End Sub getmark = s * 3 * a(n, 8) 步骤3：按要求将文件保存至考生文件夹中。 考前复习必看资料：PiaoMo整理 —26— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 Private Sub cmdSelect_Click() 个求数组中各元素与其下标相除所得的和，并在文本框中' 要求考生编写的程序 显示出来的函数。设计思路：利用For循环语句，将数组中Dim max As Integer 各元素除以其下标（表达式为：a(i)/i）的值累加入一个变量Dim i As Integer （如sum）。循环变量的初值和终值可分别通过函数 max = 1 Lbound(a)和Ubound(a)获得。 For i = 2 To 5 【操作步骤】 If getmark(max) < getmark(i) Then 步骤1：打开考生文件夹下的本题工程文件vbsj3.vbp。 max = i 步骤2：进入代码编辑窗口，在Function Fun()和End End If Function之间输入以下代码： Next txtMark.Text = athlete(max) 参考代码： txtScore.Text = getmark(max) Function Fun(a() As Single) As Single End Sub Dim sum As Single 步骤2：按要求将文件保存至考生文件夹中。 Dim i As Integer For i = LBound(a) To UBound(a) 步骤3：按 sum = sum + a(i) / i 后单击\"选出冠军\"按钮，最后单击\"存盘\"按钮。 Next 第八十八套上机答案解析111 Fun = sum 一、基本操作题 End Function 第1小题 步骤3：按要求将文件保存至考生文件夹中。 【知识点播】BackColor属性用于设置窗体的背景颜【特别提示】Function过程应有返回值。 色。Caption属性用于设置或返回窗体标题栏中显示的信息。 【主要考点】静态数组、自定义Function过程。 【审题分析】本题需在命令按钮的单击事件过程中，第2小题 通过语句设置窗体的BackColor属性值为\"&HFF&\"。 【审题分析】本题源程序利用计时器的Timer事件来 【操作步骤】 控制图片的移动，因此单击\"开始\"按钮启动计时器，而单击步骤1：新建一个\"标准EXE\"工程，在窗体Form1中画\"停止\"按钮就是要停止计时器。在计时器的Timer事件过程一个命令按钮，设置相关属性，其属性及值如表1所示。 中，通过每次使图片框的Left属性值增量200实现移动，并 表1 让水平滚动条滑块的位置随图片框的Left属性值变化。当图 片完全移出窗体的右边界（即Pic1.Left > Me.Width）时，则重新从窗体左边界开始移动，即Pic1.Left = 0。由于题目要求不能在设计阶段修改控件属性，要想在单击\"开始\"按钮时能启动计时器，就需在窗体加载事件过程中设置计时器的Interval属性，即Tmr1.Interval = 500。 步骤2：打开代码编辑窗口，编写按钮的Click事件过【操作步骤】 程中。 步骤1：打开考生文件夹下的本题工程文件vbsj3.vbp。 参考代码： 步骤2：进入代码编辑窗口，去掉程序中的注释符\"'\"，Private Sub cmdChange_Click() 将问号\"？\"改为正确的内容。 BackColor = &HFF& 参考代码： End Sub Tmr1.Enabled = False 步骤3：按要求将文件保存至考生文件夹中。 Tmr1.Interval = 500 第2小题 If Pic1.Left > Me.Width Then 【审题分析】本题其实就是在命令按钮的单击事件过Pic1.Left = 0 步骤3：按要求将文件保存至考生文件夹中。 程中用代码来设置水平滚动条的属性，并且在水平滚动条 三、综合操作题 的Change事件过程中，用Print方法把表示水平滚动条滑块 位置的Value属性值输出到窗体上。 【知识点播】Sqr(N)求平方根函数，用于返回N的算 术平方根。 【操作步骤】 【审题分析】本题可通过一个嵌套的For循环，来统步骤1：新建一个\"标准EXE\"工程，按表2在窗体中画 出控件并设置其相关属性。 计满足题目要求的整数组合的个数。其中，外循环变量i的 表2 取值范围为1~60，内循环变量j的取值范围为i~60（这样可 避免出现重复的组合）。通过表达式：Sqr(i * i + j * j) = Int(Sqr(i * i + j * j))是否成立来判断Sqr(i * i + j * j)的值是否为整数，并通过表达式：Sqr(i * i + j * j) <= 60是否成立来判断Sqr(i * i + j * j)的值是否在60以内，当两个条件同时满足 时，此时的i、j及Sqr(i * i + j * j)即为满足题目要求的整数组步骤2：打开代码编辑窗口，编写水平滚动条的Change 合，记录组合个数的变量n加一。循环结束，将n值显示在事件过程。 标签Label1中。 参考代码： 【操作步骤】 Private Sub Cmd1_Click() Vsb1.Max = Form1.Height 步骤1：打开考生文件夹下的本题工程文件vbsj5.vbp， Vsb1.Min = 0 在码编辑窗口的指定位置输入代码： Vsb1.LargeChange = 50 参考代码： Vsb1.SmallChange = 10 Private Sub Command1_Click() End Sub '===考生编写程序开始==== Private Sub Vsb1_Change() Dim i As Integer Print Vsb1.Value Dim j As Integer End Sub Dim n As Integer 步骤3：按要求将文件保存至考生文件夹中。 For i = 1 To 59 【主要考点】水平滚动条。 For j = i To 60 二、简单应用题 If Sqr(i*i+j*j)=Int(Sqr _ 第1小题 (i*i+j*j)) And Sqr _ (i*i+j*j)<=60 Then 【审题分析】由本题所提供源程序可知，要求编写一 n = n + 1 考前复习必看资料：PiaoMo整理 —27— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 End If 参考代码： Next Private Sub Command1_Click() Next Shape1.BorderColor = &HFF& Lbl1.Caption = n End Sub '===考生编写程序结束==== Private Sub Command2_Click() Shape1.BorderColor = &HC000& '不要改动以下内容 End Sub save Label1 步骤3：按要求将文件保存至考生文件夹中。 End Sub 步骤2：按要求将文件保存至考生文件夹中。 【主要考点】形状控件。 步骤3：按 第1小题 第八十九套上机答案解析124 【知识点拨】本题源程序是在命令按钮的单击事件过一、基本操作题 程中，用For循环语句和Mid函数逐一取出指定字符串中的第1小题 字符进行判断。 【知识点拨】①滚动条分为水平滚动条（HscrollBar） 【审题分析】本题要首先按照要求画出三个单选按钮和垂直滚动条（VscrollBar）两种，常用来提供简便的定位 以及设置其标题属性，然后在命令按钮的单击事件中进行或用于取代数据的键盘输入。通过调整滚动条滑块的位置 判断，如果选择的是第一个单选按钮，则依次取出读取得即可改变其Value属性的值，滚动条的Max属性、Min属性限 到的字符串的每一个字符进行判断，当其为大写字母的时定了滚动条所能表示的最大值和最小值，即Value属性值的 候令计数器自加1，这样循环结束后即得到大写字符数；如取值范围，在程序中改变Value属性的值，滚动条滑块会随 果选择的是第二个按钮则利用相同的手段得到小写字符之移动到相应位置。LargeChange属性用于设置当点击滚动 数；如果选择的是第三个按钮则得到空格个数。 条滑块与两侧箭头间区域时Value属性值的改变量， 【操作步骤】 SmallChange属性用于设置当点击滚动条两侧箭头时Value 步骤1：打开考生文件夹中的本题工程文件sjt3.vbp，属性值的改变量。②滚动条滑块位置改变时将触发其 按表3在窗体中画出控件并设置其相关属性。 Change事件。 【审题分析】本题只需按要求建立程序界面并设置窗 体、滚动条和标签相关属性即可。 【操作步骤】 步骤1：新建一个\"标准EXE\"工程，按表1在窗体中画出控件并设置其相关属性。 表1 表3 步骤2：按要求将文件保存至考生文件夹中。 【主要考点】滚动条的基本属性。 第2小题 【知识点拨】形状控件（Shape）提供了显示一些规则图形的简易方法。通过设置形状控件Shape属性值，可显示6种图形：0－矩形、1－正方形、2－椭圆、3－圆、4－圆角矩形、5－圆角正方形。Width属性用于设置形状的宽度，当形状为圆时即为圆的直径。BorderColor属性用于设置边框颜色。 【审题分析】本题只需在\"红色\"和\"绿色\"按钮的单击事件过程中，通过语句设置形状控件Shape1的BorderColor属性值为相应颜色。 【操作步骤】 步骤1：新建一个\"标准EXE\"工程，在窗体Form1中画一个形状控件和两个命令按钮，并分别设置它们的相关属性，其属性及值如表2所示。 表2 步骤2：打开代码编辑窗口，编写两个命令按钮的单击事件过程。 考前复习必看资料：PiaoMo整理 —28— 步骤2：双击窗体中的\"统计\"命令按钮，在打开的代码编辑窗口中编写其单击事件过程。 参考代码： Private Sub Command2_Click() Dim i As Integer, j As Integer j = 0 For i = 1 To Len(s) If Option1.Value = True Then If Asc(Mid(s, i,1))>= Asc(\"A\") And Asc(Mid(s,i,1))<= Asc(\"Z\") Then j = j + 1 End If End If If Option2.Value = True Then If Asc(Mid(s,i,1)) >= Asc(\"a\") And Asc(Mid(s,i,1))<=Asc(\"z\") Then j = j + 1 End If End If If Option3.Value = True Then If Mid(s, i, 1) = \" \" Then j = j + 1 End If End If Next Text1.Text = j End Sub 步骤3：按 步骤4：单击窗体右上角的关闭按钮以结束程序。 步骤5：按要求将文件保存至考生文件夹中。 【提示】本题程序运行时，单击窗体右上角的关闭按钮将输出计算结果到文件out3.dat中，并以其判断程序编写是否正确。 第2小题 【知识点拨】①控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有唯一的索引号 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 （Index），即下标。②多分支控制结构也称为Select Case语句或【知识点拨】形状控件（Shape）提供了显示一些规Case语句，它和If语句差不多，都是对一个条件的结果判断后再则图形的简易方法。通过设置形状控件Shape属性值，可显进行操作，它们的区别是前者只对单个条件来判断，后者则可示6种图形：0－矩形、1－正方形、2－椭圆、3－圆、4－以对多个条件来判断。Select Case语句的格式如下： 圆角矩形、5－圆角正方形。Width属性用于设置形状的宽度，Select Case变量或表达式 当形状为圆时即为圆的直径。BorderColor属性用于设置边 Case 表达式列表1 框颜色。窗体的标题是由其Caption属性设置，窗体的 语句块1 MaxButton 属性、MinButton 属性决定其标题栏是否显示最 Case 表达式列表2 大化按钮、最小化按钮，True表示显示，False表示不显示。 语句块2 【审题分析】本题只需画出控件并设置相应属性即可。 … 【操作步骤】 [Case Else 步骤1：新建一个\"标准EXE\"工程，在窗体Form1中画 [语句块n+1]] 一个形状控件，并分别设置它们的相关属性，其属性及值End Select 如表1所示。 【审题分析】本题源程序的中心设计思想是：当单击开始按钮表1 的时候，令计时器变为可用，使得汽车图片能够移动；在命令按钮数组的单击事件中，需要保存当前单击按钮的下标以便判断单击的是哪一个按钮，利用单击事件的参数Index可以将其保留到全局变量m中；在计时器的Timer事件中需要对变量m来进行判断，使汽车图片能够向相应方向移动。 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符\"'\"，将问号\"?\"改为正确的内容。 参考代码： Timer1.Enabled = True m = Index Select Case m 步骤2：按要求将文件保存至考生文件夹中。 步骤2：按要求将文件保存至考生文件夹中。 【主要考点】形状控件。 【主要考点】控件数组。 第2小题 三、综合操作题 【知识点拨】①在实际应用中，较为复杂的应用程序 【审题分析】本题是以Text1中的素数为基础，找出该通常由多个窗体组成，且可设置其中一个为启动窗体，只素数的相邻素数，其基本思路如下： 有启动窗体才能在运行程序时自动加载并显示出来。②在 首先，令y等于Text1中的素数x1+1，然后判断y是否多个窗体组成的程序中，可以在一个窗体中控制显示另一是素数，若其为素数则将其显示在Text3中并退出循环，否个窗体，其语法格式为：窗体名称.Show。 则令y+1继续循环进行下一次判断，这样当退出循环时，【审题分析】从题目要求及所提供源程序可知，程序Text3中的值即为比x1大的相邻素数。 运行时首先显示窗体Form2，然后在Form2的单击事件过程 然后，利用同样的原理，在Text2中显示比x1小的相邻中，通过Show方法加载窗体Form1。 素数。 【操作步骤】 【操作步骤】 步骤1：新建一个\"标准EXE\"工程，在工程中默认有一步骤1：打开考生文件中的本题工程文件sjt5.vbp，在个窗体Form1，然后使用【工程】→【添加窗体】命令在工代码编辑窗口，编写对应的过程语句。 程中添加一个窗体Form2。 参考代码： 步骤2：在窗体Form2中画一个命令按钮控件，并分别Private Sub Command2_Click() 设置它们的相关属性，其属性及值如表2所示。 Dim x1 As Integer, y As Integer 表2 x1 = Text1.Text y = x1 + 1 Do If isprime(y) = True Then Text3.Text = y Exit Do Else y = y + 1 步骤3：选择【工程】→【工程属性】命令，打开\"工 End If 程属性\"对话框，设置Form2为启动窗体。 Loop 步骤4：打开Form1的代码编辑窗口，编写对应事件过 y = x1 - 1 程。 Do 参考代码： If isprime(y) = True Then Private Sub Form_Click() Text2.Text = y Form1.Visible = False Exit Do End Sub Else 步骤5：将打开Form2的代码编辑窗口，编写对应事件 y = y - 1 过程。 End If Loop 参考代码： End Sub Private Sub Command1_Click() 步骤2：运行程序，单击\"读入数据\"按钮，然后单击\" End End Sub 找素数\"按钮，则找出一对相邻素数a、b，最后单击\"存盘\" Private Sub Form_Click() 按钮。 Form1.Show 步骤3：按要求将文件保存至考生文件夹中。 End Sub 第九十套上机答案解析125 步骤6：按要求将文件保存至考生文件夹中。 一、基本操作题 【主要考点】启动窗体，多窗体程序。 第1小题 二、简单应用题 考前复习必看资料：PiaoMo整理 —29— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 第1小题 片显示出来，由于控件数组共有6个数组元素，因此应该在【知识点拨】本题源程序是在命令按钮的单击事件过拖放事件中进行一个6次的循环，在每次循环中判断数组元程中，用For循环语句和Mid函数逐一取出指定字符串中的素是否已经被显示出来，如果没有被显示出来则令其Visible字符进行判断。 属性为True，然后退出循环，这样可以实现序号由小到大每 【审题分析】本题需要首先按照要求画出三个单选按次显示一个图片的效果。 钮以及设置其标题属性，然后在命令按钮的单击事件中先【操作步骤】 利用循环统计字符串中大写字母和小写字母的值。首先设步骤1：打开考生文件中的本题工程文件sjt4.vbp，在置两个累加和变量j1、j2的初值均为0，然后在一次循环中代码编辑窗口中，去掉程序中的注释符\"'\"，将问号\"?\"改为依次取出字符串中的字符，若其为大写字母则j1自加，若其正确的内容。 为小写字母则j2自加。然后进行判断，选择哪个单选按钮则参考代码： For k = 0 To 5 执行相应的运算得到结果。 If Pic(k).Visible = False Then 【操作步骤】 Pic(k).Visible = True 步骤1：打开考生文件夹中的本题工程文件sjt4.vbp， 步骤2：按要求将文件保存至考生文件夹中。 按表3在窗体中画出控件并设置其相关属性。 【主要考点】控件数组，拖放事件。 表3 三、综合操作题 【审题分析】本题中的数组a用于存放学生的各科成绩，以二维数组的形式存在，每一行代表一个学生，每一列代表一门课程。因此，欲求每个学生的平均分，相当于求该二维数组a的每一行平均值，并且把对应第i行的平均值放到文本框数组Text2下标为i-1的元素中，由于共有5个学生，因此外循环循环5次；同理二维数组a的每一列平均值即为每门课程的平均值，对应第j列的平均值应该放到文本框 数组Text3下标为i-1的元素中，由于共有6门课程，因此外循 步骤2：双击窗体中的\"计算\"命令按钮，在打开的代 环循环6次。 码编辑窗口中编写其单击事件过程。 【操作步骤】 参考代码： 步骤1：打开本题对应工程文件sjt5.vbp。 Private Sub Command2_Click() 步骤2：打开代码编辑窗口，分别编辑两个命令按钮Dim i As Integer, j1 As Integer 的单击事件过程。 Dim j2 As Integer, j As Integer 参考代码： j1 = 0: j2 = 0 Private Sub Command2_Click() For i = 1 To Len(s) Dim i, j, k As Integer If Asc(Mid(s,i,1)) >= Asc(\"A\") And For i = 1 To 5 Asc(Mid(s,i,1)) <= Asc(\"Z\") Then k = 0 j1 = j1 + 1 For j = 1 To 6 End If k = k + a(i, j) If Asc(Mid(s,i,1)) >= Asc(\"a\") And Asc(Mid(s,i,1)) Next j <= Asc(\"z\") Then Text2(i - 1).Text = Round(k / 6, 0) j2 = j2 + 1 Next i End If End Sub Next Private Sub Command3_Click() If Option1.Value = True Then Dim i, j, k As Integer j = j1 - j2 For i = 1 To 6 End If k = 0 If Option2.Value = True Then For j = 1 To 5 j = j1 + j2 k = k + a(j, i) End If Next j If Option3.Value = True Then Text3(i - 1).Text = Round(k / 5, 0) j = j1 * j2 Next i End If End Sub Text1.Text = j 步骤3：运行程序，单击\"读入文件\"按钮读入数据，End Sub 步骤3：按 步骤4：单击窗体右上角的关闭按钮以结束程序。 步骤4：按要求将文件保存至考生文件夹中。 步骤5：按要求将文件保存至考生文件夹中。 【主要考点】循环控制结构的应用、二维数组。 【提示】本题程序运行时，单击窗体右上角的关闭按第九十一套上机答案解析126 钮将输出计算结果到文件out3.dat中，并以其判断程序编写一、基本操作题 是否正确。 第1小题 第2小题 【知识点拨】MaxLength属性用来设置允许在文本框【知识点拨】①控件数组是一组具有共同名称和类型中输入的最多字符数。文本框控件的MultiLine属性设置文的控件，它们拥有共同的事件，数组中的每个控件都有唯本框是否能以多行显示文本，值为True表示允许，值为False一的索引号（Index），即下标。②拖放是指用鼠标从屏幕上表示不允许；ScrollBars属性设置文本框是否有水平或垂直把对象从一个位置拖到另一个位置。VB提供了让用户自由滚动条，它的值为：0表示没有滚动条（默认值），1表示只拖放某个控件的功能。拖放的一般过程是：把鼠标光标移有水平滚动条，2表示只有垂直滚动条，3表示有水平和垂到要拖放的控件对象上，然后按下鼠标键不松开，再移动直滚动条，设置0以外的值时MultiLine属性值必须为True。 鼠标，待鼠标移动到目标位置后松开鼠标键，对象即被拖【审题分析】本题只需在窗体上画出文本框并且设置放到目标位置。当把控件拖到目标之后，松开鼠标键时触相应属性。 发DragDrop事件。 【操作步骤】 【审题分析】本题要求在将Picture2显示的香蕉拖放步骤1：新建一个\"标准EXE\"工程，按表1在窗体中画至图片框内部的时候，在图片框中的控件数组pic相应的图考前复习必看资料：PiaoMo整理 —30— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 Private Sub Form_MouseDown(Button As Integer, Shift As 出控件并设置其相关属性。 Integer, X As Single, Y As Single) 表1 End Sub 其中各参数的含义为：Button表示被按下的鼠标键， 对象 属性 值 可以取3个值，1为左键、2为右键、4为中间键；Shift表示 Shift键，Ctrl键和Alt键的状态， Shift键为1、Ctrl键为2、Name Text1 Alt键为4；X、Y表示鼠标光标的当前位置。 Text 文【审题分析】本题源程序在Form_MouseDown事件过本MultiLine True 程中，先通过Y的值判断鼠标单击的位置是否在三条线上，框ScrollBars 2 因为有三条线，所以应该用一个三次的循环来完成；若在MaxLength 1000 线上，则调用drawsin过程画正弦曲线。 【操作步骤】 步骤2：按要求将文件保存至考生文件夹中。 步骤1：打开考生文件中的本题工程文件sjt3.vbp，在【主要考点】文本框属性。 代码编辑窗口中，去掉程序中的注释符\"'\"，将问号\"?\"改为第2小题 正确的内容。 【知识点拨】形状控件（Shape）提供了显示一些规 参考代码： 则图形的简易方法。通过设置形状控件Shape属性值，可显 For k = 0 To 2 示6种图形：0－矩形、1－正方形、2－椭圆、3－圆、4－ If Y = Line1(k).y1 Then 圆角矩形、5－圆角正方形。Width属性用于设置形状的宽度， Call drawsin(X, Y) Height属性设置形状控件的高度。 步骤2：按要求将文件保存至考生文件夹中。 【审题分析】要实现本题所要求的功能，只需在命令 【主要考点】鼠标事件。 按钮的单击事件中改变Shape1控件的Shape属性值即可。 第2小题 【操作步骤】 【知识点拨】Instr(n,s1,s2)函数用于查找字符串s2在s1 步骤1：新建一个\"标准EXE\"工程，按表2在窗体中画 中第一次出现的位置，其中n为开始查找的起始字符位置， 出控件并设置其相关属性。 若未找到则返回0。若缺省n，默认从第1个字符找起。 表2 【审题分析】本题源程序是在命令按钮的单击事件过 程中，首先用变量m保存要替换的值，用k来保存替换第几次出现的值，其初值应该为1；然后用Do循环语句和Ibstr函数判断在Text3中是否存在Text1的子串；如果子串存在则要将Text2的内容替换掉Text1的内容，可以令Text3的SelStart属性为a-1，令SelLength属性为Text1的长度，这样即可在Text3中选中一个字串；接下来指定Text3的SelText属性为Text2的值，此时即完成替换过程。 如果单选按钮1被选中，则意味着只需替换一次，因此循环执行一次以后即可退出循环，否则要继续循环下去直到所有的子串均被替换完毕。 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt4.vbp，在 代码编辑窗口，去掉程序中的注释符\"'\"，将问号\"?\"改为正 对象 属性 值 确的内容。 Name Shape1 参考代码： 形k = 1 Shape 0 状控Text3.SelLength = Len(Text1.Text) Width 1700 件Text3.SelText = Text2.Text Height 1000 步骤2：按要求将文件保存至考生文件夹中。 Name Command1 命令【主要考点】字符串函数。 按钮1 三、综合操作题 Caption 圆 【知识点拨】Int函数、Fix函数和Round函数都有取整Name Command2 命令的功能。 按钮2 Caption 椭圆 其中，Round函数的作用是四舍五入进行取整，其格 式为Round(x,n)，功能是将指定的数x四舍五入保留n位小 数，当n=0时，就能实现四舍五入取整的功能； 步骤2：打开代码编辑窗口，编写命令按钮的单击事 Int函数和Fix函数都会删除所给数的小数部分而返回件过程。 剩下的整数，其格式分别为：Int(X)和Fix(X)。Int和Fix的不参考代码： 同之处在于，如果所给数为负数，则Int返回小于或等于所Private Sub Command1_Click() Shape1.Shape = 3 给数的第一个负整数；而Fix则会返回大于或等于所给数的End Sub 第一个负整数。当参数为正数的时候与Int函数返回值是一Private Sub Command2_Click() 样的。 Shape1.Shape = 2 【审题分析】本题首先需要利用循环求出数组中所有 End Sub 数的平均值，然后利用k保存数组第一个元素和平均值之间 步骤3：按要求将文件保存至考生文件夹中。 的差的绝对值，接下来再次对数组进行循环，依次计算循 【主要考点】形状控件。 环到的数组元素和平均值之间的差的绝对值，若其比k还小 二、简单应用题 则意味着这个数更接**均值，则令其成为新的k值，并且 第1小题 保存数组下标到i1中。这样循环结束后k中就存放最小的数 【知识点拨】鼠标事件分点击事件和状态事件：点击 据和平均值的差值，i1中存放最接**均值的数组元素的下 事件有单击（Click）和双击（DblClick），不区分左右键； 标。 状态事件有按下（MouseDown）、移动（MouseMove）和弹 【操作步骤】 起（MouseUp），能够区分出鼠标的左键、右键和中间键。 步骤1：打开考生文件中的本题工程文件sjt5.vbp，在 按下鼠标键事件过程的一般格式为： 考前复习必看资料：PiaoMo整理 —31— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 代码编辑窗口中，编写\"计算\"按钮的单击事件过程。 参考代码： Private Sub Command2_Click() Dim i, j, k, i1 As Integer j = 0 For i = 1 To 100 j = j + a(i) Next i j = Fix(j / 100) k = Abs(a(1) - j) i1 = 1 For i = 2 To 100 If Abs(a(i) - j) < k Then 步骤2：打开代码编辑窗口，编写两个单选按钮的单 k = Abs(a(i) - j) 击事件过程。 i1 = i 参考代码： End If Private Sub Option1_Click() Next i HScroll1.Value = 100 Text1.Text = a(i1) End Sub End Sub Private Sub Option2_Click() 步骤2：按要求将文件保存至考生文件夹中。 HScroll1.Value = 0 步骤3：按 步骤3：按要求将文件保存至考生文件夹中。 第九十二套上机答案解析127 【主要考点】滚动条控件、焦点次序。 一、基本操作题 二、简单应用题 第1小题 第1小题 【审题分析】本题只需按题目要求利用VB菜单设计【知识点拨】本题源程序是在命令按钮的单击事件过器建立一个二级菜单。 程中，用For循环语句和Mid函数逐一取出指定字符串中的 【操作步骤】 字符进行判断。列表框的Selected(Index)属性用于设置或返步骤1：新建一个\"标准EXE\"工程，利用菜单设计器按回指定索引号列表项的选中状态，值为True时表示被选中，表1在窗体上建立一个二级菜单。 值为False时表示未被选中，Index（索引号）值从0开始。 表1 List(Index)属性用于设置或返回指定索引号列表项的内容。 ListCount属性用来返回列表框中当前的列表项项数。 【审题分析】本题在命令按钮的单击事件中先利用循环统计字符串中大写字母和小写字母的值。首先假设数组中的第一个元素既为最大值也为最小值，然后依次从第二个元素开始向后循环，对每一个数组元素都加以判断，若其比最大值还大，则其成为新的最大值；若其比最小值还小，则其成为新的最小值。这样循环结束后可以得到数组 步骤2：按要求将文件保存至考生文件夹中。 的最大值和最小值。 接下来判断列表框中选中的是哪一项然后执行对应第2小题 计算，并输出结果。 【知识点拨】①滚动条分为水平滚动条（HscrollBar） 【操作步骤】 和垂直滚动条（VscrollBar）两种，常用于提供简便的定位 或用于取代数据的键盘输入。通过调整滚动条滑块的位置步骤1：打开考生文件夹中的本题工程文件sjt3.vbp， 双击窗体中的\"计算\"命令按钮，在打开的代码编辑窗口中编即可改变其Value属性的值，滚动条的Max属性、Min属性限 写其单击事件过程。 定了滚动条所能表示的最大值和最小值，即Value属性值的 参考代码： 取值范围，在程序中改变Value属性的值，滚动条滑块会随 Private Sub Command2_Click() 之移动到相应位置。 Dim k As Integer, i1, i2 As Integer ②控件的TabIndex属性可设置或返回其在当前窗体中 i1 = a(1): i2 = a(1) 的Tab键次序，所谓Tab键次序是指按 For k = 2 To 100 键时，焦点从一个对象移到另一个的次序。通常在窗体上 If a(k) > i1 Then 画控件时，VB会自动为其分配Tab键顺序（Menu、Timer、 i1 = a(k) Data、Image、Line、Shape等控件除外），运行时被设置为 End If 不可见或无效的控件以及不能接受焦点的控件（如Frame If a(k) < i2 Then 和Label）仍可保持在Tab顺序中，但用 End If 过这些控件。 Next k 【审题分析】本题需要在窗体上画出水平滚动条，并 If List1.Selected(0) = True Then 设置TabIndex属性为0；然后在单选按钮的单击事件中改变 Text1.Text = i1 - i2 滚动条的Value属性值就能使滑块处于指定位置。 End If 【操作步骤】 If List1.Selected(1) = True Then 步骤1：新建一个\"标准EXE\"工程，按表2在窗体中画 Text1.Text = i1 + i2 出控件并设置其相关属性。 End If If List1.Selected(2) = True Then 表2 Text1.Text = i1 * i2 End If End Sub 步骤2：按 步骤3：单击窗体右上角的关闭按钮以结束程序。 步骤4：按要求将文件保存至考生文件夹中。 考前复习必看资料：PiaoMo整理 —32— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 End If 【提示】本题程序运行时，单击窗体右上角的关闭按 Next 钮将输出计算结果到文件out3.dat中，并以其判断程序编写 Text2.Text = ss 是否正确。 End Sub 第2小题 步骤2：按要求将文件保存至考生文件夹中。 【审题分析】\"输入5个数据\"按钮的单击事件过程中， 步骤3：按 需要连续输入5个数据并且存放到数组s中，因此k应该由1 接着单击\"加密\"按钮，然后单击\"存结果\"按钮保存结果，最后 循环到5，在循环中将输入的数据保存到数组s中并且将其赋 单击窗体右上角的关闭按钮结束程序。 值给五个标签组成的控件数组，随后将标签的Visible属性设 第九十三套上机答案解析128 置为True以便显示出来。 一、基本操作题 \"画直方图\"按钮的单击事件过程中，源程序用For循环 第1小题 来依次计算每一个形状控件的高度，该高度应该为对应数 【知识点拨】直线控件（Line）用于显示一条直线，组元素的值；然后计算该直方图的Top属性值（应为水平直 其核心位置属性X1、Y1和X2、Y2分别表示直线两个端点的线的Y1（或Y2）属性值减去直方图的高度），最后显示该直 坐标。 方图（通过设置其Visible实现）。 【审题分析】本题只需按要求画出控件并设置相关属【操作步骤】 性即可。 步骤1：打开考生文件中的本题工程文件sjt4.vbp，在 【操作步骤】 代码编辑窗口，去掉程序中的注释符\"'\"，将问号\"?\"改为正 步骤1：新建一个\"标准EXE\"工程，按表1在窗体中画确的内容。 出控件并设置其相关属性。 参考代码： For k = 1 To 5 表1 Label1(k - 1).Visible = True Shape1(k - 1).Height = s(k) a = Line1.Y1 步骤2：按要求将文件保存至考生文件夹中。 三、综合操作题 【审题分析】分析题目可知，本题中\"读入文件\"命令按钮中首先使用For Input方式打开文件，然后通过Line Input #语句将打开文件中的数据读出到变量s中并且赋给文本框。 在\"加密\"按钮的单击事件中，利用For循环对字符串s进行遍历，依次取出s中的每一个字符；如果循环变量i的值为偶数，接下来就要判断取出的字符是不是字母，如果是字母则进行Chr(Asc(Mid(s,i,1)) - 1)的转换，但是要注意如果为字母\"A\"或者\"a\"要转换为\"Z\"或者\"z\"。同理，如果循环变量的值为奇数，如果取出的字符是字母，则进行Chr(Asc(Mid(s,i,1)) + 1)的转换，如果为字母\"Z\"或者\"z\"要转换为\"A\"或者\"a\"。最后将转换得到的字母连接起来即得到结果。 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt5.vbp，在步骤2：按要求将文件保存至考生文件夹中。 代码编辑窗口指定位置编写以下代码： 【主要考点】直线控件。 参考代码： 第2小题 Private Sub Command1_Click() 【知识点拨】列表框的ListIndex可用于设置或返回在 Open \"in5.dat\" For Input As 1 列表框中当前选择项目的索引号，该索引号是从0开始的。 Line Input #1, s 【审题分析】要实现本题所要求的功能，应在列表框 Close #1 的单击事件中，令文本框中的内容等于列表框的ListIndex Text1.Text = s 属性加1；在文本框的单击事件中，令文本框的内容等于列End Sub 表框的对应选中项的内容，即List1.List(List1.ListIndex)。 Private Sub Command2_Click() 【操作步骤】 Dim i As Integer Dim ss As String 步骤1：新建一个\"标准EXE\"工程，按表2在窗体中画ss = \"\" 出控件并设置其相关属性。 For i = 1 To Len(s) 表2 If isletter(Mid(s, i, 1)) = True Then If i Mod 2 = 0 Then If Mid(s, i, 1) = \"a\" Then ss = ss & \"z\" ElseIf Mid(s, i, 1) = \"A\" Then ss = ss & \"Z\" Else ss=ss&Chr(Asc(Mid(s,i,1))-1) 步骤2：打开代码编辑窗口，编写列表框和文本框的单击 End If 事件过程。 Else 参考代码： If Mid(s, i, 1) = \"Z\" Then Private Sub List1_Click() ss = ss & \"A\" Text1.Text = List1.ListIndex + 1 ElseIf Mid(s, i, 1) = \"z\" Then End Sub ss = ss & \"a\" Private Sub Text1_Click() Else Text1.Text=List1.List(List1.ListIndex) ss=ss&Chr(Asc(Mid(s,i,1))+1) End Sub End If 步骤3：按要求将文件保存至考生文件夹中。 End If Else 【主要考点】列表框。 ss = ss & Mid(s, i, 1) 二、简单应用题 考前复习必看资料：PiaoMo整理 —33— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 Text1.Text = j 第1小题 End If 【知识点拨】①在实际应用中，较为复杂的应用程序 If Combo1.Text = \"ËùÓÐÊý\" Then 通常由多个窗体组成，且可设置其中一个为启动窗体，只 j = 0 有启动窗体才能在运行程序时自动加载并显示出来。②在 For i = 1 To 100 多个窗体组成的程序中，可以在一个窗体中控制显示另一 j = j + a(i) 个窗体，其语法格式为：窗体名称.Show。③FontName属性 Next 用于设置程序运行时在控件中显示文本的字体，FontSize属 j = Round(j / 100, 0) 性、FontBold属性、FontItalic属性、FontStrikethru属性和 Text1.Text = j End If FontUnderline属性可分别用来设置字体的大小和样式。 End Sub 【审题分析】根据题目要求，单击\"格式\"菜单项即会 步骤2：按要求将文件保存至考生文件夹中。 显示Form2，则在该菜单项的单击事件中应该调用 步骤3：运行程序，单击\"读入数据\"按钮，然后在列Form2.Show方法；在\"确定\"按钮的单击事件中，应该对应 表框中选中一项，并单击\"计算\"按钮获得一个结果，然后使将文本框中内容的字体和字号设置为列表框中选中的项并 用窗体右上角的\"关闭\"按钮结束程序。 隐藏Form2。 三、综合操作题 【操作步骤】 【知识点拨】①控件数组是一组具有共同名称和类型步骤1：打开考生文件中的本题工程文件sjt3.vbp，按 的控件，它们拥有共同的事件，数组中的每个控件都有唯表3在窗体中画出控件并设置其相关属性。 一的索引号（Index），即下标。②拖放是指用鼠标从屏幕上 表3 把对象从一个位置拖到另一个位置。VB提供了让用户自由 拖放某个控件的功能。拖放的一般过程是：把鼠标光标移到要拖放的控件对象上，然后按下鼠标键不松开，再移动鼠标，待鼠标移动到目标位置后松开鼠标键，对象即被拖放到目标位置。当把控件拖到目标之后，松开鼠标键时触发DragDrop事件。 【审题分析】控件的DragDrop事件有三个主要参数， 步骤2：在代码编辑窗口，去掉程序中的注释符\"'\"， 其中，\"Source\"参数是一个对象变量，类型为\"Contro1\"，包 将问号\"?\"改为正确的内容。 含被拖动对象的属性，\"X\"和\"Y\"参数是放下对象时鼠标光 参考代码： 标的位置。本题中为了判断拖动的是哪一个图片，因此需 Form2.Show 要判断Source参数的Name属性。当拖动的图片确定，则在 Form1.Text1.FontSize = List1.Text 控件数组中显示的图片以及需要累加的价格也随之确定。 Form1.Text1.FontName=List2.List(List2.ListIndex) 由于控件数组共有6个数组元素，因此应该在拖放事Form2.Visible = False 件中进行一个6次的循环，在每次循环中判断数组元素是否 步骤3：按要求将文件保存至考生文件夹中。 已经被显示出来，如果没有被显示出来则令其Visible属性为 【主要考点】多窗体程序。 True，然后退出循环，这样可以实现序号由小到大每次显示 第2小题 一个图片的效果。 【知识点拨】组合框（ComboBox）将文本框与列表 【操作步骤】 框的特性组合在一起，既可在组合框的文本框部分输入信 步骤1：打开考生文件夹下的本题工程文件sjt5.vbp。 息，也可在列表框部分选择项目。可通过修改组合框的Style 步骤2：在代码编辑窗口中，去掉程序中的注释符\"'\"， 属性值来改变其显示类型，值为0-Dropdown Combo时，表 将问号\"?\"改为正确的内容。 示下拉式组合框，包括一个下拉式列表和一个文本框，可 参考代码： 以从列表选择或在文本框中输入；值为1-Simple Combo时， Select Case Source.Name 表示简单组合框，包括一个文本框和一个不带下拉列表的For k = 0 To 5 列表，可以从列表中选择或在文本框中输入，增加其高度If Pic(k).Visible = False Then 可显示列表的更多部分；值为2-Dropdown List时，表示下拉Pic(k).Visible = True Text1 = Text1 + a 式列表，这种样式仅允许从下拉式列表中选择。组合框的 步骤3：按要求将文件保存至考生文件夹中。 Text属性可以设置或返回显示在组合框里面文本框中的值。 【主要考点】控件数组、拖放事件。 【审题分析】本题是一个简单的累加求和再求平均值 的问题，根据在组合框中选择的列表项不同，进行计算的第九十四套上机答案解析129 项数也不同，但都是用循环完成，在循环中实现累加，在一、基本操作题 循环后实现求平均值，区别只在于循环的次数不一样。 第1小题 【操作步骤】 【审题分析】要在程序运行时实现题目所要求的功步骤1：打开考生文件中的本题工程文件sjt4.vbp，双能，只需在窗体的Click事件过程中用代码设置文本框1的击\"计算\"按钮，打开代码编辑窗口编辑计算按钮单击事件。 Visible属性值为False，文本框2的Visible属性为True；在窗 参考代码： 体的DblClick事件过程中用代码设置文本框1的Visible属性Private Sub Command2_Click() 值为True，文本框2的Visible属性为False。 Dim i, j As Long 【操作步骤】 If Combo1.Text = \"Ç°50¸öÊý\" Then 步骤1：新建一个\"标准EXE\"工程，在窗体中加入两个 j = 0 文本框并设置它们的相关属性，属性及其值如表1所示。 For i = 1 To 50 j = j + a(i) 表1 Next j = Round(j / 50, 0) Text1.Text = j End If If Combo1.Text = \"Ç°80¸öÊý\" Then j = 0 For i = 1 To 80 步骤2：打开代码编辑窗口，输入如下代码： j = j + a(i) 参考代码： Next Private Sub Form_Click() j = Round(j / 80, 0) 考前复习必看资料：PiaoMo整理 —34— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 Text1.Visible = False 【操作步骤】 Text2.Visible = True 步骤1：打开考生文件夹下的本题工程文件sjt4.vbp。 End Sub 步骤2：打开代码编辑窗口，去掉程序中的注释符\"'\"，Private Sub Form_DblClick() 将问号\"?\"改为正确的内容。 Text1.Visible = True 参考代码： Text2.Visible = False Command1单击事件中改错 End Sub Timer1.Enabled = True 步骤3：按要求将文件保存至考生文件夹中。 Command2单击事件中改错 第2小题 Timer1.Enabled = False 【知识点拨】滚动条分为水平滚动条（HscrollBar） Timer1单击事件中改错 和垂直滚动条（VscrollBar）两种，常用来提供简便的定位 If Label1.FontSize < 100 Then 或用于取代数据的键盘输入。通过调整滚动条滑块的位置Label1.FontSize = Label1.FontSize * 1.1 即可改变其Value属性的值，滚动条的Max属性、Min属性限步骤3：按要求将文件保存至考生文件夹中。 定了滚动条所能表示的最大值和最小值，即Value属性值的【主要考点】计时器。 取值范围，在程序中改变Value属性的值，滚动条滑块会随三、综合操作题 之移动到相应位置。LargeChange属性用于设置当点击滚动【审题分析】根据题目源程序，要使单击\"显示\"按钮条滑块与两侧箭头间区域时Value属性值的改变量，时，从文件in5.txt中读取文本，并显示在文本框Text1中，需SmallChange属性用于设置当点击滚动条两侧箭头时Value要首先以Input方式打开文件，然后使用Line Input #语句将属性值的改变量。 文件号指明的文件中的内容读入到指定的字符串变量中， 【审题分析】要在程序运行时，单击窗体就能将滚然后将该变量赋给文本框的Text属性。 动条的滑块位置定位到文本框中输入的值，只需要编写窗要在单击\"统计\"按钮时，统计字母\"R\"、\"T\"、\"D\"的出体的单击事件，令滚动条的Value属性值等于文本框的Text现次数，可在\"统计\"按钮的单击事件过程中，通过For循环属性值。 用Mid函数逐一取出str1中的每个字符进行判断，若其为对 【操作步骤】 应字符，则对应的计数器增加1。循环结束时，三个计数器步骤1：新建\"标准EXE\"工程，往窗体Form1中加入一变量中的值就是该字符出现的次数。 个文本框和一个水平滚动条，分别设置它们的相关属性，【操作步骤】 属性及其值如表2所示。 步骤1：打开考生文件中的本题工程文件sjt5.vbp，在 代码编辑窗口，去掉程序中的注释符\"'\"，将问号\"?\"改为正表2 确的内容。 参考代码： Line Input #1, str1 Text1.Text = str1 步骤2：按指定位置编写\"统计\"按钮的单击事件过程。 参考代码： Private Sub Command2_Click() Dim i As Integer intR = 0: intT = 0: intD = 0 步骤2：打开代码编辑窗口，输入如下代码： For i = 1 To Len(str1) 参考代码： If Mid(str1, i, 1) = \"R\" Or Mid(str1, i, 1) = \"r\" Then Private Sub Form_Click() intR = intR + 1 HS1.Value = Val(Text1.Text) End If End Sub If Mid(str1, i, 1) = \"T\" Or Mid(str1, i, 1) = \"t\" Then 步骤3：按要求将文件保存至考生文件夹中。 intT = intT + 1 【主要考点】滚动条控件。 End If 二、简单应用题 If Mid(str1, i, 1)=\"D\"Or Mid(str1, i, 1) = \"d\" Then 第1小题 intD = intD + 1 End If 【审题分析】在本题中需要分别计算数组中正数和负 Next 数之和，只需要一次循环遍历数组即可完成。在循环中依 Text2.Text = intR & \" \"&intT & \" \"& intD 次取出数组元素判断其为正数还是负数，若为正数则将其 End Sub 累加到变量pos中，否则累加到变量neg中，循环结束后即可 步骤3：按要求将文件保存至考生文件夹中。 求出正数和以及负数和。 步骤4：按 【操作步骤】 着单击\"统计\"按钮，最后单击\"保存\"按钮。 步骤1：打开考生文件夹下的本题工程文件sjt3.vbp。 第九十五套上机答案解析130 步骤2：打开代码编辑窗口，去掉程序中的注释符\"'\"， 一、基本操作题 将问号\"?\"改为正确的内容。 第1小题 参考代码： If Arr(k) > 0 Then 【知识点拨】①BorderStyle用于设置图像框的边框类pos = pos + Arr(k) 型，值为0表示无边框，值为1表示有边框。②AutoSize属性neg = neg + Arr(k) 用来确定是否根据Caption属性指定的标题自动调整标签的步骤3：按要求将文件保存至考生文件夹中。 大小，可以设置为True或False。 第2小题 【审题分析】根据题目要求，除了画出指定控件并且【审题分析】可借助计时器来完成有规律性时间间隔设置属性以外，还需要编写窗体的单击事件，在该事件中执行的任务。在本题中两个命令按钮分别用于启动和停止使标签的Visible属性为False，同时令窗体的Caption属性为计时器，实际上就是令计时器的Enabled属性为True或False。标签的Caption属性。 当单击\"开始\"或者\"继续\"按钮的时候，令计时器启动；当单【操作步骤】 击\"停止\"按钮的时候，计时器不可用。 步骤1：新建\"标准EXE\"工程，在窗体Form1中画一个 在计时器的Timer事件中，要依次增大Label1的标签，按表1设置文本框及窗体属性。 FontSize属性，同时还要加以判断是否超过了100，若其超 表1 过100，则将该属性设置为8。 考前复习必看资料：PiaoMo整理 —35— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 【知识点拨】滚动条分为水平滚动条（HscrollBar）和垂直滚动条（VscrollBar）两种，常用来提供简便的定位或用于取代数据的键盘输入。通过调整滚动条滑块的位置即可改变其Value属性的值，滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的 取值范围，在程序中改变Value属性的值，滚动条滑块会随 步骤2：在代码编辑窗口中，编写窗体的单击事件过之移动到相应位置。LargeChange属性用于设置当点击滚动程。 条滑块与两侧箭头间区域时Value属性值的改变量， 参考代码： SmallChange属性用于设置当点击滚动条两侧箭头时ValuePrivate Sub Form_Click() 属性值的改变量。 Label1.Visible = False 【审题分析】本题利用计时器有规律的改变滚动条的 Me.Caption = Label1.Caption 滚动块，只需要在计时器的Timer事件中改变两个滚动条的End Sub Value属性即可。在两个命令按钮的单击事件中，控制计时步骤3：按要求将文件保存至考生文件夹中。 器的Enabled属性为True或者False。 第2小题 【操作步骤】 【审题分析】本题只需在3个单选按钮的Click事件过 步骤1：打开考生文件中的本题工程文件sjt.vbp，在代程中，分别为文本框的Text属性赋予相应内容即可。 码编辑窗口中，去掉程序中的注释符\"'\"，将问号\"?\"改为正【操作步骤】 确的内容。 步骤1：新建一个\"标准EXE\"工程，在窗体Form1上画 参考代码： 一个文本框和三个单选按钮，其属性及值如表2所示。 Private Sub Command1_Click() 表2 Form1.Timer1.Enabled = True End Sub Private Sub Command2_Click() Form1.Timer1.Enabled = False End Sub Private Sub Timer1_Timer() n1 = n1 + 1 If n1 = 100 Then n1 = 0 HScroll1.Value = n1 n2 = n2 - 1 If n2 = 0 Then n2 = 100 HScroll2.Value = n2 End Sub 步骤2： 在代码编辑窗口中，编写3个单选按钮的单 步骤2：按要求将文件保存至考生文件夹中。 击事件过程。 三、综合操作题 参考代码： 【审题分析】本题\"删除\"按钮的Click事件中，需要删Private Sub Op1_Click() Text1.Text = 1 除Text1中指定的几个字符并且将结果再次显示在Text1中，End Sub 其基本思路是先设置一个字符串变量，其初值为空字符串，Private Sub Op2_Click() 然后对Text1用循环进行遍历，依次使用M Private Sub Op3_Click() 转成大写之后判断。如果当前取出的字符不是要删除的字 Text1.Text = 3 符，则将其连接到字符串变量中，否则不予连接，这样循End Sub 环结束后字符串变量的值就是删除指定字符以后的值，可步骤3：按要求将文件保存至考生文件夹中。 以直接显示在Text1中。 二、简单应用题 在\"计算/保存\"按钮的单击事件中，需要计算出Text1第1小题 中的字符串ASCII码之和并且保存到指定文件中，依然使用【知识点拨】位于矩阵左上到右下主对角线上的元素 循环配合Mid函数依次取出Text1中的每一个字符，并且将其具有行号等于列号的特点，位于n*n矩阵右上到左下对角线 ASCII码进行累加，然后使用Output方式打开文件，使用上的元素具有行号与列号之和为n+1的特点。 Print#语句将累加和写入到指定文件中。 【审题分析】行列组成的矩阵一般都用二维数组来处 【操作步骤】 理，对于二维数组的遍历一般是使用二重循环来完成。在 步骤1：打开考生文件中的本题工程文件sjt5.vbp，在二重循环中，由外循环控制行，由内循环控制列，使用Mat(i,j) 代码编辑窗口中，去掉程序中的注释符\"'\"，将问号\"?\"改为即可遍历整个数组，在循环中将对应数组元素的值转换成 正确的内容。 字符串连接起来显示在文本框中。 参考代码： 要想输出矩阵对角线上的数，需要再次用二重循环遍 ch = Mid(Form1.Text1.Text, i, 1) 历数组，在循环中找到下标行号和列号相等的数组元素并 tmpStr = tmpStr + ch 且输出到文本框。 步骤2：按指定位置编写\"计算/保存\"按钮的单击事 【操作步骤】 件过程。 步骤1：打开考生文件中的本题工程文件sjt3.vbp，在 参考代码： 代码编辑窗口中，去掉程序中的注释符\"'\"，将问号\"?\"改为 Private Sub Command3_Click() 正确的内容。 Dim i, j As Long 参考代码： Dim s As String Mat(i, j) = Int(Rnd * 100) s = Trim(Text1.Text) S = S & Str(Mat(i, j)) & \" \" j = 0 If i = j Then For i = 1 To Len(s) T = T & Str(Mat(i, j)) & \" \" j = j + Asc(Mid(s, i, 1)) 步骤2：按要求将文件保存至考生文件夹中。 Next 【主要考点】二维数组。 Open \"out5.txt\" For Output As #1 Print #1, j 第2小题 考前复习必看资料：PiaoMo整理 —36— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 Close #1 End Sub End Sub 步骤3：按要求将文件保存至考生文件夹中。 步骤3：按要求将文件保存至考生文件夹中。 二、简单应用题 步骤4：按 一或多个选择的列表项，给列表框添加列表项既可以在设第九十六套上机答案解析131 计阶段通过其List属性设置加入，也可在程序运行时使用一、基本操作题 AddItem方法加入。在程序运行时删除列表框中的项目可以第1小题 使用RemoveItem方法，其语法为：列表框.RemoveItem 索【知识点拨】FontName属性用于设置程序运行时在控 引值。其中，\"索引值\"可以指定插入项在列表框中的位置，件中显示文本的字体，FontSize属性、FontBold属性、 从0开始计数。 FontItalic属性、FontStrikethru属性和FontUnderline属性可分 【审题分析】单击列表框中的某个项目，将触发其别用来设置字体的大小和样式。 Click事件。要实现单击列表框中的某一项，该项就从列表【审题分析】要实现题目要求的功能，只需在两个命 中消失的功能，只需在Click事件过程中编写删除项目的语令按钮的Click事件过程中，分别设置文本框的FontSize属性 句即可。列表框的ListIndex属性可返回当前选择的项目的索为指定值。 引号，因此删除选中项目的语句为：List1.RemoveItem 【操作步骤】 List1.ListIndex。 步骤1：新建一个\"标准EXE\"工程，在窗体Form1中加 【操作步骤】 入一个文本框和两个命令按钮，其相关属性设置如表1所 步骤1：打开考生文件中的本题工程文件sjt3.vbp，在示。 代码编辑窗口中，去掉程序中的注释符\"'\"，将问号\"?\"改为 表2 正确的内容。 参考代码： List1.AddItem Text1.Text If Form1.Option2.Value = True And List1.ListIndex >= 0 Then List1.RemoveItem List1.ListIndex 步骤2：按要求将文件保存至考生文件夹中。 第2小题 【审题分析】本题是一个数列求累加和的问题。这个 步骤2：打开代码编辑窗口，输入如下代码： 数列的特点是，每一项的分母都是1，分子都是前一项分子参考代码： 加2，符号都是前一项符号的相反数。因此，这个数列累加Private Sub Command1_Click() 求和问题使用循环来完成，在循环中令分子加2，符号取反 Text1.FontSize = Text1.FontSize * 1.2 即得到下一项。循环结束后需要将累加和乘4才能得到所求End Sub 的圆周率的值。 Private Sub Command2_Click() 【操作步骤】 Text1.FontSize = Text1.FontSize / 1.2 步骤1：打开考生文件中的本题工程文件sjt4.vbp，在End Sub 代码编辑窗口中，去掉程序中的注释符\"'\"，将问号\"?\"改为步骤3：按要求将文件保存至考生文件夹中。 正确的内容。 【主要考点】字体属性集。 参考代码： 第2小题 Result = Result + Sign * 1 / i 【知识点拨】列表框的列表项既可以在设计阶段通过 Sign = -Sign 其List属性设置加入（注意：每输入完一项后按 Text1.Text = Result * 4 键换行再输入下一项），也可在程序运行时通过AddItem方法步骤2：按要求将文件保存至考生文件夹中。 加入，其语法为：组合框名.AddItem 项目字符串[,索引值]。 三、综合操作题 列表框的Text属性用于返回列表框中选择的项目的内【审题分析】分析题目可知，本题中\"读取数据\"命令按容，返回值总与列表框的List(ListIndex)属性的返回值相同。 钮中首先使用For Input方式打开文件，然后通过Line Input # 【审题分析】本题需要在列表框的属性窗口中输入列语句将打开文件中的数据读出到变量s中并且赋给文本框。 表框中的项目，然后在列表框的单击事件中将选定项赋值在\"首字母大写\"按钮的单击事件中，首先依次取出文给文本框和滚动条的Value属性。 本框中的每一个字符，然后判断这个字符的上一个字符是 【操作步骤】 否是空格，如果是空格则将该字符使用UCase函数转换为大步骤1：新建一个\"标准EXE\"工程，在窗体上画一个列写；判断完毕后无论是否转换均将其连接到新的字符串中，表框、一个文本框和一个水平滚动条，按表2设置其相关属同时令这个字符成为新的\"上一个字符\"。这样，循环结束后性。 每个单词的首字母就转换成了大写字母。 在\"存盘\"按钮的单击事件中，首先以Output方式打开表2 文件，然后利用Write#语句将文本框中的内容写回到文件中，最后关闭文件。 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口中，去掉程序中的注释符\"'\"，将问号\"?\"改为正确的内容。 参考代码： ch = Mid(oldSen, i, 1) newSen = newSen & ch Write #1, Text1.Text 步骤2：在打开的代码编辑窗口中，编写列表框的单 步骤2：编写\"读取数据\"命令按钮的单击事件。 击事件代码： 参考代码： 参考代码： Private Sub Command1_Click() Private Sub List1_Click() Dim s As String Text1.Text = List1.Text Open \"in5.txt\" For Input As 1 HScroll1.Value = Val(List1.Text) 考前复习必看资料：PiaoMo整理 —37— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 Line Input #1, s 环即可完成数列的累加求和过程。首先设置累加和变量Sum Close #1 的初值为0，数列项的值k也为0，然后从1循环到n，在循环 Text1.Text = s 中依次将i加到k中，然后将k累加到Sum中即可。 End Sub 【操作步骤】 步骤3：按要求将文件保存至考生文件夹中。 步骤1：打开本题工程文件sjt3.vbp，在代码编辑窗口 步骤4：按 中，去掉程序中的注释符\"'\"，将问号\"?\"改为正确的内容。 接着单击\"首字母大写\"按钮，最后单击\"存盘\"按钮。 参考代码： 第九十七套上机答案解析133 Sum = 0 k = 0 一、基本操作题 k = k + i 第1小题 Sum = Sum + k 【知识点拨】AutoSize属性用来确定是否根据Caption 步骤2：按要求将文件保存至考生文件夹中。 属性指定的标题自动调整标签的大小，可以设置为True或 第2小题 False。 【知识点拨】Mid(字符串,起始位置[,个数])函数用于从【审题分析】本题只需按照要求画出控件并设置属性 已有字符串中取出从指定位置开始的含指定个数字符的字符即可。 串。 【操作步骤】 【审题分析】程序设计思路：在\"反向显示\"按钮的单步骤1：新建一个\"标准EXE\"工程，按表1在窗体中画 击事件过程中，首先要对文本框中的字符串进行逆向遍历，出控件并设置其相关属性。 在遍历过程中取出每一个字符连接到一个空字符串中，这 表1 样循环结束后得到的结果就是逆序以后的结果。由于循环 变量i的值是逐渐增大的，因此取出当前一个字符的函数应该是Mid(S1, Len(S1) + 1 - i, 1)。 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口中，去掉程序中的注释符\"'\"，将问号\"?\"改为正确的内容。 参考代码： For i = 1 To Len(S1) S2 = S2 + Mid(S1, Len(S1) + 1 - i, 1) Text2.Text = S2 步骤2：按要求将文件保存至考生文件夹中。 步骤2：按要求将文件保存至考生文件夹中。 【主要考点】字符串逆序算法。 第2小题 三、综合操作题 【知识点拨】①为图像框控件指定图片有两种方法： 【知识点拨】\"冒泡法\"是一种重要的数据排序算法， 一是在设计阶段通过Picture属性设置；二是在程序运行时通 它的核心思路是按顺序让一个数列中的每一个数都与它之 过LoadPicture()图片加载函数加载，其语法为：图片 后的所有的数逐一进行比较，如果该数小于其后面的数， 框.Picture= LoadPicture(\"图像文件路径\")，App.Path可返回 则把这两个位置的数进行交换。通过这样的循环，最终按 当前工程文件所在的文件夹路径，是使用相对路径的一种 照从大到小的顺序排列出该数列。 用法。用不带参数的LoadPicture函数为对象的Picture属性赋 【审题分析】本题首先需要按照要求画出窗体上的 值将清除窗体、图片框及图像控件中的图形。②Stretch（自 控件以及设置它们的属性，然后编写三个按钮的单击事 动伸缩）属性用来设定图像框是否需要自动调整大小，以 件。 适应载入图像框中的图片的大小，值为True时表示自动调 在\"取数\"按钮的单击事件中，首先以Input方式打开 整。 文件，然后在循环中使用Input#语句将数据一一取出放入 【审题分析】本题除了需要按照要求画出控件并设置 数组元素中并显示在文本框中，最后关闭文件。 对应属性之外，还需要在窗体的单击事件中为Image2的 在\"排序\"按钮的单击事件中，首先在一个二重循环 Picture属性赋值，然后清除Image1中显示的图形。 中利用冒泡法将数组进行排序，然后再次用一个循环挑选 【操作步骤】 出数组中大于500的数并显示在文本框中。 步骤1：新建一个\"标准EXE\"工程，按表2在窗体中画 在\"存盘\"按钮的单击事件中，用Output方式打开文件， 出控件并设置其相关属性。 然后使用Write#语句将文本框中的值存入文件，最后关闭文 表2 件。 【操作步骤】 步骤1：新建一个\"标准EXE\"工程。 步骤2：在窗体Form1中加入一个文本框和三个命令按钮，并分别设置它们的相关属性，属性及值如表3所示。 步骤2：打开代码编辑窗口，编写窗体的Click事件过程。 参考代码： Private Sub Form_Click() Image2.Picture = Image1.Picture Image1.Picture = LoadPicture(\"\") End Sub 步骤3：按要求将文件保存至考生文件夹中。 二、简单应用题 第1小题 【审题分析】本题是一个数列累加求和问题，观察数列的特点可知，该数列的第i项比第i-1项多i，所以用一个循考前复习必看资料：PiaoMo整理 —38— 表3 步骤3：打开代码编辑窗口，编写三个命令按钮的单击事件代码。 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 End Sub 参考代码： 步骤3：按要求将文件保存至考生文件夹中。 Private N(100) As Integer Private Sub Command1_Click() 【主要考点】滚动条控件。 Open \"in5.txt\" For Input As #1 第2小题 For i = 1 To 100 【知识点拨】列表框的列表项既可以在设计阶段通过 Input #1, N(i) 其List属性设置加入（注意：每输入完一项后按 Text1 = Text1 & \" \" & N(i) 键换行再输入下一项），也可在程序运行时通过AddItem方法 Next i 加入，其语法为：组合框名.AddItem 项目字符串[,索引值]。 Close #1 列表框的Text属性用于返回列表框中选择的项目内End Sub 容，返回值总与列表框的List(ListIndex)属性的返回值相同。 Private Sub Command2_Click() Dim i, j As Integer 【审题分析】本题需要在列表框的属性窗口中输入列 For i = 1 To 100 表框中的项目，然后在列表框的单击事件中将选定项赋值 For j = i To 100 给标签的FontSize属性。 If N(i) < N(j) Then 【操作步骤】 tmp = N(i) 步骤1：新建一个\"标准EXE\"工程，在窗体上画一个列 N(i) = N(j) 表框和一个标签，按表2设置其相关属性。 N(j) = tmp End If 表2 Next j Next i Text1.Text = \"\" For i = 1 To 100 If N(i) > 500 Then Text1 = Text1 & \" \" & N(i) End If Next i 步骤2：在打开的代码编辑窗口中，编写列表框的单End Sub 击事件代码。 Private Sub Command3_Click() 参考代码： Open \"out5.txt\" For Output As #1 Private Sub List1_Click() Write #1, Text1.Text Label1.FontSize = Val(List1.Text) Close #1 End Sub End Sub 步骤3：按要求将文件保存至考生文件夹中。 步骤4：按要求将文件保存在考生文件夹中。 二、简单应用题 步骤5：运行程序，先单击\"取数\"按钮，然后单击\"排 第1小题 序\"按钮，最后单击\"存盘\"按钮。 【知识点拨】①列表框的List(Index)属性用于设置或第九十八套上机答案解析134 返回指定索引号列表项的内容。ListCount属性用来返回列 一、基本操作题 表框中当前的列表项项数。②列表框的Clear方法可以清除 第1小题 该列表框中的所有项目。 【知识点拨】滚动条分为水平滚动条（HscrollBar） 【审题分析】本题需要将列表框中的内容显示在文本 和垂直滚动条（VscrollBar）两种，常用来提供简便的定位 框中，应使用循环来实现。使用For循环遍历整个列表框， 或用于取代数据的键盘输入。通过调整滚动条滑块的位置 循环范围应该是由0到列表框的ListCount-1；每次循环中取 即可改变其Value属性的值，滚动条的Max属性、Min属性限 出列表框中的一项并且连接到一起，循环完毕后清空列表 定了滚动条所能表示的最大值和最小值，即Value属性值的 框并且为文本框的Text属性赋值。 取值范围，在程序中改变Value属性的值，滚动条滑块会随 【操作步骤】 之移动到相应位置。LargeChange属性用于设置当点击滚动 步骤1：打开本题工程文件sjt3.vbp，在代码编辑窗口 条滑块与两侧箭头间区域时Value属性值的改变量， 中，去掉程序中的注释符\"'\"，将问号\"?\"改为正确的内容。 SmallChange属性用于设置当点击滚动条两侧箭头时Value 参考代码： 属性值的改变量。 For i = 0 To List1.ListCount - 1 【审题分析】要在程序运行时，单击窗体就能将滚 s = s & List1.List(i) & vbCrLf 动条的滑块位置定位到文本框中输入的值，只需要编写窗List1.Clear 体的单击事件，令滚动条的Value属性值等于文本框的TextText1.Text = s 属性值。 步骤2：按要求将文件保存至考生文件夹中。 【操作步骤】 第2小题 步骤1：新建\"标准EXE\"工程，往窗体Form1中加入一【审题分析】标签的闪烁可在计时器的Timer事件过程中通个文本框和一个水平滚动条，分别设置它们的相关属性，过对标签的Visible属性值进行逻辑非运算来实现；\"开始\"按属性及其值如表1所示。 钮和\"停止\"按钮控制计时器的Enabled属性为True或者 False。 表1 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口中，去掉程序中的注释符\"'\"，将问号\"?\"改为正确的内容。 参考代码： Form_Load事件中的程序： Timer1.Enabled = False Timer1.Interval = 200 Command1_Click事件中的程序： 步骤2：打开代码编辑窗口，输入如下代码： Timer1.Enabled = True 参考代码： Command2_Click事件中的程序： Private Sub Form_Click() Timer1.Enabled = False HScroll1.Value = Val(Text1.Text) 步骤2：按要求将文件保存至考生文件夹中。 考前复习必看资料：PiaoMo整理 —39— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 三、综合操作题 如表1所示。 【审题分析】本题首先需要按照要求画出窗体上的控件以 表1 及设置它们的属性，然后编写三个按钮的单击事件。 在\"显示\"按钮的单击事件中，首先以Input方式打开文件，然后在循环中使用Line Input#语句将数据取出放入字符串中并显示在文本框中，最后关闭文件。 在\"统计\"按钮的单击事件中，直接用一个循环遍历 步骤2：打开代码编辑窗口，编写文本框的Change事整个字符串，依次用Mid函数取出字符串中的每一个字符， 件过程。 若满足条件则令计数器j+1，循环结束后j的值就是满足条 参考代码： 件的字符出现的个数。 Private Sub T1_Change() 在\"保存\"按钮的单击事件中，用Output方式打开文件， C1.Visible = False 然后使用Write#语句将文本框中的值存入文件，最后关闭文 T1.Text = C1.Caption 件。 End Sub 【操作步骤】 步骤3：按要求将文件保存至考生文件夹中。 步骤1：新建一个\"标准EXE\"工程。 第2小题 步骤2：在窗体Form1中加入一个文本框和三个命令【知识点拨】菜单中所包含的每一个菜单项都可看成按钮，并分别设置它们的相关属性，属性及值如表3所示。 是一个命令按钮，程序运行时，选择某菜单项将触发其Click 表3 事件。 【审题分析】本题除了按照要求设置控件的属性以及菜单之外，还需要编写菜单项事件，把窗体标题和当前时间显示在标签中。 【操作步骤】 步骤1：新建一个\"标准EXE\"工程，按表2在窗体中画出控件并设置其相关属性。 表2 步骤3：打开代码编辑窗口，编写三个命令按钮的单击事件代码。 参考代码： Private str1 As String Private Sub Command1_Click() Open \"in5.txt\" For Input As 1 Line Input #1, str1 Close #1 Text1.Text = str1 End Sub Private Sub Command2_Click() Dim i, j As Integer j = 0 For i = 1 To Len(str1) If Asc(Mid(str1, i, 1)) >= 70 And Asc(Mid(str1, i, 1)) <= 100 Then j = j + 1 End If Next Text1.Text = j End Sub Private Sub Command3_Click() Open \"out5.txt\" For Output As #1 Write #1, Text1.Text Close #1 End Sub 步骤4：按要求将文件保存在考生文件夹中。 步骤5：运行程序，先单击\"显示\"按钮，然后单击\"统计\"按钮，最后单击\"保存\"按钮。 步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，按表3中的设置建立菜单项。 表3 步骤3：打开代码编辑窗口，编写两个底层菜单命令的单击事件过程。 参考代码： Private Sub Clock_Click() Label1.Caption = Time End Sub Private Sub Title_Click() Label1.Caption = Form1.Caption End Sub 步骤4：按要求将文件保存至考生文件夹中。 【主要考点】菜单设计器。 二、简单应用题 第1小题 【审题分析】二分查找是一种很有效的查找方式。传统的查找是从头到尾依次比较查找，当待查找的数列比较庞大时，这种查找方式效率非常低下。二分查找的思想是将待查找的key与数组正中的元素（a(m)）相比，若key等于该元素，则意味着查找成功；若key小于该元素，则缩小至右半部内查找；若key大于该元素，则缩小至左半部内查找。在左半部或者右半部内再取其中值与key比较，以此类推。这样的查找方式每次可以缩小1/2的范围，直到查找成功或失败为止。 注意：折半查找算法需要先给数据排序（例如按升序排好）形成有序表，也就是说折半查找算法也需要保证数组中的数据是有序的。 在本题中首先假设待查找数组的最小下标值为low，最大下标值为high，则数组正中的元素下标m为(low + high) \\ 2。然后进行判断，如果a(m)的值等于待查找的值，则视为找到，令变量flag的值为1并退出循环；否则若a(m)大于x， 第九十九套上机答案解析135 一、基本操作题 第1小题 【知识点拨】当文本框中的内容改变的时候将会触发文本框的Change事件。 【审题分析】本题需在文本框的Change事件中，改变C1的Visible属性以及为文本框的Text属性赋值为命令按钮C1的Caption属性。 【操作步骤】 步骤1：新建一个\"标准EXE\"工程，在窗体Form1中画一个文本框和一个命令按钮，设置相关属性，其属性及值考前复习必看资料：PiaoMo整理 —40— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 Next 则应该在左半部分查找，此时low不变，high的值为m-1；a(m) Text2.Text = k 小于x，则应该在右半部分查找，此时high不变，low的值为 '=====考生编写程序结束======== m+1。这样一直到low Print #1, Text1, Text2 否则为没有找到。 Close #1 【操作步骤】 End Sub 步骤1：打开本题工程文件sjt3.vbp，在代码编辑窗口步骤2：在代码编辑窗口中，去掉程序中的注释符\"'\"，中，去掉程序中的注释符\"'\"，将问号\"?\"改为正确的内容。 将问号\"?\"改为正确的内容。 参考代码： 参考代码： m = (low + high) \\ 2 s = 1 high = m - 1 s = s * m low = m + 1 f = s Loop Until low > high 步骤3：按要求将文件保存至考生文件夹中。 If flag = 1 Then 步骤4：按 步骤2：按要求将文件保存至考生文件夹中。 钮。 第2小题 第一百套上机答案解析 【知识点拨】鼠标事件分点击事件和状态事件：点击 一、基本操作题 事件有单击（Click）和双击（DblClick），不区分左键、右 第1小题 键；状态事件有按下（MouseDown）、移动（MouseMove） 【知识点拨】①组合框（ComboBox）将文本框与列和弹起（MouseUp），能够区分出鼠标的左键、右键和中间 表框的特性组合在一起，既可在组合框的文本框部分输入键。例如鼠标移动事件过程的一般格式为： 信息，也可在列表框部分选择项目。可通过修改组合框的Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Style属性值来改变其显示类型，值为0-Dropdown Combo时， End Sub 表示下拉式组合框，包括一个下拉式列表和一个文本框，其中各参数的含义为：Button表示被按下的鼠标键，可以从列表选择或在文本框中输入；值为1-Simple Combo可以取3个值，1为左键、2为右键、4为中间键；Shift表示时，表示简单组合框，包括一个文本框和一个不带下拉列Shift键、Ctrl键和Alt键的状态， Shift键为1、Ctrl键为2、表的列表，可以从列表中选择或在文本框中输入，增加其Alt键为4；X、Y表示鼠标光标的当前位置。 高度可显示列表的更多部分；值为2-Dropdown List时，表示 【审题分析】本题源程序在Form_MouseDown事件过下拉式列表，这种样式仅允许从下拉式列表中选择。 程中，先判断当前按下的是否为鼠标左键，若为左键，则②组合框的列表项既可以在设计阶段通过其List属性将全局变量flag的值设置为True，因此该变量类型应该为逻设置加入（注意：每输入完一项后按 【操作步骤】 步骤1：新建一个\"标准EXE\"工程，按表1在窗体中画步骤1：打开本题工程文件sjt4.vbp，在代码编辑窗口出控件并设置其相关属性。 中，去掉程序中的注释符\"'\"，将问号\"?\"改为正确的内容。 表1 参考代码： Dim Flag As Boolean Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Circle (X, Y), 300 Flag = False 步骤2：按要求将文件保存至考生文件夹中。 三、综合操作题 【知识点拨】函数过程要有一个返回值，该返回值在 函数中用函数名代表，即在函数中至少应有一个对函数名步骤2：按要求将文件保存至考生文件夹中。第2小题 赋值的语句。 【审题分析】形状控件的Shape属性用于设置其显示 【审题分析】函数f利用一个For循环来计算m的m次形状，当值为2时为椭圆；BorderStyle属性用于控制边框的幂，需要先设置一个累乘积变量初值为1，然后循环m次，样式，BorderWidth属性用于控制边框的宽度。BorderColor在循环中每次在累乘积上乘以m。循环结束时将累乘积作为属性控制边框的颜色，FillColor用于控制形状内部的填充函数返回值。 色。 在\"计算\"按钮的单击事件中，要求一个数列的累加【操作步骤】 和，需要先设置累加和变量初值为0，然后使用For循环循环步骤1：新建一个\"标准EXE\"工程，按表2在窗体中画n次，在每次循环中为累加和变量累加f(j)，循环结束后累加出控件并设置其相关属性。 和变量的值即为所求。 表2 【操作步骤】 步骤1：打开考生文件夹下的本题工程文件sjt5.vbp，在码编辑窗口的指定位置输入以下代码： 参考代码： Private Sub Command1_Click() '=======考生编写程序开始======= Dim i, j As Integer, k As Long i = Text1.Text k = 0 For j = 1 To i k = k + f(j) 考前复习必看资料：PiaoMo整理 —41— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 正确的内容。 参考代码： word_s = s s = Mid(s, m + 1) If n < Len(word_s) Then Text2.Text = word_max 步骤2：按要求将文件保存至考生文件夹中。 三、综合操作题 步骤2：打开代码编辑窗口，编写2个命令按钮的单击 事件过程。 参考代码： Private Sub Command1_Click() Shape1.Left = Shape1.Left - 100 End Sub Private Sub Command2_Click() Shape1.Left = Shape1.Left + 100 End Sub 步骤3：按要求将文件保存至考生文件夹中。 二、简单应用题 第1小题 【知识点拨】鼠标事件分点击事件和状态事件：点击事件有单击（Click）和双击（DblClick），不区分左键、右 键；状态事件有按下（MouseDown）、移动（MouseMove） 和弹起（MouseUp），能够区分出鼠标的左键、右键和中间 键。按下鼠标键事件过程的一般格式为： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) End Sub 其中各参数的含义：Button表示被按下的鼠标键，可 以取3个值，1为左键、2为右键、4为中间键；Shift表示Shift 键、Ctrl键和Alt键的状态， Shift键为1、Ctrl键为2、Alt键 为4；X，Y表示鼠标光标的当前位置。 【审题分析】本题在计时器的Timer事件过程中，完 成方框的颜色交替，因此在Timer事件中应该是一个选择语 句，如果颜色为红色（vbred），将其设置为黄色，否则设置 为红色。由于要求0.5秒交替显示一次，因此计时器的Interval属性应该设置为500。 在窗体的MouseDown事件中，首先要判断按下的是鼠标的哪个键，如果是左键，则令形状的Left和Top属性分别为鼠标事件的参数X和Y；如果是右键，则令计时器停止工作。 【操作步骤】 步骤1：打开考生文件下的本题工程文件sjt3.vbp，在代码编辑窗口中，去掉程序中的注释符\"'\"，将问号\"?\"改为正确的内容。 参考代码： Timer1.Interval = 500 Shape1.Left = X Shape1.Top = Y Timer1.Enabled = False If Shape1.BackColor = vbRed Then 步骤2：按要求将文件保存至考生文件夹中。 第2小题 【审题分析】本题源程序在\"开始查找\"按钮的Click事件过程中，先检验文本框Text1（已赋值给变量s）中是否读入数据，并用InStr函数检查空格的位置，以空格为单词分隔依据找出每个单词。每找到一个单词，就将该单词使用Left函数在s中分离出来，然后将s中的这个单词去掉，判断单词的长度并且和预存的最长单词长度相比较，若其比最长单词还长，则这个单词的长度成为新的最长单词长度，这个单词成为新的最长单词。循环结束后即可得出最长的单词。 【操作步骤】 步骤1：打开考生文件下的本题工程文件sjt4.vbp，在代码编辑窗口中，去掉程序中的注释符\"'\"，将问号\"?\"改为考前复习必看资料：PiaoMo整理 —42— 【审题分析】程序设计思路：通过For循环逐一取出数组a中的100个元素，依次判断每个元素是否是完全平方数。判断完全平方数的过程只需要将该数组元素开平方根以后取整，若其和数组元素开平方根的结果相等，则意味着该数组 元素的平方根是一个整数，该数为完全平方数，将该数放入 数组b中。 sort过程的作用是将数组进行排序，该过程有两个参数，第一个参数为待排序的数组，第二个参数为要排序的元素个数，根据题意为数组b排序的语句为Call sort(b, n)。 【操作步骤】 步骤1：打开考生文件夹下的本题工程文件sjt5.vbp，在码编辑窗口的指定位置输入以下代码： 参考代码： '考生编写的代码 n = 0 For k = 1 To 100 If a(k) > 0 Then d = Sqr(a(k)) If Int(d) = d Then n = n + 1 b(n) = a(k) End If End If Next '考生编写代码结束 步骤2：在代码编辑窗口中，去掉程序中的注释符\"'\"，将问号\"?\"改为正确的内容。 参考代码： Call sort(b, n) 步骤3：按要求将文件保存至考生文件夹中。 步骤4：按 后单击\"排序\"按钮，最后单击窗体右上角的关闭按钮结束程 序。 因篇幅问题不能全部显示，请点此查看更多更全内容