2013年3月全国计算机等级考试二级VB无纸化上机题题库题干及答案解析(6)

2013年3月全国计算机等级考试二级VB无纸化上机题库题干及答案解析(6) 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 2013年3月全国计算机等级考试 二级VB上机题库题干 第101套题干112 一、基本操作题 请根据以下各小题的要求Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个文本框，其名称为Txt1，宽度和高度分别为1500为400;再画两个命令按钮，其名称分别为cmdDisplay和cmdEnlarge，标题分别为"显示"和"扩大"，编写适当的事件过程。程序运行后，如果单击cmdDisplay命令按钮，则在文本框中显示"计算机考试"，如图1所示;如果单击cmdEnlarge命令按钮，则使文本框在高、宽方向上各增加一倍，文本框中的字体大小扩大到原来的3倍，如图2所示。 图1 图2 注意:要求程序中不得使用变量。存盘时必须存放在考生文件夹下，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。 (2)在名称为Form1的窗体上画一个名称为Img1的图像框，有边框，并可以自动调整装入图片的大小以适应图像框的尺寸;再画三个命令按钮，名称分别为cmdRed、cmdBlack、cmdCls，标题分别为"红桃"、"黑桃"、"清除"。在考生目录下有二个图标文件，其名称分别为"Misc1.ico"和"Misc2.ico"。程序运行时，单击"红桃"按钮，则在图像框中显示红桃图案(即Misc1.ico文件，如图3所示);单击"黑桃"按钮，则在图像框中显示黑桃图案(即Misc2.ico文件);单击"清除"按钮则清除图像框中的图案。请编写相应控件的Click事件过程，实现上述功能。 注意:要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。 图3 二、简单应用题 (1)在考生文件夹下有一个工程文件vbsj3.vbp。窗体上有名称为Tmr1的定时器，以及名称为Lin1和Lin2的两条水平直线。请用名称为Shp1的形状控件，在两条直线之间画一个宽和高都相等的形状，其显示形式为圆，并设置适当属性使其满足以下要求:?圆的顶端距窗体Form1顶端的距离为360;?圆的颜色为红色(红色对应的值为:&H000000FF&或&HFF&)，如图4所示。程序运行时，Shp1将在Lin1和Lin2之间运动。当Shp1的顶端到达Lin1时，会自动改变方向而向下运动;当Shp1的底部到达Lin2时，会改变方向而向上运动。文件中给出的程序不完整，请去掉程序中的注释符，把程序中的,改为正确 —1— 分别为Txt1和Txt2，初始值为空的文本框。如图5所示。程序功能如下: ?单击"读数"按钮，则将考生文件夹下in4.dat文件的内容(该文件中仅含有字母和空格)显示在Txt1文本框中;?在Txt1文本框中选中内容后，单击"统计"按钮，则自动统计选中文本中从未出现过的字母(统计过程中不区分大小写)，并将这些字母以大写形式显示在Txt2文本框内。请将"统计"按钮Click事件过程中的注释符去掉，把,改为正确内容，以实现上述程序功能。 注意:考生不得修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。 图5 三、综合操作题 在考生文件夹中有一个工程文件vbsj5.vbp，其功能是:找出矩阵元素的最大值，并求出矩阵对角线元素之和，窗体外观如图6所示。程序运行时，矩阵数据被放入二维数组a中。当单击"求最大值元素"命令按钮时，找出矩阵中最大的数，并显示在标签lblMax中。当单击"求对角线元素之和"命令按钮时，计算矩阵主对角线元素之和，并显示在标签lblSum中。文件中已给出部分程序，请编写"求最大值元素"及"求对角线元素之和"两个命令按钮的事件过程中的部分程序代码。 图6 注意:不得修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，两个命令按钮的事件过程必须至少各执行一次。 第102套题干113 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画两个标签(名称分别为lblHeight和lblWeight，标题分别为"身高"和"体重")、两个文本框(名称分别为txtHeight和txtWeight，Text属性均为空白)和一个命令按钮(名称为cmdInput，标题为"输入")。然后编写命令按钮的Click事件过程，程序运行后，如果单击命令按钮，则先后显示两个输入对话框，在两个输入对话框中分别输入身高和体重，并分别在两个文本框中显示出来，运行后的窗体如图1所示。要求程序中不得使用任何变量。 注意:存盘时必须存放在考生文件夹下，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。 图1 (2)在名称为Form1的窗体上画一个名称为lstCourse 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 的列表框，通过属性窗口输入四个列表项:"语文"、"数学"、"物理"、"化学"，如图2所示。请编写适当的事件过程使得在装入窗体时，把最后一个列表项自动改为"英语";单击窗体时，则删除最后一个列表项。 注意:要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。 图2 二、简单应用题 (1)在考生文件夹下有一个工程文件vbsj3.vbp，其窗体上有一个名称为Label1的控件数组，含三个标签，标题分别是"开始时间"、"结束时间"和"通话费用";有一个名称为Text1的控件数组，含三个初始 值为空的文本框;此外还有两个名称分别为Cmd1和Cmd2的命令按钮，标题分别是"通话开始"和"通话结束"。其中通过属性窗口对"通话结束"命令按钮的初始状态设置为禁用，如图所示。该程序的功能是计算公用电话计时收费。计时收费为:通话时间在3分钟以 — —2 称。程序的功能是: ?如果单击"读数"命令按钮，则把考生文件夹下in5.dat文件中两组已按升序方式排列的数(每组30个数)分别读入数组A和B，并分别将它们显示在Text1、Text2中; ?如果单击"合并"命令按钮，则将A、B两个数组合并为另一个按升序方式排列的数组C，并将合并后数组C中的数据依升序方式显示在Text3中。窗体中给出了所有控件 (如图5所示)以及"读数"命令按钮的Click事件过程，请完善"合并"命令按钮的Click事件过程，使其实现上述功能。 注意:不得修改已经存在的控件和程序，在结束程序运行之前，必须进行合并操作，且必须通过窗体右上角的"关闭"按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 图5 第103套题干114 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个标签(名称为lblInput，标题为"输入")、一个文本框(名称为txtInput，Text属性为空白)和一个命令按钮(名称为cmdDisplay，标题为" 显示")，如图1所示。然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入"计算机VB等级考试"，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文 本框中的内容。运行后的窗体如图2所示。要求程序中不得使用任何变量。 图1 图2 注意:存盘时必须存放在考生文件夹下，工程文件名 为vbsj1.vbp，窗体文件名为vbsj1.frm。 (2)在名称为Form1的窗体上画1个名称为Label1的标签，其初始内容为空，且能根据指定的标题内容自动调整标签的大小;再画2个命令按钮，标题分别是"日期"和"时间"，名称分别为cmdDate、cmdTime。请编写2个命令按钮的Click事件过程，使得单击"日期"按钮时，标签内显示系统当前日期;单击"时间"按钮时，标签内显示系统当前时间。如图3所示。 要求:程序中不得使用变量，每个事件过程中只能写一条语句。 注意:存盘时必须存放在考生文件夹下，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。 图3 二、简单应用题 (1)在考生文件夹下有一个工程文件vbsj3.vbp。程序的功能是通过键盘向文本框中输入正整数。在"除数"框架中选择一个单选按钮，然后单击"计算数据"命令按钮，将大于文本框中的正整数、并且能够被所选除数整除的5个数添加到列表框Lst1中，如图4所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求:请去掉程序中的注释符，把程序中的,改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 图4 (2)考生文件夹下的工程文件vbsj4.vbp中有一个标题为"编号"的标签Label1，一个用于接收选手编号的初始 —3— ?在任何情况下，按回车键都相当于单击"是"按钮;按ESC键都相当于单击"否"按钮。 注意:存盘时必须存放在考生文件夹下，工程文件名 为vbsj1.vbp，窗体文件名为vbsj1.frm。 图1 (2)在名称为Form1的窗体上画一个名称为txtComputer，内容为"计算机"的文本框，且显示为小四号字;再画三个命令按钮，名称分别为"cmdLeft"、"cmdCenter"、"cmdRight"，标题分别是"居左"、"居中"、"居右"。如图2所示。 图2 要求:编写3个命令按钮的Click事件过程，使得单击"居左"按钮 "按钮时，文本框的内容居中时，文本框的内容靠左对齐;单击"居中 对齐;单击"居右"按钮时，文本框的内容靠右对齐。程序中不得使用变量，每个事件过程中只能写一条语句。 注意:存盘时必须存放在考生文件夹下，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。 二、简单应用题 (1)在考生文件夹中有一个工程文件vbsj3.vbp。程序的功能是输入用户名和密码。程序运行时，当向文本框txtPwd中输入密码时，若"显示密码"复选框没有被选中，则在文本框txtChar中同时显示"#"(如图3所示);若"显示密码"复选框被选中，再重新输入密码时，则在txtChar中同时显示的是密码字符本身。 图3 在给出的窗体文件中已经添加了全部控件，但程序不完整。要求:去掉程序中的注释符，把程序中的,改为正确的内容。 注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件vbsj4.vbp。其窗体上有一个由八个图片框控件组成的控件数组、两个命令按钮及一个计时器控件，如图4所示。 图4 程序功能:将计时器控件设置为每隔0.5秒触发一次。运行程序时，只显示下标为0的图片框控件数组元素，其它图片框均不显示。单击"开始"按钮，数组中的每个图片框自左至右依次显示，时间间隔为0.5秒，产生月亮从左向右移动的效果，如图5所示。月亮移到右端后再从左端重新开始。单击"停止"按钮，月亮停止移动。 图5 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 要求:按照题目要求设置控件属性，去掉程序中的注释符，把程序中的,改为正确的 —4— Hsb1和Hsb2，其Max属性均为100，Min属性均为1;四个标签，名称分别为Lbl1、Lbl2、Lbl3和Lbl4，标题分别为" 运算数1"、"运算数2"、"运算结果"和空白;此外还有一个包含4个单选按钮的控件数组，名称为Opt1，标题分别为"+"、"-"、"*"和"/"，如图4所示。程序运行后，移动两个滚 动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选钮，然后单击命令按钮，相应的计算结果将显示在Lbl4中，程序运行情况如图5所示。这个程序不完整，请把它补充完整，并能正确运行。 图4 图5 要求:去掉程序中的注释符，把程序中的,改为正确的内容，使其能正确运行，但不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。 (2)在考生文件夹下有一个工程文件vbsj4.vbp，相应的窗体文件为vbsj4.frm。窗体上有一个名称为cmdStart的命令按钮和一个名称为Tmr1的计时器。请在窗体上画一个标签(名称为Lbl1，标题为"请输入一个正整数")、再画一个文本框(名称为Txt1，初始内容为空白)。已经给出了相应的事件过程。程序运行后，在文本框中输入一个正整数，此时如果按回车键，则可使文本框中的数字每隔0.3秒减1(倒计数);当减到0时，倒计数停止，清空文本框，并把焦点移到文本框中。 要求:去掉程序中的注释符，把程序中的,改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 三、综合操作题 在考生文件夹下有一个工程文件vbsj5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框Txt1中输入一个大于2的偶数，并单击"分解为"命令按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合， ，要求取含有最小素数的组例如24可以分解为5和19，也可以分解为11和13 合，如图6所示)。要求编写"分解为"命令按钮事件过程中"考生编写程序开始"和"考生编写程序结束"之间的代码，以实现上述功能。过程IsPrime用来判断一个数是否为素数，如果是，返回值为True，否则返回值为False。 图6 注意:不得修改原有程序和控件的属性。至少正确运行一次程序，且运行时在文本框中输入23456，单击"分解为"按钮，将结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。 第106套题干117 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上建立一个名称为Opt1的单选按钮数组，含3个单选按钮，它们的标题依次为"选项1"、"选项2"、"选项3"，其下标分别为0，1，2，初始状态下，"选项2"为选中状态。运行后的窗体如图1所示。 注意:存盘时必须存放在考生文件夹下，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 图1 (2)在名称为Form1的窗体上画一个标签，其名称为Lbl1，标题为"计算机考试"，Left属性为0;再画一个水平滚动条，其名称为Hsb1，在属性窗口中设置其属性如下: Min =0 Max= 3000 SmallChange =10 LargeChange =100 编写适当的事件过程。程序运行后，如果移动滚动条 上的滚动框，则可使标签向相应的方向移动，标签距窗体 左边框的距离等于滚动框的位置，程序的运行情况如图2 所示。 要求:程序中不得使用变量，每个事件过程中只能写 一条语句。 注意:存盘时必须存放在考生文件夹下，工程文件名 为vbsj2.vbp，窗体文件名为vbsj2.frm。 图2 二、简单应用题 (1)在考生目录下有一个工程文件vbsj3.vbp，窗体中 有两个图片框，名称分别为Pic1、Pic2，其中的图片分别是 一个航天飞机和一朵云彩;还有一个计时器，名称为Tmr1; 一个命令按钮，名称为Cmd1，标题为"发射"。 题目给出了两个事件过程，但并不完整，要求:?设 置计时器的属性，使其在初始状态下不计时。?设置计时 器的属性，使其每隔0.1秒调用Timer事件过程一次。?去掉 程序中的注释符，把程序中的,改为正确的 —5— 三、综合操作题 在考生文件夹下有一个工程文件vbsj5.vbp，其窗体上画有两个名称分别为Txt1、Txt2的文本框，其中Txt1可多行显示。请画两个名称分别为Cmd1、Cmd2，标题分别为"生 成数组"、"查找"的命令按钮。如图5所示。 图5 程序功能如下:?单击"生成数组"按钮，则用随机函数生成 ,100之间(不含0和100)互不相同的数值，并将它们保存到一维数组a10个0 中，同时也将这10个数值显示在Txt1文本框内。?单击"查找"按钮将弹出输入对话框，接收用户输入的任意一个数，并在一维数组a中查找该数，若查找失败，则在Txt2文本框内显示该数"不存在于数组中";否则显示该数在数组中的位置。 要求:请去掉程序中的注释符，把程序中的,改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。 第107套题干118 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个标签，名称为lblPwd，标签上显示"请输入密码:"，画一个名称为txtPwd的文本框，其宽、高分别为1800和300，设置适当的属性使得在输入密码时，文本框中显示"*"字符，此外再把窗体的标题设置为"密码输入窗口"，以上这些设置都必须在属性窗口中进行，运行时的窗体如图1所示。 注意:存盘时必须存放在考生文件夹下，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。 图1 (2)在Form1的窗体上画一个列表框，名称为lstCity，通过属性窗口向列表框中添加4个项目，分别为"北京"、"上海"、"天津"和"重庆"，编写适当的事件过程。程序运行后，如果单击列表框中的某一项，则该项就从列表框中消失。程序的运行情况如图2所示。 注意:存盘时必须存放在考生文件夹下，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。 图2 二、简单应用题 (1)在窗体(名称为Form1，KeyPreview属性为True)上画一个列表框(名称为Lst1)和一个文本框(名称为Txt1)，如图3所示。编写窗体的KeyDown事件过程。程序运行后，如果按"A"键，则从键盘上输入要添加到列表框中的项目 (内容任意，不少于3个);如果按"D"键，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图4所示。 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 图3 图4 在考生文件夹下有一个工程文件vbsj3.vbp(相应的窗 体文件名为vbsj3.frm)，可以实现上述功能。但这个程序不 完整，请把它补充完整。 要求:去掉程序中的注释符，把程序中的,改为适当 的 —6— 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1，标题为"选课"的窗体上画一个复选框数组，名称为chkCourse，共有四个复选框，按顺序其标题分别是"语文"、" 数学"、"外语"、"体育"，其中"数学 "、"体育"复选框处在选中状态，运行时的窗体如图1所示。请画出控件并设置相应属性。 注意:存盘时必须存放在考生文件夹下，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。 图1 (2)在名称为Form1的窗体上画一个标签，其名称为Lbl1;再画一个列表框，其名称为Lst1，通过属性窗口向列表框中添加若干个项目，每个项目的具体内容不限，编写适当的事件过程。程序运行后，如果双击列表框中的任意一项，则把列表中的项目数在标签中显示出来。程序运行情况如图2所示。不准使用任何变量。 图2 注意:存盘时必须存放在考生文件夹下，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。 二、简单应用题 (1)在名称为Form1的窗体上画一个名称为Txt1的文本框，再建立一个名称为mnuFormat的弹出式菜单，含三个菜单项，标题分别为"加粗"、"斜体"、"下划线"，名称分别为mnuFormat1、mnuFormat2、mnuFormat3。请编写适当的事件过程，在运行时当用鼠标右键单击文本框时，弹出此菜单，选中一个菜单项后，则按所选菜单标题设置文本框中文本的格式，如图3所示。 注意:存盘时必须存放在考生文件夹下，工程文件名为vbsj3.vbp，窗体文件名为vbsj3.frm。 图3 (2)在考生文件夹下有一个工程文件vbsj4.vbp(相应的窗体文件名为vbsj4.frm)，其功能是通过调用过程FindMax求数组的最大值，请完善此过程。程序运行后，在四个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最大值，并在窗体上显示出来(如图4所示)。这个程序不完整，请把它补充完整，并能正确运行。 要求:去掉程序中的注释符，把程序中的,改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 图4 三、综合操作题 在考生文件夹中有一个工程文件vbsj5.vbp，窗体界面如图5所示。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数，并将统计结果显示在相应的标签中。请仔细阅读已有程序，然后在标 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 出的位置编写适当的程序实现上述功能。 图5 要求:不得修改原有程序和控件的属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。 第109套题干120 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序 (包括界面和代码)。 (1)在名称为Form1的窗体上画两个文本框，其名称分 别为Txt1和Txt2，它们的高、宽分别为350、2500和1500、 2500。窗体的标题为"文本框示例"。 请通过属性窗口设置适当的属性满足以下要求:? Txt2可以显示多行文本，且有垂直和水平两个滚动条;? 运行时在Txt1中输入的字符都显示为"*"。运行后的窗体如 图1所示。 注意:存盘时必须存放在考生文件夹下，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。 图1 (2)在名为Form1的窗体上绘制一个名称为Txt1的文本框;一个名称为Hsb1的水平滚动条。在属性窗口中设置滚动条的属性如下表所示。 编写适当的事件过程，使程序运行后，若移动滚动条上的滚动框，则可扩大或缩小文本框的高度，并使得文本框的宽度始终是其高度的1.5倍。运行后的窗体如图2所示。 注意:要求程序中不得使用任何变量，文件必须存放在考生文件夹中，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。 图2 二、简单应用题 (1)在考生目录下有一个工程文件vbsj3.vbp，窗体上有一个组合框cboData，其中已经预设了 —7— 则把修改后的txtData中的内容替换组合框中该列表项的原 有内容，同时使"确定"按钮不可用;若单击"添加"按钮，则把在txtData中的内容添加到组合框中。所提供的窗体文件已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的,改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改 后的文件按原文件名存盘。 (2)在考生目录下有一个工程文件vbsj4.vbp，窗体中的两个滚动条分别表示红灯亮和绿灯亮的时间(秒)，移动滚动框可以调节时间，调节范围为1-10秒。刚运行时，红灯 亮。单击"开始"按钮则开始切换:红灯到时后自动变为黄灯，1秒后变为绿灯;绿灯到时后自动变为黄灯，1秒后变为红灯，如此切换(如图4所示)。所提供的窗体文件已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的,改为正确的内容。 提示:在三个图片框picR、picG和picY中分别放置了红灯亮、绿灯亮、黄灯亮的图标，并重叠在一起，当要使某个灯亮时，就使相应的图片框可见，而其他图片框不可见，并保持规定的时间，时间到就切换为另一个图片框可见，其他图片框不可见。 注意:考生不得修改工程中已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。 图4 三、综合操作题 考生文件夹下的工程文件vbsj5.vbp中有一个初始内容为空的文本框txtArray，二个标题分别是"读数"和"计算"的命令按钮;请画一个标题为"各行平均数的最大值为"的标签Label2，再画一个初始内容为空的文本框txtMax。如图9所示。 程序功能如下: ?单击"读数"按钮，则将考生文件夹下in5.dat文件的内容读入20行5列的二维数组a中，并同时显示在txtArray文本框内。?单击"计算"按钮，则自动统计二维数组a中各行的平均数，并将这些平均数中的最大值显示在txtMax文本框内。"读数"按钮的Click事件过程已经给出，请编写 "计算"按钮的Click事件过程实现上述功能。 注意:考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行"计算"，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 图5 第110套题干121 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在标题为"文本框示例"、名称为Form1的窗体上画一个名称为Txt1的文本框，无初始内容，其高、宽分别为2000、1800，可显示多行，有水 "(如图1平滚动条，并通过属性窗口把文本框的字体样式设置为"斜体所示)。 注意:存盘时必须存放在考生文件夹下，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 图1 (2)在名称为Form1的窗体上画一个名称为Shp1的形状控件，画两个名称分别为Cmd1、Cmd2，标题分别为"显示圆形"、"红色边框"的命令按钮。将窗体的标题设置为"形状控件示例"，如图2所示。请编写适当的事件过程使得在运行时，单击"显示圆形"按钮将形状控件设为圆形。单击"红色边框"按钮，将形状控件的边框颜色设为红色(&HFF&)，如图3所示。 注意:要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。 图2 图3 二、简单应用题 (1)在考生目录下有一个工程文件vbsj3.vbp，包含了所有控件和部分程序。程序运行时，在文本框中每输入一个字符，则立即判断:若是小写字母，则把它的大写形式显示在标签Lbl1中;若是大写字母，则把它的小写形式显示在Lbl1中;若是其他字符，则把该字符直接显示在Lbl1中。输入的字母总数则显示在标签Lbl2中，如图4所示。 要求:去掉程序中的注释符，把程序中的,改为正确的内容。 注意:不得修改已经存在的程序，最后把修改后的文件按原文件名存盘。 图4 (2)在考生文件夹下有一个工程文件vbsj4.vbp(相应的窗体文件名为vbsj4.frm)，其功能是通过调用过程Sort将数组按降序排序，完善该过程。程序运行后，在四个文本框中各输入一个整数(如图5所示)，然后单击命令按钮，即可使数组按降序排序，并在文本框中显示出来(如图6所示)。这个程序不完整，请把它补充完整，并能正确运行。 图-5 图6 要求:去掉程序中的注释符，把程序中的,改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 三、综合操作题 在考生目录下有一个工程文件vbsj5.vbp，包含了所有控件和部分程序。程序运行时，单击"打开文件"按钮，则弹出"打开"对话框，默认 文件类型为"文 的内容，并编写"修改内容"按钮的Click事件过程。 图 7 图8 注意:考生不得修改已经存在的程序。必须把Text1中修改后的内容用"保存文件"按钮存储结果，否则无成绩。最后，按原文件名把程序存盘。 第111套题干122 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个名称为Lbl1、标题为"速度设置"的标签，通过属性窗口把标签的大小设置为自动调整。画一个名称为Hsb1的水平滚动条，通过属性窗口设置适当属性使滚动条的最大值为80，最小值为1，单击滚动条两端的箭头时，滚动框移动2，滚动框的初始值为30。程序运行后的窗体如图1所示。 注意:存盘时必须存放在考生文件夹下，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。 图1 (2)在名称为Form1的窗体上用名称为Shp1的形状控件画一个圆，其直径为1000(高、宽均为1000);再画两个命令按钮，标题分别是"垂直线"和"水平线"，名称分别为Cmd1、Cmd2，如图2所示。然后编写两个命令按钮的Click事件过程。程序运行后，如果单击"垂直线"命令按钮，则圆的内部用垂直线填充;如果单击"水平线"命令按钮，则圆的内部用水平线填充。 图2 注意:程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。 二、简单应用题 (1)在考生目录下有一个工程文件vbsj3.vbp,窗体如图3所示。程序的功能是:通过键盘向文本框中输入数字，如果输入的是非数字字符，则提示输入错误，且文本框中不显示输入的字符。单击名称为cmdAdd、标题为"添加"的命令按钮，则将文本框中的数字添加到名称为Cbo1的组合框中。在给出的窗体文件中已经添加了全部控件，但程序不 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 完整。要求去掉程序中的注释符，把程序中的,改为正确的 —9— 个命令按钮，名称分别为cmdShow、cmdHide、cmdAgain，标题分别为"显示密码"、"隐藏密码"、"重新输入"。程序运 行时，在txtPwd中输入若干字符，单击"隐藏密码"按钮，则只显示同样数量的"*"(如图2所示);单击"显示密码"按钮， 则显示输入的字符(如图3所示);单击"重新输入"按钮，则清除txtPwd中的内容，并把光标定位到txtPwd中。 图2 图3 要求:请画出所有控件，编写命令按钮的Click事件过程，程序中不得使用变量，在"显示txtPwd"、"隐藏txtPwd"按钮的事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。 二、简单应用题 (1)在考生文件夹下有一个工程文件vbsj3.vbp。程序运行时，单击窗体则显示如图4所示的图案。请去掉程序中的注释符，把程序中的,改为正确的内容。 注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 图-4 (2)在考生文件夹下有一个工程文件vbsj4.vbp，窗体如图5所示。程序功能如下:?单击"读数据"按钮，则将考生文件夹下in4.dat文件的内容(该文件中仅含有字母和空格)显示在Txt1文本框中;?在Txt1中选中一部分文本， "按钮，则以不区分大小写字母的方式，自动统计选中文并单击"统计 本中单词"the"出现的次数，并将统计结果显示在Txt2文本框内。请将"统计"按钮Click事件过程中的注释符去掉，把,改为正确的内容，以实现上述功能。 注意:考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 图5 三、综合操作题 在考生文件夹下有一个工程文件vbsj5.vbp。其窗体中有一个名称为txtRnd的文本框数组，下标从0开始。程序运行时，单击"产生随机数"按钮，就会产生10个3位数的随机数，并放入txtRnd数组中(如图6所示);单击"重排数据"按钮，将把txtRnd中的奇数移到前面，偶数移到后面(如图7所示)。已经给出了所有控件和部分程序。 图 6 图7 要求:请去掉程序中的注释符，把程序中的,改为正确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 提示:在"重排数据"按钮的事件过程中有对其算法的文字描述， 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 请仔细阅读。 考前复习必看:PiaoMo整理 —10— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 上机题答案解析 第101套上机答案解析 一、基本操作题 第1小题 【知识点播】?文本框(Text)通常用于接收用户输入的字符串数据或用于显示输出信息，其Text属性用于设置或返回文本框中显示的文本。?控件的Height和Width属性用于设置控件在屏幕上的大小(即高和宽)。?字体大小通过FontSize属性设置，一般格式为:FontSize [=点数]。 【审题分析】要在单击"扩大"按钮时，使文本框在高、宽方向上各增加一倍，只需在"扩大"按钮的Click事件中编写设置文本框的Height和Width属性值为原来2倍的语句。要使文本框中的字体大小扩大到原来的3倍，需编写设置文本框的FontSize属性值为原来3倍的语句。 【操作步骤】 步骤1:新建一个"标准EXE"工程，按表1在窗体中画出控件并设置其相关属性。 表 1 事件过程。 参考代码: Private Sub cmdRed_Click() Img1.Picture=LoadPicture(App.Path & "\Misc1.ico") End Sub Private Sub cmdBlack_Click() Img1.Picture=LoadPicture(App.Path&"\Misc2.ico") End Sub Private Sub cmdCls_Click() Img1.Picture = LoadPicture End Sub :按要求将文件保存至考生文件夹中。 步骤3 二、简单应用题 第1小题 【知识点播】?形状控件(Shape)提供了显示一些规则图形的简易。通过设置形状控件Shape属性值，可显示6种图形:0,矩形、1,正方形、2,椭圆、3,圆、4,圆角矩形、5,圆角正方形。Width属性用于设置形状的宽度，当形状为圆时即为圆的直径。?Move方法用于移动窗体或控件，其语法为:对象名.Move Left,top,width,height。 【审题分析】本题在计时器的Timer事件过程中，Shp1每次上下移动的距离为s(值为负向上移动，值为正向下移动，初值为-40)，若Shp1向上移动后其Top属性值小于或等于Lin1的Y1(或Y2)属性值，则s取其相反数，Shp1向下移动。若Shp1向下移动后其Top属性值与其Width属性值之和大于或等于Lin2的Y1(或Y2)属性值，则s再取其相反数，Shp1向上移动。 窗体加载时，计时器启动，Shp1开始在Lin1和Lin2之间运动。 【操作步骤】 步骤1:打开考生文件下的本题工程文件vbsj3.vbp，在窗体上两条水平直线间画一个形状控件，并按表3设置其属性。 表3 步骤2:打开代码编辑窗口，编写两个命令按钮的单击事件过程。 参考代码: Private Sub cmdDisplay_Click() Txt1.Text = "计算机考试" End Sub Private Sub cmdEnlarge_Click() Txt1.Width = Txt1.Width * 2 Txt1.Height = Txt1.Height * 2 Txt1.FontSize = Txt1.FontSize * 3 End Sub 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【知识点播】?为图像框控件指定图片有两种方法:一是在设计阶段通过Picture属性设置;二是在程序运行时通过LoadPicture()图片加载函数加载，其语法为:图片框.Picture= LoadPicture("图像文件路径")，App.Path可返回当前工程文件所在的文件夹路径，是使用相对路径的一种用法。用不带参数的LoadPicture函数为对象的Picture属性赋值将清除窗体、图片框及图像控件中的图形。?Stretch(自动伸缩)属性用来设定图像框是否需要自动调整大小，以适应载入图像框中的图片的大小，值为True时表示自动调整。?BorderStyle用于设置图像框的边框类型，值为0表示无边框，值为1表示有边框。 【审题分析】本题需分别在3个命令按钮的Click事件过程中，用LoadPicture()函数为图像框加载不同图片。 【操作步骤】 步骤1:新建一个"标准EXE"工程，按表2在窗体中画出控件并设置其相关属性。 表 2 步骤2:打开代码编辑窗口，编写3个命令按钮的单击 考前复习必看资料:PiaoMo整理 —11— 步骤2:在代码编辑窗口，去掉程序中的注释符"’"，将问号","改为正确的内容。 参考代码: Tmr1.Enabled = True If Shp1.Top <= Lin1.Y1 Then If Shp1.Top + Shp1.Width >= Lin2.Y1 Then 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【审题分析】本题在"统计"按钮的单击事件过程中，先检查是否选中文本框Txt1中的内容(if语句条件表达式为:sl=0或st=" ")，若没选择内容则弹出提示信息，否则通过For循环逐一取出选中内容的每个字符(故循环终值为sl)，并计算出其中每个字母(大写)在26个字母中的顺序，赋值给变量n，数组元素a(n)则记录顺序号为n的字母出现的次数。再通过For循环逐一检查26个字母(故循环终值为26)的出现次数是否为0(即a(i) = 0)，将出现次数为0的字母显示在文本框Txt2中。 【操作步骤】 步骤1:打开考生文件下的本题工程文件vbsj4.vbp，在代码编辑窗口，去掉程序中的注释符"’"，将问号","改为正确的内容。 参考代码: If sl = 0 Then 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 For i = 1 To sl a(n) = a(n) + 1 For i = 1 To 26 步骤2:按要求将文件保存至考生文件夹中。 三、综合操作题 【知识点播】位于矩阵左上到右下主对角线上的元素具有行号等于列号的特点，位于4*4矩阵右上到左下对角线上的元素具有行号与列号之和为5的特点。 【审题分析】cmdMax_Click事件过程设计思路:用变量Max记录数组a中第1个元素的值。然后通过嵌套For循环让数组a中的每一个元素逐一与变量Max比较大小，当有数组元素的值大于变量Max时，将其赋值给变量Max，循环结束时变量Max的值即为矩阵中最大的数，将其显示在标签lblMax中。 cmdSum_Click事件过程设计思路:通过For循环将数组元素a(i,i)累加入变量Sum(初值为0)中，循环结束时将其显示在标签lblSum中。 【操作步骤】 步骤1:打开考生文件夹下的本题工程文件vbsj5.vbp，在码编辑窗口的指定位 置输入代码: 参考代码: Private Sub cmdMax_Click() ‘====考生编写程序开始==== Dim i As Integer Dim j As Integer Dim Max As Integer Max = a(1, 1) For i = 1 To 4 For j = 1 To 4 If Max < a(i, j) Then Max = a(i, j) Next Next lblMax = Max ‘====考生编写程序结束==== ‘不得修改以下部分 save lblMax End Sub Private Sub cmdSum_Click() ‘====考生编写程序开始==== Dim i As Integer Dim j As Integer Dim Sum As Integer For i = 1 To 4 Sum = Sum + a(i, i) Next lblSum = Sum ‘====考生编写程序结束==== ‘不得修改以下部分 save lblSum End Sub 步骤2:按要求将文件保存至考生文件夹中。 步骤3:按<F5>键运行程序，分别单击"求最大值元素"按钮和 "求对角线元素之和"按钮。 步骤2:双击窗体Form1中的"输入"按钮，在打开的代码编辑窗口 中，输入如下代码: 参考代码: Private Sub cmdInput_Click() txtHeight.Text = InputBox("请输入身高") txtWeight.Text = InputBox("请输入体重") End Sub 步骤3:按要求将文件保存至考生文件夹中。 【主要考点】InputBox()函数。 第 2小题 【知识点播】?Load(装载)事件:在一个窗体被装载时发生，常用于在程序启 动时对属性和变量进行初始化。?列表框的List(Index)属性用于设置或返回指定 索引号(从0开始)列表项的 —12— 步骤2:双击窗体Form1中的"输入"按钮，在打开的代码编辑窗口 中，输入如下代码: 参考代码: Private Sub Form_Load() lstCourse.List(3) = "英语" End Sub Private Sub Form_Click() lstCourse.RemoveItem 3 End Sub 步骤3:按要求将文件保存至考生文件夹中。 【考试误区】列表框中项目的索引号是从0开始的，最后一个项目的索引号应 等于Lst1.ListCount-1，而非Lst1.ListCount。 二、简单应用题 第1小题 【知识点播】Enabled属性用于设置控件或菜单项在程序运行时是否有效，值为True时表示有效，值为False时表示无效(显示为灰色)。 【审题分析】题目要求在单击"通话开始"按钮时，在"开始时间"右侧的文本框中显示开始时间，故cmdStart_Click事件过程中的,处应改为:Text1(0).Text。 在单击"通话结束"按钮时，先计算通话时长，再计算通话费用。若通话时长在3分钟以上，则通话费用为:0.5+(m-3)*0.15。设置cmdStart的Enabled "通话开始"命令按钮变为可用，设置cmdStop的属性值为True，将使 Enabled属性值为Fasle，将使"通话结束"命令按钮不可用。 【操作步骤】 步骤1:打开考生文件下的本题工程文件vbsj3.vbp，在代码编辑窗口，去掉程序中的注释符"’"，将问号","改为正确的内容。 参考代码: Text1(0).Text = Str(Time()) 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 s = 0.5 + (m - 3) * 0.15 单击"计算"按钮，然后单击窗体右上角的关闭按钮结束程cmdStart.Enabled = True 序。 cmdStop.Enabled = False 第103套上机答案解析 步骤2:按要求将文件保存至考生文件夹中。 一、基本操作题 第2小题 第1小题 【审题分析】"读入数据"按钮的单击事件过程中，【审题分析】要实现在程序运行时，单击命令按钮，Open语句用于打开数据文件以读入数据，故,应改为:使标签和文本框消失，在窗体上显示文本框中的s(i) = s(i) + a(i, j) 步骤2:在代码编辑窗口，编写"显示"按钮的Click事s(i) = CInt(s(i) / 10) 件过程。 Shape1(k - 1).Top = m - Shape1(k –1). Height 参考代码: Shape1(k - 1).Visible = True Private Sub cmdDisplay_Click() 步骤2:按要求将文件保存至考生文件夹中。 Print txtInput.Text 三、综合操作题 lblInput.Visible = False 【审题分析】分别从数组a和数组b中各取出一个最小 txtInput.Visible = False 数(即a(1)和b(1))，并比较它们的大小，将两者中较小的数End Sub 作为数组c的第一个元素(即c(1))，接下来再用两者中较大步骤3:按要求将文件保存至考生文件夹中。 的数与对方的下一个数比较，并将两者中较小的数作为数【主要考点】控件画法、简单事件编程。 组c的第二个元素(即c(2))，依此类推，直至得到数组c的第2小题 60个元素为此。 【知识点播】?Date函数用于获取当前系统日期，给数组c各元素赋值可通过一个For循环来完成，当一Time函数用于获取当前系统时间。?AutoSize属性用来确定个数组中的元素较另一个数组中的元素先取完时，则将另是否根据Caption属性指定的标题自动调整标签的大小，可一个数组中的剩余元素直接作为数组c的后续元素。 以设置为True或False。 【操作步骤】 【审题分析】本题只需在"日期"按钮的单击事件过程步骤1:打开考生文件下的本题工程文件vbsj5.vbp，中，通过调用Date函数在标签中显示当前系统日期;在"时在代码编辑窗口的指定位置编写如下代码: 间"按钮的单击事件过程中，通过调用Time函数在标签中显参考代码: 示当前系统时间。 Dim i As Integer 【操作步骤】 Dim j As Integer 步骤1:新建一个"标准EXE"工程，按表2在窗体中画Dim m As Integer 出控件并设置其相关属性。 Dim n As Integer 表 2 m = 1 n = 1 For i = 1 To 60 If a(m) < b(n) Then c(i) = a(m) m = m + 1 Else c(i) = b(n) n = n + 1 End If 步骤2:在代码编辑窗口编写以下事件过程。 If m > 30 Then 参考代码: For j = i + 1 To 60 Private Sub cmdDate_Click() c(j) = b(n) Label1.Caption = Date n = n + 1 End Sub Next Private Sub cmdTime_Click() Exit For Label1.Caption = Time End If End Sub If n > 30 Then 步骤3:按要求将文件保存至考生文件夹中。 For j = i + 1 To 60 【主要考点】Date函数、Time函数。 c(j) = a(m) 二、简单应用题 m = m + 1 第1小题 Next End If 式为: Exit For 【审题分析】判断整数A能被整数B整除的条件表达 A Mod B=0。本题源程序在"计算数据"的单击事件过Next 程中，通过For循环逐一判断单选按钮数组中的每个元素是步骤2:按要求将文件保存至考生文件夹中。 否选中，用变量y记录选中单选按钮所标识的数字，并调用步骤3:按<F5>运行程序，先单击"读数"按钮，接着过程"calc"计算满足条件的正整数。 考前复习必看资料:PiaoMo整理 —13— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 在过程"calc"中，通过Do循环依次判断大于文本框中参考代码: n = n – 1 数的正整数是否能被变量y整除，将能被整除的前5个数添 stud(n).Num = txtNum 加到列表框Lst1中。 For k = j To n 【操作步骤】 If stud(k).Average > stud(j).Average Then 步骤1:打开考生文件下的本题工程文件vbsj3.vbp， stud(k) = stud(j) 在代码编辑窗口，去掉程序中的注释符"’"，将问号","改为 步骤2:按要求将文件保存至考生文件夹中。 正确的 —14— 第1小题 【知识点播】?窗体的标题是由其Caption属性设置，窗体的MaxButton 属性、MinButton 属性决定其标题栏是否显示最大化、最小化按钮，True表示显示，False表示不显示。此外，通过修改窗体的BorderStyle属性(用于设置边框样式)，也可实现窗体标题栏是否显示最大化、最小化按钮的效果， 其中值设置为3时窗体具有固定大小，包含左侧控制框和标题栏，但没有最大化、最小化按钮。?程序运行时，通常用单击命令按钮的方式来选中某个按钮，为了能够在按<Enter>键时也选中这个命令按钮，可将其Default属性设置为True，某些情况下为了能够在按<Esc>键时也能选中按钮，则需要将命令按钮的Cancel属性设置为True。 【审题分析】本题只需按题目要求画出标签、命令按钮控件并设置其和窗体相应属性。 【操作步骤】 步骤1:新建一个"标准EXE"工程，按表1在窗体中画出控件并设置其相关属性。 表 1 步骤2:按要求将文件保存至考生文件夹中。 【特别提示】为使两个控件的大小相同，还可在选中控件后执行【格式】?【统一尺寸】?【两者都相同】命令。 【主要考点】窗体、命令按钮。 第2小题 【知识点播】?Alignment属性用于确定文本框中文本的放置方式，其值可以设置为0(靠左，默认)、1(靠右)或2(居中)。?FontSize属性用来将文本格式设置成相应的字号。 【审题分析】本题需分别在三个命令按钮的Click事件过程中，设置文本框的Alignment属性为对应值。 【操作步骤】 步骤1:新建一个"标准EXE"工程，按表2在窗体中画出控件并设置其相关属性。 表 2 步骤2:在代码编辑窗口，分别编写3个按钮的单击事 件过程。 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 参考代码: 其移动的语句为:Shape1.Move Shape1.Left + stepx, Private Sub cmdLeft_Click() Shape1.Top +stepy。 txtComputer.Alignment = 0 【操作步骤】 End Sub 步骤1:打开考生文件下的本题工程文件vbsj5.vbp，Private Sub CmdCenter_Click() 在代码编辑窗口，去掉程序中的注释符"’"，将问号","改为 txtComputer.Alignment = 2 正确的 txtComputer.Alignment = 1 stepy = a * stepx End Sub Timer1.Enabled = True 步骤3:按要求将文件保存至考生文件夹中。 Timer1.Enabled = False 二、简单应用 题 Shape1.Move Shape1.Left + stepx, _ 第1小题 Shape1.Top +stepy 【审题分析】本题在txtPwd_Change事件过程中，根步骤2:按要求将文件保存至考生文件夹中。 据"显示密码"复选框是否被选中(即chkShow.Value属性值第105套上机答案解析 是否为1)，来决定文本框txtChar中的字符是否被屏蔽。其一、基本操作题 中，屏蔽时将文本框的PasswordChar属性值设置为字符"#"，第1小题 取消屏蔽时将文本框的PasswordChar属性值设置为空字符【知识点播】列表框的Sorted属性用于指定控件的项串。文本框txtPwd中输入的密码要同步显示在文本框txtChar目是否自动按字母表顺序排序。 中，需使用语句:txtchar.Text=txtPwd.Text 【审题分析】本题的考核要求有两项:?画列表框控【操作步骤】 件并设置其相关属性;?通过属性窗口按指定顺序输入列步骤1:打开考生文件下的本题工程文件vbsj3.vbp，表项。 在代码编辑窗口，去掉程序中的注释符"’"，将问号","改为【操作步骤】 正确的 txtChar.PasswordChar = "" Else txtChar.PasswordChar = "#" End If txtChar.Text = txtPwd.Text :按要求将文件保存至考生文件夹中。 步骤2 第2小题 【审题分析】根据题意，本题在加载窗体的初始化设步骤2:按要求将文件保存至考生文件夹中。 置中，将隐藏除第1个图片框(Picture1(0))外的所有图片第2小题 框，故在Form_Load事件过程中的,处应改为:False。 【审题分析】本题只需在3个单选按钮的Click事件过 单击"开始"按钮的作用是启动计时器，故程中，分别为文本框的Text属性赋予相应Picture1(k).Visible = False 步骤2: 在代码编辑窗口，编写三个单选按钮的单击Timer1.Enabled = True 事件过程。 If i = 8 Then 参考代码: i = 0 Private Sub Opt1_Click() 步骤3:按要求将文件保存至考生文件夹中。 Txt1.Text = "故宫" 三、综合操作题 End Sub 【知识点播】Sgn(N)符号函数用于返回一个表示N的正、负Private Sub Opt2_Click() 或0的值。N>0，返回1;N=0，返回0;N<0，返回-1。 Txt1.Text = "兵马俑" 【审题分析】本题在窗体的鼠标按下事件过程中，若End Sub 按下的是鼠标左键，则通过计算得出圆心的坐标。若圆心Private Sub Opt3_Click() 与当前鼠标按下点位于同一竖线上时(即x = x0)，则设定 Txt1.Text = "都江堰" 实心圆纵向移动增量为stepy = Sgn(y - y0) * 50，横向移动增End Sub 量则为0(即stepx =0);否则设定实心圆横向移动增量为步骤3:按要求将文件保存至考生文件夹中。 stepx = Sgn(x - x0) * 50，并根据斜率a计算出纵向移动增量:二、简单应用题 stepy =a * stepx，若计算出的纵向移动增量stepy绝对值大于第1小题 横向移动增量绝对值stepx，则重新设定实心圆纵向移动增【审题分析】本题其实就是根据所选运算符计算两个量为stepy = Sgn(y - y0) * 50，计算出横向移动增量stepx = 水平滚动条产生值的结果。题目源程序利用一个For循环语stepy/a，以防止实心圆移动速度不均。启动计时器Timer1句逐一判断单选按钮数组中各元素是否选中，若选中则用(设置其Enabled属性值为True)，利用其Timer事件过程控变量opt记录下所选项的标题;接下来则根据opt可能出现的制实心圆 移动。 不同值，用Select Case语句分别做出处理;最后将运算表达 根据计算出的实心圆横向移动增量和纵向移动增量，式及结果显示在标签Lab4上。 考前复习必看资料:PiaoMo整理 —15— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 【操作步骤】 步骤1:打开考生文件中的本题工程文件vbsj3.vbp，第106套上机答案解析 一、基本操作题 在代码编辑窗口，去掉程序中的注释符"’"，将问号","改为正确的 Exit Sub End If For i = 2 To n / 2 If IsPrime(i) = True And IsPrime (n - i) Then Lbl1.Caption = i Lbl2.Caption = n - i Exit For End If Next 步骤2:按要求将文件保存至考生文件夹中。 步骤3:按<F5>运行程序，在文本框中输入23456，单击"分解为"按钮。 —16— 考前复习必看资料:PiaoMo整理 第1小题 【知识点播】?控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有唯一的索引号(Index)，即下标。要将一组相同类型的控件改为控件数组，只需将它们的名称改为同一个名称，再将其Index属性分别设置为不同值即可。?添加控件数组的方法是:先通过工具箱建立第1个控件，然后对该控件进行"复制"、"粘贴"操作，粘贴时在弹出的对话框中选择建立控件数组，这时控件数组的Index值会自动从0开始编号。 【审题分析】本题只需按题目要求在窗体中画一个单选按钮控件数组，并将"选项2"单选按钮的Value属性设置为True即可。 【操作步骤】 步骤1:新建一个"标准EXE"工程，单击工具箱中的OptionButton控件图标，在窗体Form1上拉出一个单选按钮，在属性设置窗口中该单选按钮名称设置为Opt1。 步骤2:选中Opt1控件，选择【编辑】?【复制】命令，然后选择【编辑】?【粘贴】命令，在弹出的询问是否建立控件数组的对话框中，选择"是"按钮，如图1所示，则可以建立Opt1控件数组的第2个元素。再次选择【编辑】?【粘贴】命令，建立Opt1控件数组的第3个元素。 图1 步骤3:依次选中Opt1控件数组中各个元素，设置它们的相关属性，属性及值 如表1所示。 表 1 :按要求将文件保存至考生文件夹中。 步骤4 【考试误区】控件数组元素的索引号(下标)默认从0开始。 【主要考点】控件数组、单选按钮。 第2小题 【知识点播】?滚动条分为水平滚动条(HscrollBar)和垂直滚动条(VscrollBar)两种，常用来提供简便的定位或用于取代数据的键盘输入。通过调整滚动条滑块的位置即可改变其Value属性的值，滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的取值范围，在程序中改变Value属性的值，滚动条滑块会随之移动到相应位置。LargeChange属性用于设置当点击滚动条滑块与两侧箭头间区域时Value属性值的改变量，SmallChange属性用于设置当点击滚动条两侧箭头时Value属性值的改变量。?滚动条滑块位置改变时将触发其Change事件。 【审题分析】要在程序运行时，移动滚动条上的滑块就能使标签向相应的方向移动，只需在滚动条的Change事件过程中编写利用滚动条的Value属性值来决定标签的Left属性值的语句即可。 【操作步骤】 步骤1:新建一个"标准EXE"工程，在窗体Form1中加入一个水平滚动条和一个标签，在属性设置窗口中设置其相关属性，其属性及值如表2所示。 表2 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 Pic1.Print "选择了" & optVehicle _ (a).Caption 步骤4:按<F5>键运行程序，选择不同选项，单击"显示"按钮，结果如图3所示。 步骤2:双击窗体Form1上的水平滚动条，打开代码编辑窗口，在其Change事件过程中输入以下代码: 参考代码: Private Sub Hsb1_Change() Lbl1.Left = Hsb1.Value End Sub 步骤3:按要求将文件保存至考生文件夹中。 【主要考点】滚动条。 二、简单应用题 第1小题 【审题分析】本题通过计时器来控制火箭移动。单击"发射"按钮时启动计时器，在计时器的Timer事件过程中，如果火箭尚未抵达云层(即Pic1.Top > Pic2.Top + Pic2.Height)，则通过Move方法，使火箭(图片框Pic1)每次加速上移，否则通过停止计时器来停止火箭上移。 【操作步骤】 步骤1:打开考生文件中的本题工程文件vbsj3.vbp，设置计时器的Enabled属性值为False，Interval属性值为100。 步骤2:在代码编辑窗口，去掉程序中的注释符"’"，将问号","改为正确的 —17— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 步骤2:按要求将文件保存至考生文件夹中。 【主要考点】文本框控件。 第2小题 【知识点播】列表框控件(ListBox)用于显示可供单 一或多个选择的列表项，给列表框添加列表项既可以在设 计阶段通过其List属性设置加入，也可在程序运行时使用 AddItem方法加入。在程序运行时删除列表框中的项目可以 使用RemoveItem方法，其语法为:列表框.RemoveItem 索 引值。其中，"索引值"可以指定插入项在列表框中的位置， 从0开始计数。 【审题分析】单击列表框中的某个项目，将触发其 Click事件。要实现单击列表框中的某一项，该项就从列表 中消失的功能，只需在Click事件过程中编写删除项目的语 句即可。列表框的ListIndex属性可返回当前选择的项目的索 引号，因此删除选中项目的语句为: Lst1.RemoveItem Lst1.ListIndex。 【操作步骤】 步骤1:新建一个"标准EXE"工程，在窗体Form1中加 入一个列表框，在属性设置窗口中将其Name属性设置为 lstCity，在其List属性中添加四个项目，依次为"北京"、"上 海"、"天津"和"重庆"。注意:每输入完一项后按<Ctrl+Enter> 键换行再输入下一项。 步骤2:打开代码编辑窗口，编写列表框的Click事件 过程: 参考代码: Private Sub lstCity_Click() lstCity.RemoveItem lstCity.ListIndex End Sub 步骤3:按要求将文件保存至考生文件夹中。 【考试误区】本题应编写列表框控件的Click事件;同 时注意，删除某一列表项使用RemoveItem，而不是Cls方法。 【主要考点】本题考查考生对列表框控件的掌握。 二、简单应用题 第1小题 KeyPreview属性用于设置是否在控件 【知识点播】? 的键盘事件之前激活窗体的键盘事件，键盘事件有 KeyDown、KeyUp和KeyPress。?KeyDown(KeyCode As Integer,Shift as Integer)事件是在对象具有焦点时，按下键盘上的键时触发该对象的事件，其中KeyCode参数是表示所按 键的位置信息的代码，Shift参数代表按键时Shift、Ctrl、Alt键的状态。 【审题分析】本题程序设计思路:在窗体的KeyDown事件过程中，先后用两个If语句判断当前键盘上按下的是否是<A>键或<D>键，若是<A>键则通过输入框输入 —18— For i = 0 To Lst1.ListCount - 1 If Lst1.List(i) = Txt1.Text Then st1.RemoveItem i 步骤3:按要求将文件保存至考生文件夹中。 【特别提示】窗体的KeyPreview属性值必须设置为True才能响应键盘事件。 【主要考点】KeyDown事件、列表框控件、For循环 语句。 第2小题 【知识点播】?某容器(如窗体和框架)中的单选按钮(OptionButton)组常用于提供多个选项间的唯一选择，其Value属性用于设置或返回每个单选按钮的选中状态:值为False时表示未被选中，值为True时表示被选中，其Caption属性来设置或返回单选按钮的标题 If Opt1.Value = True Then If Opt3.Value = True Then Txt1.Text ="我是"+Opt1.Caption + Opt3.Caption Else Txt1.Text="我是"+Opt1.Caption+ Opt4.Caption End If Else If Opt3.Value = True Then 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 Txt1.Text="我是"+Opt2.Caption+ Opt3.Caption 【主要考点】复选框控件数组。 Else 第2小题 Txt1.Text="我是"+Opt2.Caption+ Opt4.Caption 【审题分析】双击列表框中的某个项目，将触发其 End If DblClick事件，要实现双击列表框中的某一项，即在标签中 End If 显示出列表框中的所有项目数，只需在DblClick事件过程中End Sub 编写代码，将Lst1.ListCount的值显示在标签上即可。 步骤4:按要求将文件保存至考生文件夹中。 【操作步骤】 【考试误区】在一个容器中的多个单选按钮只能有一步骤1:新建一个"标准EXE"工程。 个被选中，由此分出不同分支，理清思路是关键。 步骤2:在窗体Form1中加入一个标签和一个列表框，【主要考点】本题主要考查考生对单选按钮并分 别设置它们的相关属性，其属性及值如表2所示。 (OptionButton)，以及用If语句编程的综合运用情况，代码表2 需考生完全自己编写，难度较大。 三、综合操作题 【审题分析】设计思路:通过For循环逐一判断数组a 的每一个元素是否能被3整除。每找到一个3的倍数，则将 记录数组b元素个数的变量num增1，并将当前数组元素a(i) 步骤3:打开代码编辑窗口，从窗口上方的"对象"下的值赋予数组元素b(num)，从而生成数组b。 拉列表中选择Lst1;从"过程"下拉列表中选择DblClick，在当数组b生成后，依据"冒泡法"原理，利用一个嵌套 该事件过程中输入如下代码: For循环对数组b中的元素从小到大排序。 参考代码: 【操作步骤】 Private Sub Lst1_DblClick() 步骤1:打开考生文件夹中的本题工程文件vbsj5.vbp， Lbl1.Caption = Lst1.ListCount 在代码编辑窗口指定位置编写以下代码: End Sub 参考代码: 步骤4:按要求将文件保存至考生文件夹中。 For i = 1 To 100 【主要考点】列表框控件、简单事件编程。 If a(i) Mod 3 = 0 Then 二、简单应用题 num = num + 1 第1小题 b(num) = a(i) 鼠标事件分点击事件和状态事件。点 End If 【知识点播】? Next 击事件有单击事件(Click)和双击事件(DblClick)，不区 For i = 1 To num - 1 分左右键;状态事件有按下事件(mousedown)、移动事件 For j = i To num (mousemove)和弹起事件(mouseup)。 If b(i) > b(j) Then 状态事件涉及Button、Shift两个参数:Button参数是 t = b(i) 一个整数，值可能为1(左键)、2(右键)或4(中间键); b(i) = b(j) Shift参数也是一个整数，用来代表用户是否按下<Shift>键 b(j) = t (值为1)、<Ctrl>键(值为2)、<Alt>键(值为4)或这些键 End If 的组合。 Next Next ?弹出式菜单是显示于窗体之上，独立于菜单栏的浮步骤2:按<F5>运行程序，先单击"读数"按钮，再单动式菜单。PopupMenu方法可在对象上的当前鼠标位置或指击"查找"按钮，最后单击窗体右上角的关闭按钮结束程序。 定的坐标位置显示弹出式菜单。 步骤3:按要求将文件保存至考生文件夹中。 【审题分析】要创建本题的弹出式菜单需先用菜单编 辑器来建立菜单，并将其主菜单项的可见(即Visible)属性第108套上机答案解析 值设置为False，然后在窗体的MouseDown(或MouseUp)一、基本操作题 事件过程中，判断该事件的Button参数值是否为2，若是则第1小题 执行窗体的PopupMenu方法来显示菜单。 【知识点播】复选框(CheckBox)组常用于提供多个 在相应菜单项的Click事件过程中，通过设置文本框的选项间的多重选择，Value属性值决定每个复选框的选中状 FontBold属性值、FontItalic属性值、FontStrikethru属性值和态:0,Unchecked为未选，1,Checked为选中，2,Grayed FontUnderline属性值为True，可分别将文本框中文本样式显为禁用(以灰色呈 现)。选择某复选框后，该复选框将显示 示为加粗、斜体、删除线和下划线。 "?"，而取消选择后，"?"消失。 【操作步骤】 【审题分析】本题只需按要求画出控件数组，并设置 :新建一个"标准EXE"工程，选择【工具】?【菜其Value 步骤1 属性。 单编辑器】命令，打开菜单设计器，按表3中的设置建立菜【操作步骤】 单项。 步骤1:新建一个"标准EXE"工程。 表 3 步骤2:在窗体Form1中加入一个复选框，并用"复制" 和"粘贴"的方法，生成包含4个元素的复选框数组。 步骤3:分别设置窗体和复选框数组中各元素的相关 属性，其属性及值如表1所示。 表 1 步骤2:在窗体中画一个文本框，取名为Txt1。 步骤3:打开代码编辑窗口，分别编写"加粗"、"斜体" 和"下划线"菜单项的事件过程。 参考代码: Private Sub Txt1_MouseDown(Button As _ Integer, Shift As Integer, X As _ Single, Y As Single) If Button = 2 Then Me.PopupMenu mnuFormat End If End Sub 步骤4:按要求将文件保存至考生文件夹中。 考前复习必看资料:PiaoMo整理 —19— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 Private Sub mnuFormat1_Click() 属性即可。 Txt1.FontBold = True 【操作步骤】 End Sub 步骤1:新建一个"标准EXE"工程，在窗体Form1中画Private Sub mnuFormat2_Click() 两个文本框，并分别设置它们的相关属性，其属性及值如 Txt1.FontItalic = True 表1所示。 End Sub 表 1 Private Sub mnuFormat3_Click() Txt1.FontUnderline = True End Sub :按要求将文件保存至考生文件夹中。 步骤4 【特别提示】文本框不具有PopupMenu 方法。 【主要考点】弹出式菜单、文本框。 第2小题 【审题分析】本题程序运行时，单击命令按钮，通过 Array()函数返回一个以4个文本框中的数值为元素的数组， 并赋值给数组arr1，然后使用For语句将数组arr1中每个元素 的数据类型转换为整型并赋给数组arr2具有相同下标的元步骤2:按要求将文件保存至考生文件夹中。 素，最后以数组arr2为参数调用求最大值的函数过程第2小题 FindMax。 【审题分析】要在程序运行时，移动滚动条上的滑块就在FindMax过程中，首先用变量Start 和Finish分别记能改变文本框的高度，只需在滚动条的Change事件过程中录下数组a的下界和上界，用变量Max记录下数组a第1个元编写利用滚动条的Value属性值来决定文本框Height属性值素的值。然后通过For循环让数组a中的每一个元素逐一与变的语句即可，同时将文本框Width属性值设置为其Height属量Max比较大小，当有数组元素的值大于变量Max时，将其性值的1.5倍。 赋值变量Max，最后将变量Max的值作为函数返回值。 【操作步骤】 【操作步骤】 步骤1:新建一个"标准EXE"工程，在窗体Form1中画步骤1:打开考生文件夹下的本题工程文件vbsj4.vbp，一个文本框和一个水平滚动条，在属性设置窗口中设置其在代码编辑窗口，去掉程序中的注释符"’"，将问号","改为相关属性，其属性及值如表2所示。 正确的 Txt1.Height = Hsb1.Value 7)或第二维下标为1(或7)。根据题意，可通过一个嵌套 Txt1.Width = Txt1.Height * 1.5 的For循环，将满足前述条件的数组元素累加入变量Sum，End Sub 若该数组元素能被7整除，则记录个数的变量Num增1。 步骤3:按要求将文件保存至考生文件夹中。 【操作步骤】 【主要考点】水平滚动条控件、Change事件过程。 步骤1:打开考生文件夹下的本题工程文件vbsj5.vbp，二、简单应用题 在代码编辑窗口的指定位置编写以下代码: 第1小题 参考代码: 【审题分析】在本题源码"修改"按钮的单击事件过程Dim Num As Integer 中，通过语句"txtData = Cbo1.Text"将组合框中当前选择 For j = 1 To 7 性值为True使其可用;在"确定"按钮的单击事件过程中，通 If i = 1 Or i = 7 Or j = 1 Or j = 7 Then 过语句"Cbo1.List(ListIndex) = txtData"把修改后的文本框 Sum = Sum + a(i, j) 容替换组合框中该列表项的原有 If a(i, j) Mod 7 = 0 Then Num = Num + 1 确定"按钮不可用;在"添加"按钮的单击事件过程中，用组 End If 合框的AddItem方法将文本框中的 Next Next 个项目。为使"确定"按钮初始状态时不可用，需在设计时将lblNum.Caption = Num 其Enabled属性值设置为False。 lblSum.Caption = Sum 【操作步骤】 步骤2:按<F5>运行程序，然后单击"计算"按钮。 步骤1:打开考生文件中的本题工程文件vbsj3.vbp，步骤3:按要求将文件保存至考生文件夹中。 在代码编辑窗口，去掉程序中的注释符"’"，将问号","改为第109套上机答案解析 正确的的循环切换。在"开始"按钮的单击事件过程中，将根据两个【审题分析】本题只需按要求画出控件并设置其相应 考前复习必看资料:PiaoMo整理 —20— 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 水平滚动条的Value属性值，来分别设定红灯和绿灯亮的时条，它的值为:0表示没有滚动条(默认值)，1表示只有水间数(用变量red和green记录)。在每次触发的计时器Timer平滚动条，2表示只有垂直滚动条，3表示有水平和垂直滚事件时，首先判断当前红灯是否亮(即PicR是否显示)，若动条，设置0以外的值时MultiLine属性值必须为True。 红灯亮则将设定的红灯时间red减1，并再次判断red的值是【审题分析】本题只需按要求画出控件并设置其相应否为0，若为0则红灯灭黄灯亮(即PicR不显示，PicY显示);属性即可。 如果当前是黄灯亮(即PicY显示)，则黄灯灭(即PicY不显【操作步骤】 示)，此时 ，则绿灯亮(即PicG显示)且重新设定步骤1:新建一个"标准若red为0 EXE"工程，在窗体Form1中画red，否则红灯亮(即PicR显示)且重新设定green;如果当两个文本框，并分别设置它们的相关属性，其属性及值如前是绿灯亮(即PicG显示)，则将设定的绿灯时间green减1，表1所示。 并再次判断green的值是否为0，若为0则绿灯灭黄灯亮(即表 1 PicG不显示，PicY显示)。 【操作步骤】 步骤1:打开考生文件中的本题工程文件vbsj4.vbp，在代码编辑窗口，去掉程序中的注释符"’"，将问号","改为正确的 Sum = 0 For j = 1 To 5 Sum = Sum + a(i, j) Next Avg = Sum / 5 If i = 1 Then Max = Avg ElseIf Max < Avg Then Max = Avg End If Next txtMax.Text = Max 步骤3:按要求将文件保存至考生文件夹中。 步骤4:按<F5>运行程序，先单击"读数"按钮，接着单击"计算"按钮，然后单击窗体右上角的关闭按钮结束程序。 第110套上机答案解析 一、基本操作题 第1小题 【知识点播】文本框控件的MultiLine属性设置文本框是否能以多行显示文本，值为True表示允许，值为False表示不允许;ScrollBars属性设置文本框是否有水平或垂直滚动考前复习必看资料:PiaoMo整理 — —21 步骤2:打开代码编辑窗口，编写两个命令按钮的单击事件过程。 参考代码: Private Sub Cmd1_Click() Shp1.Shape = 3 End Sub Private Sub Cmd2_Click() Shp1.BorderColor = &HFF& End Sub 步骤3:按要求将文件保存至考生文件夹中。 二、简单应用题 第1小题 【知识点播】?UCase()函数用于将字符串中小写字母转化为大写字母，原本大写或非字母字符保持不变。?LCase()函数用于将字符串中大写字母转化为小写字母，原本小写或非字母字符保持不变。?Right(字符串,个数)函数用于取出已有字符串最右边指定个数的字符串。 【审题分析】本题源程序在文本框中内容改变时(即Chage事件过程中)，通过Right函数始终取出其刚输入的字符，若该字符位于大写字母A~Z之间，则将其转换成小写字母后显示在标签Lbl1中，记录字母个数的变量n增1;反之，若该字符位于小写字母a~z之间，则将其转换成大写字母后显示在标签Lbl1中，记录字母个数的变量n增1;如果以上两种情况均不是，则将该字符直接显示在Lbl1中，最后在标签Lbl2中显示变量n的值。 【操作步骤】 全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】 ch = UCase(ch) 步骤1:打开考生文件中的本题工程文件vbsj3.vbp， End If 在代码编辑窗口，去掉程序中的注释符"’"，将问号","改为 str = str & ch 正确的 Next 参考代码: Text1.Text = str ch = Right$(Txt1.Text, 1) End Sub Lbl1.Caption = ch 步骤3:按要求将文件保存至考生文件夹中。 Lbl2.Caption = n 步骤4:按<F5>运行程序，先单击"打开文件"按钮，接着单击"步骤2:按要求将文件保存至考生文件夹中。 修改文件"按钮，然后单击"保存文件"按钮。 【主要考点】字符串函数。 第111套上机答案解析 第2小题 【审题分析】本题源程序已提供"按降序排列"命令按一、基本操作题 钮的单击事件过程，只需完善自定义过程Sort。在过程Sort第1小题 【审题分析】本题只需按要求画出控件并设置其相关中，源程序利用变量Start和Finish分别记录下数组a的下界和 属性即可。 上界，故第1个,处应为LBound，第2个,处应为UBound; 源程序利用一个嵌套的For循环来一一比较数组中相邻两元【操作步骤】 步骤1:新建一个"标准EXE"工程，按表1在窗体中画素的大小，并始终使前一元素沿用最大值(冒泡法)，其中 出控件并设置其相关属性。 外循环的循环变量i由大到小，故第3个,处应为Finish，外 表 ，根 1 循环的循环变量j由小到大，故第4个,处应为Finish-1 据前述第5个,处应为<。 【操作步骤】 步骤1:打开考生文件中的本题工程文件vbsj4.vbp， 在代码编辑窗口，去掉程序中的注释符"’"，将问号","改为 正确的For i = Finish To 2 Step -1 步骤2:按要求将文件保存至考生文件夹中。 For j = 1 To Finish – 1 【主要考点】水平滚动条、标签。 If a(j) < a(j + 1) Then 第2小题 步骤2:按要求将文件保存至考生文件夹中。 【知识点播】形状控件 1,Transparent-透明、的FillStyle用于设置其填充样【主要考点】冒泡法。 式， 0,Solid-实线、2,Horizontal Line-三、综合操作题 水平线、3,Vertical Line-垂直线、4,Upward Diagonal-向【审题分析】根据题目源程序，要使单击"打开文件"上对角线、5,DownWard Diag-向下对角线、6,Cross-交叉按钮时，弹出的"打开"对话框中默认文件类型为"文 2 "E"、"N"、"T"改为小写，把小写字母"e"、"n"、"t"改为大 写，可在"修改文件"按钮的单击事件过程中，通过For循环 用Mid函数逐一取出文本框Text1中的每个字符放入一个变 量(如ch)中，假如取出的字符是大写字母"E"、"N"、"T"， 则用Lcase函数将其转换为小写;若取出的字符是小写字母 "e"、"n"、"t"，则用Ucase函数将其转换为大写。最后将该 变量中的字符用"&"连入一个字符串变量(如str)中。循环结 步骤2:在代码编辑窗口编写两个命令按钮的单击事束时，将str的值重新显示在Text1中。 件过程。 【操作步骤】 参考代码: 步骤1:打开考生文件中的本题工程文件vbsj5.vbp， Private Sub Cmd1_Click() 在代码编辑窗口，去掉程序中的注释符"’"，将问号","改为 Shp1.FillStyle = 3 正确的 Shp1.FillStyle = 2 Open CommonDialog1.FileName For Input As #1 End Sub Text1.Text = s 步骤3:按要求将文件保存至考生文件夹 中。 CommonDialog1.Action = 2 二、简单应用题 步骤2:按指定位置编写"修改文件"的单击事件过程。 第1小题 参考代码: 【知识点播】? KeyPress(KeyAscii As Integer) 事件是Private Sub Command2_Click() 在对象具 有焦点时，按下键盘上的键时触发的事件，’ 考生需要编写的程序 KeyAscii参数是所按键的ASCII的代码，将每个字符的大、 Dim ch As String Dim str As String 小写形式作为不同的键代码解释。Asc()函数可返回字符的 str = "" ASCII码值，该值可以进行数学运算。?数字0~9的ASCII For i = 1 To Len(Text1.Text) 码范围为48~57，大写字母A~Z的ASCII码范围为 65~90，小 ch = Mid(Text1.Text, i, 1) 写字母a~z的ASCII码范围为 97~122，空(NUL)的ASCII If ch="E" Or ch="N" Or ch="T" Then 码为0。?组合框的列表项既可以在设计阶段通过其 List属 ch = LCase(ch) 性设置加入(注意:每输入完一项后按 <Ctrl+Enter>键换行 ElseIf ch="e" Or ch="n" Or ch="t" Then 考前复习必看资料:PiaoMo整理 —22—