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

2013年9月全国计算机等级考试二级VB无纸化上机题题库题干及答案解析(3) 第四十一套题干206 一、基本操作题 请根据以下各小题的要求 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 Visual Basic应用程序(包括界面和代码)。 (1)在Form1的窗体上画一个文本框，名称为Text1。画一个命令按钮，名称为C1，标题为"显示"，TabIndex属性为0。请为C1设置适当的属性，使得按Esc键时，可以调用C1的Click事件，该事件过程的作用是在文本框中显示"等级考试"，程序运行结果如图1所示。 注意:存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。程序中不得使用任何变量。 图1 (2)在Form1的窗体上画一个名称为Text1的文本框，然后建立一个主菜单，标题为"操作"，名称为Op，该菜单有两个子菜单，其标题分别为"显示"和"隐藏"，名称分别为Dis和Hid，编写适当的事件过程。程序运行后，如果单击"操作"菜单中的"显示"命令，则在文本框中显示"等级考试";如果单击"隐藏"命令，则隐藏文本框。程序的运行情况如图2所示。 注意:存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。程序中不得使用任何变量。 图2 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp，请在窗体上画两个框架，其名称分别为F1和F2，标题分别为"交通工具"和"到达目标"。在F1中画两个单选按钮，名称分别为Op1和Op2，标题分别为"飞机"和"火车"。在F2中画两个单选按钮，名称分别为Op3和Op4，标题分别为"广州"和"昆明"。然后画一个命令按钮，其名称为C1，标题为"确定"。再画一个标签，其名称为Lab1。编写适当的事件过程。程序运行后，选择不同的单选按钮并单击"确定"按钮后在标签框中显示结果见表1。 表 1 程序的运行情况如图3所示。存盘时，工程文件名为 sjt3.vbp，窗体文件名为sjt3.frm。 注意:考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的关闭按钮。 图3 (2)在考生文件夹下有一个工程文件sjt4.vbp，请在窗体上画三个文本框，其名称分别为Text1、Text2和Text3，文本框 —1— 框中内容与Text2文本框中的内容进行交换，并在Text3文本框中显示"交换成功";如果选中"连接"单选按钮并单击窗体，则把Text1和Text2的内容按Text1在前、Text2在后的顺序连接起来，并在Text3文本框中显示连接后的内容。存盘时，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。 注意:不得修改已经给出的程序。在结束程序运行之前，必须选中一个单选按钮，并单击窗体。退出程序时必须通过单击窗体右上角的关闭按钮，否则无成绩。 图4 三、综合操作题 在考生文件夹下有一个工程文件sjt5.vbp，相应窗体文件为sjt5.frm，还有一个datain.txt文 程序运行后，单击窗体，将把文件datain.txt中的数据输入到二维数组Mat中，在窗体上按5行、5列的矩阵形式显示出来，然后交换矩阵第一行和第三行的数据，并在窗体上输出交换后的矩阵，如图5所示。在窗体的代码窗口中已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。 要求:去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 图5 第四十二套题干207 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1、标题为"列表框练习"的窗体上画一个名称为List1的列表框，表项内容依次输入xxx、ddd、mmm和aaa，且以宋体14号字显示表项内容，如图1(a)所示。最后设置相应属性，使运行后列表框中的表项按字母升序方式排列，如图1(b)所示。 注意:存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。 (a) (b) 图1 (2)在名称为Form1的窗体上，画一个名称为Label1的标签，其标题为"计算机等级考试"，字体为宋体，字号为12号，且能根据标题内容自动调整标签的大小。再画两个名称分别为Command1、Command2，标题分别为"缩小"和"还原"的命令按钮(如图2所示)。 要求:编写适当的事件过程，使得单击"缩小"按钮，Label1中所显示的标题内容自动减小两个字号;单击"还原"按钮，Label1所显示的标题内容的大小自动恢复到12号。 注意:存盘时，将文件保存至考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。 图2 二、简单应用题 (1)考生文件夹下的工程文件sjt3.vbp中有一个初始 —2— ?单击"计算"按钮，则自动统计二维数组a中各行的平均数，并将这些平均数中的最大值显示在Text2文本框内。 "读数据"按钮的Click事件过程已经给出，请编写"计算"按钮的Click事件过程实现上述功能。 注意:考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须用"计算"按钮进行计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 图5 第四十三套题干208 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上建立一个主菜单，标题为"操作"，名称为Op，该菜单有两个子菜单，其标题分别为"显示"和"清除"，其名称分别为Dis和Clear，编写适当的事件过程。程序运行后，如果单击"操作"菜单中的"显示"命令，则在窗体上显示"等级考试";如果单击"清除"命令，则清除窗体上显示的内容。程序的运行情况如图1所示。 注意:存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 图1 (2)在名称为Form1的窗体上画一个标签，其名称为Lab1;再画一个列表框， 其名称为L1，通过属性窗口向列表框中添加若干项目，每个项目的具体内容不限，编写适当的事件过程。程序运行后，如果双击列表框中的任意一项，则把列表中的项目数在标签中显示出来。程序运行情况如图2所示。程序中不得使用任何变量。注意:存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 图2 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp，请在窗体上画两个框架，其名称分别为F1和F2，标题分别为"交通工具"和"到达目标"。在F1中画两个单选按钮，名称分别为Op1和Op2，标题分别为"汽车"和"轮船"。在F2中画两个单选按钮，名称分别为Op3和Op4，标题 "和"大连"。画一个文本框，其名称为Text1。分别为"青岛 编写适当事件过程。程序运行后，选择不同单选按钮并单击文本框后在文本框内显示结果见表1。 表 1 程序的运行情况如图3所示。存盘时，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。 注意:考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的关闭按钮的方式。 图3 (2)在考生文件夹下有一个工程文件sjt4.vbp，请在窗体上画两个文本框，其名 称分别为Text1、Text2，文本框 —3— 为sjt1.vbp，窗体文件名为sjt1.frm。 图1 图2 (2)在Form1的窗体上画一个列表框，名称为L1，通过属性窗口向列表框中添加四个项目，分别为"AAAA"、"BBBB"、"CCCC" 和"DDDD"，编写适当的事件过程。程序运行后，如果单击列表框中的某一项，则该项就从列表框中消失。程序的运行情况如图2所示。 注意:存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp，请在窗体上画两个框架，其名称分别为F1和F2，标题分别为"交通工具"和"到达目标"。在F1中画两个单选按钮，名称分别为Op1和Op2，标题分别为"飞机"和"火车"。在F2中画两个单选按钮，名称分别为Op3和Op4，标题分别为"广州"和"昆明"。然后画一个命令按钮，其名称为C1，标题为"确定"。再画一个文本框，其名称为Text1。编写适当事件过程。程序运行后，选择不同单选按钮并单击"确定"按钮后在文本框中显示结果见表1。 表 1 程序的运行情况如图3所示。存盘时，工程文件名为 sjt3.vbp，窗体文件名为sjt3.frm。 注意:考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的关闭按钮。 图3 (2)在考生文件夹下有一个工程文件sjt4.vbp，如图4所示，请在窗体上画三个文本框，其名称分别为Text1、Text2和Text3，文本框内容分别设置为"等级考试"、"计算机"和空白。然后画两个单选按钮，其名称分别为Op1和Op2，标题分别为"交换"和"连接"，编写适当的事件程序。要求在程序运行时，先单击"交换"单选按钮，使Text1文本框中内容与Text2文本框中的内容进行交换，并使"交换"单选按钮消失;然后单击"连接"单选按钮，则把交换后的Text1和Text2的内容以Text1在前、Text2在后的顺序连接起来，并在Text3文本框中显示连接后的内容。存盘时，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。 注意:不得修改已经给出的程序。在结束程序运行之前，必须先单击"交换"单选按钮，后单击"连接"单选按钮。退出程序时必须通过单击窗体右上角的关闭按钮，否则无成绩。 图4 三、综合操作题 在考生文件夹下有一个工程文件sjt5.vbp，请先装入该工程文件，然后完成以下操作:在名称为Form1的窗体上画三个命令按钮，其名称分别为C1、C2和C3，标题分别为"读入数据"、"计算"和"存盘"(如图5所示)。程序运行后， 如果单击"读入数据"按钮，则利用题目中提供的ReadData1、ReadData2过程读入datain1.txt和datain2.txt文件中的各20个整数，分别放入两个数组Arr1和Arr2中;如果单击"计算"按钮，则把两个数组中对应下标的元素相加，其结果放入第三个数组中(即第一个数组的第n个元素与第二个数组的第n个元素相加，其结果作为第三个数组的第n个元素。这里的n为1，2，…，20)，最后计算第三个数组各元素之和，并把所求得的和在窗体上显示出来;如果单击"存盘"按钮，则调用题目中给出的WriteDate过程将计算结果存入考生文件夹下的dataout.txt文件中。 注意:请仔细阅读已有程序。考生不得修改窗体文件中已经存在的程序，必须把求得的结果单击"存盘"按钮存入考生文件夹下的dataout.txt文件中，否则没有成绩。最后把修改后的文件以原来的文件名存盘。 图5 第四十五套题干210 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)请在名称为Form1的窗体上建立一个二级下拉菜单，第一级共有两个菜单项，标题分别为"文件"、"编辑"，名称分别为file、edit;在"编辑"菜单下有第二级菜单，含有三个菜单项，标题分别为"剪切"、"复制"、"粘贴"，名称分别为cut、copy、paste。其中"粘贴"菜单项设置为无效(如图1所示)。 注意:存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 图1 (2)在窗体上画两个文本框，名称分别为Text1、Text2。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，如果在Text1中每输入一个字符，则显示一个"*"，同时在Text2中显示输入的 —4— 程序设计"、"数据库原理";然后画一个文本框，名称为Text1;再画一个命令按钮，名称为C1，标题为"确定"(如图4所示)。请编写适当的事件过程，使得在运行时，选中复选框并单击"确定"按钮，就可以按照下表的要求把结果显示在文本框中。存盘时，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。 注意:考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须进行产生表1一个结果的操作。 表 1 图4 三、综合操作题 在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有两个文本框，名称分别为Text1、Text2;还有三个命令按钮，名称分别为C1、C2、C3，标题分别为"输入"、"计算"、"存盘"(如图5所示)。并有一个函数过程isprime(a)可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。请编写适当的事件过程，使得在运行时，单击"输入"按钮，就把文件in5.txt中的整数放入Text1中;单击"计算"按钮，则找出大于Text1中的整数的第一个素数，并显示在Text2中;单击"存盘"按钮，则把Text2中的计算结果存入out5.txt文件中。 注意:考生不得修改isprime函数过程和控件的属性，必须把计算结果通过单击"存盘"按钮存入out5.txt文件中。 图5 第四十六套题干211 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1、标题为"框架练习"的窗体上画一个名称为Frame1、标题为"字体"的框架控件;在框架中画两个单选按钮，名称分别为Option1、Option2，标题分别为"宋体"、"黑体"，标题在单选按钮的左边。运行后的窗体如图1所示。 注意:存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。 图1 (2)在名称为Form1窗体上，画一个名称为Image1的图像框，在其中显示考生文件夹下的图片"pic2.jpg"，并设置适当属性使得图像框尺寸变化时图片尺寸可随之变化。再画一个水平滚动条和一个垂直滚动条，名称分别为HScroll1、VScroll1，它们的刻度范围都是1,3。如图2(a)所示。要求如下: ?定义两个窗体级变量:length、high，并编写窗体的Form_Load事件过程，使length、high分别等于图像框的宽、高; ?编写适当的事件过程，使得移动两个滚动条上的滚动块时，以刻度值作为图像框初始尺寸的倍数改变图像框相应方向的尺寸。例如:HScroll1的滚动块在刻度值为2的 位置时，图像框的宽为初始宽度的2倍。如图2(b)所示。对于垂直滚动条也相同。 注意:存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。要求程序中的两个变量必须是length、high，此外不能再使用其他变量，除Form_Load事件过程外，其他每个事件过程中只能写一条语句。 (a) (b) 图2 二、简单应用题 (1)考生文件夹下的工程文件sjt3.vbp中有一个菜单、两个标签和两个文本框。程序运行时，用鼠标右键单击窗体会弹出一个弹出式菜单(如图3所示)。当选中"计算100以内自然数之和"菜单项时，将计算100以内自然数之和并放入Text1中;当选中"计算7～"菜单项时，将计算7～并放入Text2中。在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把,改为正确的内容，以实现上述程序功能。 注意:考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 图3 (2)考生文件夹下的工程文件sjt4.vbp中有如图10-4所示的控件。程序功能如下:程序运行时，在Text1中输入一个商品名称，在Text2中输入一个数量，单击"计算"按钮，则会在列表框中找到该商品的单价，乘以数量后显示在Text3中(如图4所示);若输入的商品名称是错误的，则在Text3中显示"无此商 (含小数点))。请将事件过品"(为方便编程，列表框中的每个单价均为4位 程中的注释符去掉，把,改为正确的内容，以实现上述程序功能。 注意:考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 图4 三、综合操作题 考生文件夹下的工程文件sjt5.vbp中的窗体如图5所示。考生文件夹下的随机文件in5.dat中有20条记录，每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype，此类型变量可以存放一条记录。要求如下: ?请为"计算最大最小值"按钮编写Click事件过程，其功能是:读取文件中的记录，计算每人的总分，找出其中最大总分和最小总分，分别放入变量maxval，minval中(这两个变量已经给出，不得修改)。 ?运行程序，单击"计算最大最小值"按钮后再单击"存盘"按钮。 注意:考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须依次单击"计算最大最小值"、"存盘"按钮，否则无成绩。最后，程序按原文件名存盘。 —5— 图5 第四十七套题干212 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1、标题为"框架"的窗体上画一个名称为Frame1，且没有标题的框架。框架内含有两个单选按钮，名称分别为Opt1和Opt2、标题分别为"字体"、"大小"，如图1所示。 注意:存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 图1 (2)考生文件夹下的工程文件sjt2.vbp中有一个由直线Line1、Line2和Line3组成的三角形，直线Line1、Line2和Line3的坐标值见表1: 表 1 要求画一条直线Line4以构成三角形的高，且该直线 的初始状态为不可见。再画两个命令按钮，名称分别是Cmd1、Cmd2，标题分别为"显示高"、"隐藏高"，如图2所示。请编写适当的事件过程，使得在运行时，单击"显示高"按钮，则显示三角形的高;单击"隐藏高"按钮，则隐藏三角形的高。 注意:要求程序中不得使用变量，每个事件过程只能写一条语句。不得修改已经存在的控件，最后将修改后的文件按原文件名存盘。 图2 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp，在Form1的窗体中有一个文本框、两个命令按钮和一个计时器。程序的功能是在运行时，单击"开始计数"按钮，就开始计数，每隔1秒，文本框中的数加1;单击"停止计数"按钮，则停止计数(如图3所示)。要求:修改适当的控件的属性，并去掉程序中的注释符，把程序中的,改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件以原来的文件名存盘。 图3 (2)已知出租车行驶不超过4千米时一律收费10元。超过4千米时分段处理，具体处理方式为:15千米以内每千米加收1.2元，15千米以上每千米收1.8元。在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是:单击"输入"按钮，将弹出一个输入对话框，接收出租车行驶的里程数;单击"计算"按钮，则可根据输入的里程数计算应付的出租车费，并将计算结果显示在名称为Text1的文本框内。 在窗体文件中已经给出了全部控件(如图4所示)，但程序不完整，要求去掉程序中的注释符，把程序中的,改为正确的 图2 (2)在名称为Form1的窗体上画一个名称为Image1的图像框，有边框，并可以自动调整装入图片的大小以适应 图像框的尺寸;再画三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为"红桃"、"黑桃"、"清除"。在考生目录下有两个图标文件，其名称分别为"Misc34.ico" 和"Misc37.ico"。程序运行时，单击"红桃"按钮，则在图像框中显示红桃图案(即Misc34.ico文件，如图2所示);单击"黑桃"按钮，则在图像框中显示黑桃图案(即Misc37.ico文件);单击"清除"按钮，则清除图像框中的图案。请编写相应控件的Click事件过程，实现上述功能。 注意:要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有一个标题为"得分"的框架，在框架中有一个名称为Text1的文本框数组，含六个元素;文本框Text2用来输入难度系数。程序运行时，在左边的六个文本框中输入6个得分，输入难度系数后，单击"计算分数"按钮，则可计算出最后得分并在文本框Text3中显示(如图3所示)。 计算方法:去掉一个最高得分和一个最低得分，求剩下得分的平均分，再乘以3，再乘以难度系数。最后结果保留到第2位小数，不四舍五入。 注意:文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的,改为正确的 —7— 不得修改原有程序和控件的属性。最后把修改后的文件按原文件名存盘。 图5 第五十套题干215 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1、标题为"练习"的窗体上画一个名称为Frame1、标题为"效果"的框架。框架内含有三个复选框，其名称分别为Chk1、Chk2和Chk3，标题分别为"倾斜"、"加粗"和"下划线"。运行后的窗体如图1所示。 要求:存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 图1 图2 (2)在名称为Form1的窗体上画一个名称为Label1的标签，其初始内容为空，且能根据指定的标题内容自动调整标签的大小;再画两两个命令按钮，标题分别是"日期"和"时间"，名称分别为Command1、Command2。请编写两个命令按钮的Click事件过程，使得单击"日期"按钮时，标签内显示系统当前日期;单击"时间"按钮时，标签内显示系统当前时间，如图2所示。 要求:程序中不得使用变量，每个事件过程中只能写一条语句。 注意:存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp，其功能是: ?单击"读数据"按钮，则把考生文件夹下in3.dat文件中的100个正整数读入数组a中。 ?单击"计算"按钮，则找出这100个正整数中的所有完全平方数(一个整数若是另一个整数的平方，那么它就完全平方数。例如，36,62，所以36就是一个完全平方数)，并计算这些完全平方数的平均值，最后将计算所得平均值截尾取整后显示在文本框Text1中。 在给出的窗体文件中已经有了全部控件(如图3所示)，但程序不完整，要求完善程序使其实现上述功能。 注意:考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩，最后把 修改的文件按原文件名存盘。 图3 图4 (2)在考生文件夹下有一个工程文件sjt4.vbp，其窗体上有两个命令按钮和一个计时器。两个命令按钮的初始标题分别是"演示"和"退出";计时器Timer1的初始状态为不可用。请画一个名称为Label1，且能根据显示内容自动调整大小的标签，其标题为"Visual Basic程序设计"，显示 格式 pdf格式笔记格式下载页码格式下载公文格式下载简报格式下载 为黑体小四号字。如图4所示。程序功能如下: ?单击 "演示"按钮时，则该按钮的标题自动变换为"暂停"，且标签在窗体上从左向右循环滚动，当完全滚动出窗体右侧时，从窗体左侧重新进入; ?单击 "暂停"按钮时，则该按钮的标题自动变换为" 演示"，并暂停标签的滚动。 ?单击"退出"按钮时，则结束程序运行。 要求:请去掉程序中的注释符，把程序中的,改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。 三、综合操作题 在考生文件夹下有一个工程文件sjt5.vbp，窗体上有三个文本框，其名称分别为Text1、Text2和Text3，其中Text1、Text2可多行显示。请画三个名称分别为Cmd1、Cmd2和Cmd3，标题分别为"产生数组"、"统计"和"退出"的命令按钮，如图5所示。程序功能如下: ?单击"产生数组"按钮时，用随机函数生成20个0,10之间(不含0和10)的数值，并将其保存到一维数组a中，同时也将这20个数值显示在Text1文本框内。 ?单击"统计"按钮时，统计出数组a中出现频率最高的数值及其出现的次数，并将出现频率最高的数值显示在Text2文本框内、出现频率最高的次数显示在Text3文本框内。 ?单击"退出"按钮时，结束程序运行。 请将程序中的注释符去掉，把,改为正确的内容，以实现上述程序功能。 注意:不得修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原 文件名存盘。 图5 第五十一套题干216 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1，标题为"菜单练习"的窗体上，按下表的结构建立一个下拉菜单，生成的菜单结构如图1所示。 注意:存盘时，将文件保存至考生文件夹下， 且窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。 图 1 (2)在名称为Form1的窗体上画一个名称为Text1的文本框，其初始内容为空;再画两个单选按钮，名称分别为Option1、Option2，标题分别为"参加"、"不参加"，Option1的标题在单选按钮的左边，如图2所示。当程序运行时，在Text1中输入一些文字(如"比赛")，单击Option1时，则把其标题放在输入文字的前面(如"参加比赛")，单击Option2时，则把其标题放在输入文字的后面(如"比赛不参加")。请编写适当的事件过程，完成上述功能。 注意:存盘时，将文件保存至考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。 —8— 图2 二、简单应用题 (1)考生文件夹下有工程文件sjt3.vbp，请在窗体上画一个名称为Label1的标签，它能根据标题内容自动调整大小，外观如图3所示，程序要实现以下功能:每单击按钮一次，按钮标题在"停止"、"开始"之间切换。若按钮标题为"停止"，则标签内容每2秒变换一次，内容依次是"欢迎您参加等级考试～"、"请您认真复习～"、"祝您获得好成绩～"，并循环变化。若按钮标题为"开始"，则标签内容停止变化。 已经给出了所有事件过程，但不完整，请将其中的注释符去掉，把,改为正确的内容，以实现上述功能。 注意:不得修改窗体文件中已经存在的程序、控件及其属性，最后将修改后的文件按原文件名存盘。 图3 (2)考生文件夹下有工程文件sjt4.vbp。程序功能是:在Text1文本框内输入随机数个数，单击"产生随机数"按钮，则先将列表框中的内容全部清除，再向列表框添加指定个数的随机数，如图4(a)所示。单击"删除奇数"按钮，则删除列表框中的所有奇数，并将奇数之和显示在Text2文本框中，如图4(b)所示。命令按钮的Click事件过程已经给出，但不完整，请将其中的注释符去掉，把,改为正确的内容，以实现上述程序功能。 注意:考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。 (a) (b) 图4 三、综合操作题 考生文件夹下有工程文件sjt5.vbp。程序运行时，外观如图5所示，单击"显示数据"按钮，则将考生文件夹下in5.dat文件的内容读入到5行40列的二维数组a中，并按5行显示在Text1文本框内;单击"统计"按钮，则找出每行中偶数的最大值，计算奇数的平均值(平均值保留2位小数，是否四舍五入不限)，并将它们(共10个值)分别显示在Label1数组中和Text2数组中。单击"保存"按钮，则保存计算结果。"显示数据"和"保存"按钮的Click事件过程已经给出，请编写"统计"按钮的Click事件过程实现上述功能。 注意:考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须用"统计"按钮进行统计，且必须单击"保存"按钮保存结果，否则无成绩。最后，程序按原文件名存盘。 图5 第五十二套题干217 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序 (包括界面和代码)。 (1)在名称为Form1的窗体上画一个名称check1的复选框数组(Index属性从0开始)，含三个复选框，其标题分别为"语文"、"数学"、"体育"，利用属性窗口设置适当的属性，使"语文"未选，"数学"被选中，"体育"为灰色，再把窗体的标题设置为"选课"，如图1所示。 注意:存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 图1 (2)在名称为Form1的窗体上画两个文本框，名称分别为Text1、Text2，再画两个命令按钮，名称分别为Command1、Command2，标题分别为"复制"、"删除"。程序运行时，在Text1中输入一串字符，并用鼠标拖拽的方法选择几个字符，然后单击"复制"按钮，则被选中的字符被复制到Text2中(如图2所示)。若单击"删除"按钮，则被选择的字符从Text1中被删除。请编写两个命令按钮的Click过程完成上述功能。注意:要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 图2 二、简单应用题 (1)在考生目录下有一个工程文件sjt3.vbp，包含了所有控件和部分程序，如图3所示。要求如下: ?利用属性窗口设置适当的属性，使Text1、Text2中数据右对齐; ?请编写适当的程序完成以下功能:在Text1中输入40(度数)，选择组合框中的一个项目，单击"计算"按钮，则根据所选择的项目，计算出相应的正弦、余弦值(保留3位小数，第4位截去，π取3.14159)，并显示在Text2中。 注意:考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算;在Text1中输入的必须是40;必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后按原文件名存盘。 图3 (2)在考生文件夹下有一个工程文件sjt4.vbp，窗体上已经画出所有控件。程序的作用是构成一个简单的时钟。刚运行时，不计时，选择一个单选按钮后，再单击"计时"按钮，则开始计时，并根据所选的单选按钮决定是每秒显示一次秒数，还是每10秒显示一次秒数。Text2用于显示秒，如图4所示。窗体文 件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的,改为正确的 —9— 绿灯.ico"文件来实现信号灯的切换;还有两个计时器Timer1和Timer2，Timer1用于变换信号灯，黄灯1秒，红灯2秒，绿灯3秒;Timer2用于控制汽车向左移动。运行时，信号灯不断变换，单击"开车"按钮后。汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动，当变为绿灯后再继续移动。在窗体中已经给出了全部控件和程序，但程序不完整，要求阅读程序并去掉程序中的注释符，把程序中的,改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原文件名存盘。 图5 第五十三套题干218 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上，设计满足如下要求的菜单: 注意:存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。 图1 (2)在名称为Form1、标题为"椭圆练习"的窗体上，画一个名称为Shape1的椭圆，其高为800、宽为1200，边框是宽度为5的蓝色(颜色值为&H00C00000&)实线，内部填充色显示为黄色(颜色值为 &H0000FFFF&)。再画两个名称分别为Command1和Command2，标题分别为"横向"和"纵向"的命令按钮(如图2所示)。 要求:编写适当的事件过程，使得每单击"横向"按钮一次，椭圆的宽度增加100;每单击"纵向"按钮一次，椭圆的高度增加100。程序中不得使用变量，每个事件过程中只能写一条语句。 注意:存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。 图2 二、简单应用题 (1)考生文件夹下有工程文件sjt3.vbp，窗体上有两个标题分别为"分解"和"退出"的命令按钮。请再画一个名称为Text1，初始值为空的文本框。程序功能如下: ?单击"分解"按钮，程序提示输入一个大于2的整数，并将该数分解为因数的乘积，最后将分解结果显示在Text1文本框内(如图3所示)。 ?单击"退出"按钮，则结束程序运行。 请将事件过程中的注释符去掉，把,改为正确的内容，以实现上述程序功能。 注意:考生不得修改窗体文件中已经存在的控件和程 序，最后将程序按原文件名存盘。 图3 (2)考生文件夹下有工程文件sjt4.vbp，窗体上有一个名称为Cmd1的命令按钮，请对其属性进行设置，使其左边界与窗体左边框的距离为300，标题为"产生可变正方形图案"。 程序功能为:单击"产生可变正方形图案"按钮，则弹出输入框，要求输入可变数;在输入可变数后，将根据可变数在窗体上显示可变正方形图案;图案的最外圈为第1层，且每层上显示的数字与其所处的层数相同。 图4(a)为输入可变数6时的可变正方形图案。图4(b)为输入可变数7时的可变正方形图案。 Cmd1按钮的Click事件过程已经给出，但不完整，请将事件过程中的注释符去掉，把,改为正确的内容，以实现上述程序功能。 注意:考生不得修改窗体文件中已存在的程序，最后将程序按原文件名存盘。 (a) (b) 图4 三、综合操作题 考生文件夹下的工程文件sjt5.vbp中的窗体上有两个标题分别是"产生数据"和"排序"的命令按钮。请画两个名称分别为Text1、Text2，初始值为空，可显示多行文本，有垂直滚动条的文本框(如图5所示)。程序功能如下: "按钮，随机产生50个100以内的互不相等的整数， ?单击"产生数据 并将这50个数显示在Text1文本框中; ?单击"排序"按钮，将50个数按升序排列，并显示在Text2文本框 "排序"按钮的Click事件过程已经给出，中。"产生数据"和 但不完整，请将事件过程中的注释符去掉，把,改为正确的内容，以实现上述程序功能。 注意:考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 图5 第五十四套题干219 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个名称为Shape1的形状控件，通过设置参数使其形状为圆形;画一个名称为Label1的标签，标题为"形状"，标签的大小能够根据标签内容字数、大小而定;画一个名称为Text1的文本框，文本框最多能够显示5个字符，文本框中显示的文字是"圆形"。如图1所示。 注意:存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。 —10— 图1 (2)在名称为Form1的窗体上画一个名称为Label1的标签，字号大小为四号，标题为"等级考试"，如图2(a)所示。通过设置属性使标签初始为不可见。请编写适当的程序，使得运行程序时，窗体的标题立即变为"标签"，单击窗体时，显示标签，如图2(b)所示。 注意:存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。要求程序中不得使用变量，每个事件过程中只能写一语句。 (a) (b) 图2 二、简单应用题 (1)考生文件夹中有工程文件sjt3.vbp。窗体上有名称为Label1、标题为"标签控件"的标签;有一个名称为Command1、标题为"命令按钮"的命令按钮。单击上述两控件中任一控件，则在标签Label2中显示所单击控件的标题内容(标题内容前有"单击"二字)，如图3是单击命令按钮后的窗体外观。请去掉程序中的注释符，把程序中的,改为正确的内容。 注意:考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。 图3 (2)在考生文件夹下有一个工程文件sjt4.vbp。其窗体上有一个由八个图片框控件组成的控件数组、两个命令按钮及一个计时器控件，如图4-4所示。 程序功能:将计时器控件设置为每隔0.5秒触发一次。运行程序时，只显示下标为0的图片框控件数组元素，其他图片框均不显示。单击"开始"按钮，数组中的每个图片框自左至右依次显示，时间间隔为0.5秒，产生月亮从左向右移动的效果，如图4所示。月亮移到右端后再从左端重新开始。单击"停止"按钮，月亮停止移动。 要求:按照题目要求设置控件属性，去掉程序中的注释符，把程序中的,改为正确的内容。 注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 图4 三、综合操作题 考生文件夹下有一个工程文件sjt5.vbp。运行程序后，从文件中读出数据，放入5×5的二维数组a中。请编写程序，找出a数组中每行的最大值及该值在行中的次序(即列下标)，并将所找到的结果分别保存到一维数组b、c中(a第一行的最大值保存在b(1)中，最大值的列次序保存在c(1)中)。 注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，命令按钮的事件过程必须至少执行一次。 第五十五套题干220 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上用名称为Shape1的控件 画一个圆，其直径为1500(即宽、高均为1500)，并设置适当属性，使窗口标题为"圆"，窗体标题栏上不显示最大化和最小化按钮(如图1所示)。 注意:存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 图1 (2)在名称为Form1的窗体中建立一个弹出式菜单(程序运行时不显示)，名称为file，含两个菜单项，其名称分别为open、save，标题分别为"打开"、"存盘"。编写适当的事件过程。程序运行后，如果用鼠标右键单击窗体，则弹出此菜单(如图2所示)。 注意:程序中不能使用变量。保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 图2 二、简单应用题 (1)在考生目录下有一个工程文件sjt3.vbp，窗体上有一个组合框Combo1，其中已经预设了内容;还有一个文本框Text1和三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为"修改"、"确定"、"添加"。程序运行时，"确定"按钮不可用，如图3所示。 程序的功能是:在运行时，如果选中组合框中的一个列表项，单击"修改"按钮，则把该项复制到Text1中(可在Text1中修改)，并使"确定"按钮可用;若单击"确定"按钮，则把修改后的Text1中的内容替换组合框中该列表项的原有内容，同时使"确定"按钮不可用;若单击"添加"按钮，则把Text1中的内容添加到组合框中。 所提供的窗体文件已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的,改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。 图3 (2)在考生目录下有一个工程文件sjt4.vbp，窗体中的两个滚动条分别表示红灯亮和绿灯亮的时间(秒)，移动滚动框可以调节时间，调节范围为1,10秒。刚运行时，红灯亮。单击"开始"按钮则开始切换:红灯到时后自动变为黄灯，1秒后变为绿灯;绿灯到时后自动变为黄灯，1秒后变为红灯，如此切换(如图4所示)。 所提供的窗体文件已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的,改为正确的内容。 提示:在三个图片框picture1、picture2、picture3中分别放置了红灯亮、绿灯亮、黄灯亮的图标，并重叠在一起，当要使某个灯亮时，就使相应的图片框可见，而其他图片框不可见，并保持规定的时间，时间到就切换为另一个图片框可见，其他图片框不可见。 注意:考生不得修改工程中已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。 图4 三、综合操作题 —11— 在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件是sjt5.frm(如图5所示)。该程序的功能是:单击"读数"按钮，读入考生文件夹下in5.txt文件中的一个整数，并放入Text1中;单击"计算"按钮，则计算小于该数的最大素数，并显示在Text2中;单击"存盘"按钮，则把该素数保存到考生文件夹下的out5.txt文件中。要求如下: ?程序已给出"存盘"按钮的事件过程代码。"读数"按钮的事件过程和判断x是否是素数的函数prime(x)不完整，请去掉注释符，并在,处填上正确的内容，使程序完整。 ?编写"计算"按钮的事件过程。计算小于Text1中数据的最大素数。 ?请不要改动窗体上所有控件属性设置及相应的过程代码。最后将改动后的程序用原文件名保存。 图5 第五十六套题干221 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1、标题为"显示记录"的窗体上画一个名称为Text1的文本框，其初始内容为空;再画一个名称为Command1的命令按钮数组(下标从0开始，有4个按钮，其对应的标题分别为"上一条记录"、"下一条记录"、"第一条记录"、"最后一条记录")，程序执行时的效果如图1所示，且程序执行时按下回车键则相当于、单击"下一条记录"按钮。请设置相应属性。 注意:存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。 图1 (2)在名称为Form1的窗体上，画一个名称为Label1的标签，其标题为"等级考试"，能根据标题内容自动调整标签的大小，外观如图2所示。再画一个名称为Timer1的计时器，其Interval属性设为0，Enabled属性设为True。 要求:编写窗体Load事件过程和计时器Timer事件过程，使得程序运行时，每隔一秒标签交替隐藏或显示一次。 注意:存盘时，将文件保存至考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句(不得使用选择语句或循环语句)。 图2 二、简单应用题 (1)在考生文件夹下有工程文件sjt3.vbp。程序运行时的窗体如图3(a)所示。输入商品名称后，选中一种付款方式，则"成交"按钮变为可用，选择一种或多种"服务"后，单击"成交"按钮，则把相应信息显示在下面的图片框中，如图3(b)所示。若不选任何"服务"，则显示结果如图3(c)所示。单击"放弃"按钮，则恢复到图3(a)状态。 程序已经给出但不完整，请将其中的注释符去掉，把,改为正确的内容，以实现上述程序功能。 注意:考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。 (a) (b) (c) 图3 (2)在考生文件夹下有工程文件sjt4.vbp，其中的列表框中已经有两个列表项(均为数字)。程序功能是在文本框中输入一个整数n(例如30)，单击命令按钮，则在列表框中追加若干数字，所有追加的数字按以下规律排列:每个数是前面两个数之和，最后一个数是满足上述规律的最大的小于n的数。如图4(a)所示。若再输入一个更大的整数(如100)，单击命令按钮，则按上述规律继续追加数字。如图4(b)所示。程序已经给出但不完整，请将其中的注释符去掉，把,改为正确的 — —12 称为Combo1、初始内容为空的下拉式组合框。下拉列表中有"隶书"、"宋体"和"楷体"三个项目。运行后的窗体如图1所示。 注意:存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 图1 (2)在名称为Form1的窗体上画两个文本框，其名称分别为Text1、Text2，初始内容都为空，显示为三号字，且Text1的初始状态为不可用;再画一个名称为Command1、标题为"开始"的命令按钮，如图2所示。 要求:编写适当的事件过程，使得单击"开始"按钮后，Text1文本框变为可用状态，且在Text1文本框中输入字母串时，Text2文本框中用大写字母形式显示Text1文本框中的内容。程序中不得使用变量，每个事件过程中只能写一条语句。 注意:存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名 为sjt2.frm。 图2 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp，其功能是: ?单击"读数据"按钮，则把考生文件夹下in3.dat文件中的20个整数读入数组a中，同时显示在Text1文本框中; ?单击"变换"按钮，则数组a中元素的位置自动对调(即第一个数组元素与最后一个数组元素对调，第二个数组元素与倒数第二个数组元素对调……)，并将位置调整后的数组显示在文本框Text2中。 在窗体文件中已经给出了全部控件(如图3所示)，但程序不完整。 要求:完善程序使其实现上述功能。 注意:考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须执行"变换"操作，且必须用窗体右上角的"关闭"按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 图3 (2)在考生文件夹下有一个工程文件sjt4.vbp，窗体上有两个标题分别为"读数据"和"统计"的命令按钮;二个名称分别为Text1和Text2、初始值为空的文本框，如图4所示。 程序功能如下: ?单击"读数据"按钮，则将考生文件夹下in4.dat文件的内容(该文件中仅含有字母和空格)显示在Text1文本框中; ?在Text1文本框中选中内容后，单击"统计"按钮，则自动统计选中文本中从未出现过的字母(统计过程中不区分大小写)，并将这些字母以大写形式显示在Text2文本框内。 请将"统计"按钮的Click事件过程中的注释符去掉，把,改为正确内容，以实现上述程序功能。 注意:考生不得修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。 图4 三、综合操作题 在考生文件夹下有一个工程文件sjt5.vbp，在该工程文件中已经定义了一个学生记录类型数据StudType。有三个标题分别为"学号"、"姓名"和"平均分"的标签;三个初始 —13— 据显示内容自动调整大小。如图3所示。程序功能如下: ?单击 "移动"按钮时，该按钮标题自动变换为"暂停"，且标签内容在窗体中开始向右移动。当标签右侧到窗体右边时，标签移动方向改变为从右向左移动;当标签左侧触及窗体左边缘时，标签移动方向改变为从左向右移动。 ?单击"暂停"按钮时，该按钮的标题自动变换为"移动"，并暂停标签内容的移动。 ?单击"退出"按钮时，则结束程序运行。 命令按钮的Click事件过程已经给出，但事件过程不完整，请将其中的注释符去掉，把,改为正确的内容，以实现上述程序功能。 注意:不得修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。 图3 (2)考生文件夹下的工程文件sjt4.vbp中有一个标题为"编号"的标签Label1，一个用于接收选手编号的初始内容为空的文本框Text1;另有一个含有10个元素的标签控件数组Label2用于显示评委名称:"评委1"、"评委2"…，一个含有10个元素的文本框控件数组Text2用于接收10个评委对某选手的打分;还有一个标题为"统计得分"的命令按钮。请再画两个可根据显示内容自动调整大小、标题分别为"选手编号"和"得分"的标签Label3和Label4，一个图片框Picture1，如图4所示。程序功能如下: 在Text1文本框中输入选手编号，并在Text2文本框控件数组中输入10个评委对该选手的打分情况后，单击"统计得分"按钮，则对10个评委的打分去掉一个最低分和一个最高分之后求平均，该平均分即为选手的最后得分。最 后将选手编号和得分显示在图片框Picture1中，并将Text1、Text2的内容置为空。 命令按钮的Click事件过程已经给出，但事件过程不完整，请将其中的注释符去掉，把,改为正确的内容，以实现上述程序功能。 注意:考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。 图4 三、综合操作题 考生文件夹下的工程文件sjt5.vbp中有一个初始内容为空的文本框Text1，两个标题分别是"读数据"和"计算"的命令按钮;请画一个标题为"各行最小数的平均值为"的标签Label2，再画一个初始内容为空的文本框Text2，如图5所示。程序功能如下: ?单击"读数据"按钮，则将考生文件夹下in5.dat文件的内容读入20行5列的二维数组a中，并同时显示在Text1文本框内; ?单击"计算"按钮，则自动统计二维数组中各行的最小数，并将这些最小数的平均值显示在Text2文本框内。 "读数据"按钮的Click事件过程已经给出，请编写"计算"按钮的Click事件过程实现上述功能。 注意:考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须用"计算"按钮进行计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 图5 第五十九套题干224 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1、标题为"标签"的窗体上，画一个名称为Label1、 —14— 任意一个数; ?单击"删除"按钮，则首先判断"输入"的数是否存在于A 数组中，若不存在，则给出相应提示;若存在，则将该数从数组A中删除，并将删除后A数组的内容重新显示在Text1中。在给出的窗体文件中已经有了全部控件(如图3所示)，但程序不完整。 要求:去掉"删除"按钮Click事件过程中的注释符，把,改为正确的内容，以实现上述程序功能。 注意:不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。 图3 三、综合操作题 在考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个标题分别是"读数据"和"统计"的命令按钮和初始值为空、名称分别为Text1和Text2的两个文本框。如图4所示。 程序功能如下: "按钮，则将考生文件夹下in5.dat文件的内容(该文件 ?单击"读数据 中仅含有字母和空格)显示在Text1文本框中(此过程已给出); ?在Text1文本框中选中内容后，单击"统计"按钮，则统计选中文本中出现次数最多的字母(不区分大小写)，以大写形式在Text2文本框内显示出现次数最多的字母。 请将"统计"按钮Click事件过程中的注释符去掉，把,改为正确的内容，以实现上述程序功能。 注意:考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 图4 第六十套题干225 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个图片框，名称为P1，高为1800，宽为1700，通过属性窗口把图形文件pic1.bmp放到图片框中(如图1所示)。 注意:存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 图1 (2)在名称为Form1的窗体上画两个文本框，名称分别为Text1、Text2，都显示垂直滚动条和水平滚动条，都可以显示多行文本;再画一个命令按钮，名称为C1，标题为"复制"(如图2所示)。请编写适当的事件过程，使得在运行时，在Text1中输入文本后，单击"复制"按钮，就把Text1中的文本全部复制到Text2中。程序中不得使用任何变量。 注意:存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 图2 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。在窗体上有一个命令按钮，其名称为Command1，标题为"添加";有一个文本框，名称为Text1，初始内容为空白;有一个列表框，名称为List1。程序运行后，在文本框中输入一个英文句子(由多个单词组成，各单词之间用一个空格分开)，然后单击"添加"按钮，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图3所示。该程序不完整，请补充完整。 要求:去掉程序中的注释符，把程序中的,改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 图3 (2)在考生文件夹下有一个工程文件sjt4.vbp，其中的窗体中有一个组合框和一个命令按钮(如图4所示)。程序的功能是在运行时，如果在组合框中输入一个项目并单击"添加"按钮，则搜索组合框中的项目，如果没有此项，则把此项添加到列表中;如果有此项，则弹出提示"已有此项"，然后清除输入的内容。 要求:去掉程序中的注释符，把程序中的,改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原来的文件名存盘。 图4 三、综合操作题 在考生文件夹下有文件in5.txt，文件中有几行汉字。请在Form1的窗体上画一个文本框，名称为Text1，能显示多行;再画一个命令按钮，名称为C1，标题为"存盘"。编写适当的事件过程，使得在加载窗体时，把in5.txt文件的内容显示在文本框中，然后在文本的最前面手工插入一行汉字 "计算机等级考试"(如图5所示)。最后单击"存盘"按钮，把文本框中修改过的内容存到文件out5.txt中。 注意:只能在最前面插入文字，不能修改原有文字。文件必须存放在考生文件夹下，以sjt5.vbp为文件名存储工程文件，以sjt5.frm为文件名存储窗体文件。 图5 —15— 上机题答案解析 第四十套上机答案解析205 一、基本操作题 第1小题 【 知识点 高中化学知识点免费下载体育概论知识点下载名人传知识点免费下载线性代数知识点汇总下载高中化学知识点免费下载 拔】?文本框(Text)通常用于接收用户输入的字符串数据或用于显示输出信息，其Text属性用于设置或返回文本框中显示的文本。?控件的Height和Width属性用于设置控件在屏幕上的大小(即高和宽)。?字体大小通过FontSize属性设置，一般格式为:FontSize [=点数]。 【审题分析】要在单击"扩大"按钮时，使文本框在高、宽方向上各增加一倍，只需在"扩大"按钮的Click事件中编写设置文本框的Height和Width属性值为原来2倍的语句。要使文本框中的字体大小扩大到原来的3倍，需编写设置文本框的FontSize属性值为原来3倍的语句。 【操作步骤】 步骤1:新建一个"标准EXE"工程，如表1在窗体中画出控件并设置其相关属性。 步骤2:打开代码编辑窗口，编写两个命令按钮的单击事件过程。 参考代码: Private Sub C1_Click() T1 = "等级考试" End Sub Private Sub C2_Click() T1.Height = 2 * Me.T1.Height T1.Width = 2 * T1.Width T1.FontSize = 3 * Form1.T1.FontSize End Sub 表 1 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【知识点拔】?UCase()函数用于将字符串中小写字母转换为大写字母，原本大写或非字母字符保持不变。?LCase()函数用于将字符串中大写字母转换为小写字母，原本小写或非字母字符保持不变。 【审题分析】本题原程序是在命令按钮的单击事件过程中，将文本框Text1中的字符用UCase函数转换为大写并显示在Text2中，同时用LCase函数转换为小写并显示在Text1中。 【操作步骤】 步骤1:新建一个"标准EXE"工程，如表2在窗体中画出控件并设置其相关属性。 表 2 —16— 步骤2:打开代码编辑窗口，编写命令按钮的单击事件过程。 参考代码: Private Sub C1_Click() Text1.Text = LCase(Text1.Text) Text2.Text = UCase(Text1.Text) End Sub 步骤3:按要求将文件保存至考生文件夹中。 【主要考点】字符串大小写转换函数。 二、简单应用题 第1小题 【知识点拔】列表框的Text属性用于返回列表框中选择的项目的 Text1.Text=List1.Text& Option1.Caption Else If Option2.Value And List1.Text<>""Then Text1.Text=List1.Text&Option2.Caption End If End If 步骤3:按要求将文件保存至考生文件夹中。 步骤4:按<F5>键键运行程序，在列表框中选择一项，并选中一个单选按钮，单击"确定"按钮，单击窗体右上角的关闭按钮结束程序。 第2小题 【知识点拔】通常把循环体内不再含有循环语句的循环叫做单层循环，而把循环体内含有循环语句的循环称为多重循环。例如在循环体内含有一个循环语句的循环称为二重循环。多重循环又称多层循环或嵌套循环。 【审题分析】程序设计思路:按顺序让1~500中的每一个数都与它之后的所有的数逐一相加，在相加过程中若累加和等于或超过1250时，则停止该组数继续相加，并将和等于1250的该组数的开头和结尾的数按题目要求输出。原程序使用嵌套For循环完成上述功能，变量iSum用于记录每组数累加时的和，其初值应为0;表达式iSum = iSum + j用于实现累加功能;当累加和正好等于1250时，输出该组数的开头和结尾的数，即i和j。 【操作步骤】 :打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序 步骤1 中的注释符"’"，将问号"?"改为正确的内容。 参考代码: iSum = 0 iSum = iSum + j If iSum = 1250 Then 步骤2:按要求将文件保存至考生文件夹中。 三、综合操作题 【审题分析】程序设计思路:在"显示"按钮的单击事 件过程中，用Open语句以随机方式打开数据文件in5.txt，并用Get读出一条记录显示在文本框中，随后读取下一条记录，直到所有的记录都读取完毕;在"保存"按钮的单击事件过程中，用Open语句以Output方式打开数据文件out5.txt，并用Print #方法将文本框中的值存入该文件。 【操作步骤】 步骤1:新建一个"标准EXE"工程，如表3在窗体中画出控件并设置其相关属性。 表 3 步骤2:打开代码编辑窗口，编写相应事件过程。 参考代码: Private Type StudInfo Name As String * 8 Sex As String * 4 Age As Integer End Type Dim Stud As StudInfo Dim RecNum As Long Private Sub Command1_Click() Open App.Path & "\in5.txt" For Random As #1 Len = Len(Stud) RecNum = 1 Do While Not EOF(1) Get #1, RecNum, Stud Text1.Text = Text1.Text & Stud.Name Text1.Text = Text1.Text & Stud.Sex Text1.Text = Text1.Text & Str(Stud.Age) Text1.Text = Text1.Text + vbCrLf RecNum = RecNum + 1 Loop Close 1 End Sub Private Sub Command2_Click() Open App.Path & "\out5.txt" For Output As #1 Print #1, Text1.Text Close 1 End Sub 步骤3:按要求将文件保存至考生文件夹中。 【主要考点】文件读写操作。 第四十一套上机答案解析206 一、基本操作题 第1小题 【审题分析】要在程序运行时实现按<Esc>键就调用Cmd1的Click事件， 需将按钮的Cancel属性设置为True。 【操作步骤】 步骤1:新建一个"标准EXE"工程，如表1在窗体Form1中画出控 件，并分别设置它们的相关属性。 表1 对象属性设置 步骤2:双击"显示"按钮，打开代码编辑窗口，输入如下代码: 参考代码: Text1.Text = "等级考试" 步骤3:按要求将文件保存在考生文件夹中。 第2小题 【审题分析】本题需用菜单设计器建立菜单，并编写" —17— 显示"和"隐藏"菜单项的单击事件过程。 【操作步骤】 步骤1:新建一个"标准EXE"工程，在窗体Form1中画一个文本框， 在属性设置窗口中将其Name属性值设置为Text1。 步骤2:选择【工具】?【菜单编辑器】命令，打开菜单设计器，如表2中的 设置建立菜单项。 表 2 :打开代码编辑窗口，编写以下事件过程: 参考代码: 步骤3 Private Sub Dis_Click() Text1.Text = "等级考试" End Sub Private Sub Hid_Click() Text1.Visible = False End Sub 步骤4:按要求将文件保存至考生文件夹中。 二、简单应用题 第1小题 【审题分析】根据题目要求，在"确定"按钮的单击事件过程中，先 用If语句判断框架F1中的Op1是否选中(即以Op1.Value=True为条件表达式)， 如果条件为真，那么再继续判断框架F2中的Op3是否选中(即以Op3.Value= True为条件表达式)，当Op3被选中时，标签中显示"坐飞机去广州"，否 则显示"坐飞机去昆明";同理在外层If语句条件为假(即Op2被选中) 时，也作类似处理。这样一共就有四种可能:Op1和Op3被选中、Op1和Op4 被选中、Op2和Op3被选中、Op2和Op4被选中，对于可能出现的不同选择对 照题目中表的规定，在标签中显示不同 If Op1 And Op3 Then Lab1.Caption = "坐飞机去广州" ElseIf Op1 And Op4 Then Lab1.Caption = "坐飞机去昆明" ElseIf Op2 And Op3 Then Lab1.Caption = "坐火车去广州" ElseIf Op2 And Op4 Then Lab1.Caption = "坐火车去昆明" End If End Sub 步骤4:按要求将文件保存至考生文件夹中。 步骤5:按<F5>键运行程序，选择一种交通工具和一个到达目标，并单击 命令按钮，最后单击窗体右上角的关闭按钮退出程序。 【考试误区】容器中单选按钮组只能有一个被选中。 第2小题 【审题分析】根据题目要求，设计本题程序的思路:在窗体Form1的Click事 件过程中分别以Op1和Op2是否选中作为If语句的条件，当Op1被选中时，将 两个文本框中的 If Op1 Then Text3.Text = Text1.Text Text1.Text = Text2.Text Text2.Text = Text3.Text Text3.Text = "交换成功" ElseIf Op2 Then Text3.Text=Text1.Text& Text2.Text End If End Sub 步骤4:按要求将文件保存至考生文件夹中。 步骤5:按<F5>键运行程序，选择一个单选按钮，并单击窗体，最后单击 窗体右上角的关闭按钮退出程序。 【特别提示】在一个容器中的多个单选按钮只能有一个被选中，由此分出不同 分支，理清思路是关键。 三、综合操作题 【知识点拔】数组是一组具有相同类型和名称的变量的集合。这些变量称为数 组的元素，每个数组元素都有一个编号，这个编号叫做下标，我们可以通过下标来区别这些元素。数组元素的个数有时也称为数组的长度。数组定义:定长数组的长度是在定义时就确定的，在程序运行过程中是固定不变的。其定义格式为: Dim数组名([下界To]上界)[As类型名] 其中，"下界"和"类型名"是可选的。所谓下界和上界，就是数组下标的最小值和最大值。缺省下界时，默认下界为0。注意:当程序中有Option Base 1语句时，它的作用是限定数组下标的下限默认为1。 【审题分析】本题原程序的大致设计思路是:程序运行后单击窗体，则打开数据文件datain.txt并从中读取数据，并依次存入二维数组Mat(下界为1，上界为5)的各元素中，故第一个,处是定义数组，应改为:Mat(M, N) As Integer;第两个,处是指明打开文件的方式，应改为:For Input;第三个,处是将数据文件中的数据读入并赋值给数组元素，应改为:Input #1,Mat(i, j);然后用一个嵌套的For循环将数组Mat中的数据在窗体上按5行、5列的矩阵形式显示出来，接着再用一个For循环将数组Mat中第1维下标为1和第1维下标为3的元素对应(即第2维下标一致)交换值，交换值时引入一个中间变量t，故第4个,处是将中间变量t的值赋 —18— 给数组元素Mat (3, j)，应改为:Mat (3, j) = t。最后将交换后的数组Mat中的数据，再按5行、5列的矩阵形式在窗体上显示出来。 【操作步骤】 步骤1:打开本题对应工程文件sjt5.vbp。 步骤2:打开代码编辑窗口，去掉程序中的注释符"’"，将问号"?"改为正确的Input As #1 Input #1, Mat (i, j) Mat (3, j) = t 步骤3:按要求将文件保存在考生文件夹中。 【考试误区】数据的矩阵显示常与二维数组、多重循环一起使用。 第四十二套上机答案解析207 一、基本操作题 第1小题 【知识点拔】Sorted属性用于设置列表框控件(ListBox)或者组合框控件的列表项是否按照字母顺序升序排列。 【审题分析】本题只需新建窗体和控件，然后设置相关属性即可。 【操作步骤】 步骤1:新建一个"标准EXE"工程，如表1在窗体中画出控件并设置其相关属性。 表 1 步骤2:按要求将文件保存至考生文件夹中。 第2小题 【审题分析】程序运行时要改变标签的标题的字体大小，可通过修改其FontSize属性值来实现。 【操作步骤】 步骤1:新建一个"标准EXE"工程，如表2在窗体中画出控件并设置其相关属性。 表 2 步骤2:打开代码编辑窗口，编写两个命令按钮的Click事件过程。 参考代码: Private Sub Command1_Click() Label1.FontSize = Label1.FontSize - 2 End Sub Private Sub Command2_Click() Label1.FontSize = 12 End Sub 步骤3:按要求将文件保存至考生文件夹中。 二、简单应用题 第1小题 【审题分析】在"查找"按钮的单击事件中，首先使用 变量num接收输入框的值，然后判断num是否为偶数，如果为奇数(num / 2 <> Fix(num / 2))则提示错误信息;由于数组a是升序排列的，因此如果num的值小于a(1)或者大于a(30)则意味着超出范围;接下来使用For循环遍历整个数组，如果某次循环中数组元素等于num的值则意味着找到，可以退出循环;当循环结束后如果n的值大于30则表明循环是正常结束的，没有找到这个元素。 【操作步骤】 步骤1:打开考生文件夹下的本题工程文件sjt3.vbp，打开代码编辑窗口，去掉程序中的注释符"’"，将问号"?"改为正确的For i = 1 To 20 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 —19— Next Text2.Text = Max 步骤3:按要求将文件保存至考生文件夹中。 步骤4:按<F5>键运行程序，先单击"读数据"按钮，接着单击"计算"按钮，然后单击窗体右上角的关闭按钮结束程序。 第四十三套上机答案解析208 一、基本操作题 第1小题 【审题分析】本题需用菜单设计器建立菜单，并编写"显示"和"清除"菜单项的单击事件过程。 【操作步骤】 步骤1:新建一个"标准EXE"工程，选择【工具】?【菜单编辑器】命令，打开菜单设计器，如表1中的设置建立菜单项。 表 1 步骤2:打开代码编辑窗口，编写以下事件过程: 参考代码: Private Sub Clea_Click() Cls End Sub Private Sub Dis_Click() Print "等级考试" End Sub 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【知识点拔】列表框控件(ListBox)用于显示可供单一或多个选择的列表项，给列表框添加列表项既可以在设计阶段通过其List属性设置加入，也可在程序运行时使用AddItem方法加入，列表框中的项目总数由列表框的ListCount属性可以得到。 【审题分析】双击列表框中的某个项目，将触发其DblClick事件。要实现双击列表框中的某一项，就把列表框中的项目总数显示在标签中，只需在DblClick事件过程中编写添加项目的语句即可。 【操作步骤】 步骤1:新建一个"标准EXE"工程，在窗体Form1中加入一个列表框，在属性设置窗口中将其Name属性设置为L1，在其List属性中任意添加四个项目。注意:每输入完一项后按<Ctrl+Enter>键换行再输入下一项。在窗体上再画出一个标签，名称为Lab1。 步骤2:打开代码编辑窗口，编写列表框的DblClick事件过程: 参考代码: Private Sub L1_DblClick() Lab1.Caption = L1.ListCount End Sub 步骤3:按要求将文件保存至考生文件夹中。 【考试误区】本题应编写列表框控件的DblClick事件。 二、简单应用题 第1小题 【审题分析】根据题目要求，在文本框的单击事件过程中，先用If语句判断框架F1中的Op1是否选中(即以Op1.Value=True为条件表达式)，如果条件为真，那么再继续判断框架F2中的Op3是否选中(即以Op3.Value= True为条件表达式)，当Op3被选中时，文本框中显示"坐汽车去青岛"，否则显示"坐汽车去大连";同理在外层If语句条件为假(即Op2被选中)时，也作类似处理。这样一共就有四种可能:Op1和Op3被选中、Op1和Op4被选中、Op2和Op3被选中、Op2和Op4被选中，对于可能出现的不同选择对照题目中表的规定，在标签中显示不同内容。以上判断和显示操作均在文本框的Click事 件中完成。 【操作步骤】 :打开考生文件夹下的本题工程文件sjt3.vbp。 步骤2:在窗体Form1 步骤1 中加入两个框架和一个文本框，然后在每个框架中各加入两个单选按钮，分别设置它们的相关属性，其属性及值如表2所示。 表 2 步骤3:打开代码编辑窗口输入如下代码: 参考代码: Private Sub Text1_Click() If Op1 And Op3 Then Text1.Text = "坐汽车去青岛" ElseIf Op1 And Op4 Then Text1.Text = "坐汽车去大连" ElseIf Op2 And Op3 Then Text1.Text = "坐轮船去青岛" ElseIf Op2 And Op4 Then Text1.Text = "坐轮船去大连" End If End Sub 步骤4:按要求将文件保存至考生文件夹中。 步骤5:按<F5>键运行程序，选择一种交通工具和一个到达目标，并单击文本框，最后单击窗体右上角的关闭按钮退出程序。 【考试误区】某容器中的单选按钮组只能有一个被选中。 第2小题 【审题分析】根据题目要求，设计本题程序的思路:在窗体的Click事件过程中分别以Op1和Op2是否选中作为If语句的条件，当Op1被选中时，将两个文本框中的 Text1.Text = Text2.Text Text2.Text = Lab1.Caption Lab1.Caption = "交换成功" ElseIf Op2 Then Lab1.Caption = Text1.Text & Text2.Text End If End Sub 步骤4:按要求将文件保存至考生文件夹中。 步骤5:按<F5>键运行程序，选择一个单选按钮，并单击窗体，最后单击窗体右上角的关闭按钮退出程序。 三、综合操作题 【审题分析】本题原程序已提供用于读数的ReadData1、ReadData2和用于写盘的WriteData几个自定义过程，只需编写"读入数据"、"计算"和"存盘"命令按钮的单击事件过程，并在事件过程中调用 ReadData1、ReadData2和WriteData自定义过程。 程序设计思路:在"读入数据"按钮的Click事件过程中，通过调用ReadData1和ReadData2过程将数据从文件datain1.txt和datain2.txt中读入到数组Arr1和Arr2(窗体变量)中;在"计算"按钮的Click事件过程中，利用For循环语句(循环变量i的初值为1，终值为20)依次将数组Arr1和Arr2同下标的元素相除并截尾取整放入第三个数组中并累加到变量Sum，循环结束后 将Sum的值显示在窗体上。在"保存"按钮的Click事件过程中，通过调用WriteData过程将Sum的值写入数据文件dataout.txt。 注意:调用WriteData过程时需传递参数dataout.txt和Sum，变量Sum应声明为窗体变量。 【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt5.vbp，在窗体中如表3画出控件，并设置其属性。 表 3 步骤2:在代码编辑窗口编写以下事件过程。 参考代码: Dim Sum As Integer Private Sub C1_Click() ReadData1 ReadData2 End Sub Private Sub C2_Click() Dim Arr3(20) As Integer Sum = 0 For i = 1 To 20 Arr3(i) = Int(Arr1(i) / Arr2(i)) Sum = Sum + Arr3(i) Next i Print "Sum = "; Sum End Sub Private Sub C3_Click() WriteData "Dataout.txt", Sum End Sub 步骤3:按要求将文件保存至考生文件夹中。 步骤4:按<F5>键运行程序，先单击"读入数据"按钮，然后单击"计算"按钮，最后单击"存盘"按钮。 第四十四套上机答案解析209 一、基本操作题 第1小题 【知识点拔】菜单中所包含的每一个菜单项都可看成是一个命令按钮，程序运行时，选择某菜单项将触发其Click事件。 【审题分析】要实现本题中的功能，应在"显示"菜单 项的Click事件过程中，为文本框的Text属性赋值为"等级考试"，在"退出"菜单项的Click事件过程中，结束程序的运行。 【操作步骤】 步骤1:新建一个"标准EXE"工程，在窗体Form1中画一个名为Text1的文本框。 步骤2:选择【工具】?【菜单编辑器】命令，打开菜单设计器，如表1中的设置建立菜单项。 表 1 :打开代码编辑窗口，编写"显示"和"退出"菜单命 步骤3 令的单击事件过程。 参考代码: Private Sub Dis_Click() Text1.Text = "等级考试" End Sub Private Sub Exit_Click() End End Sub 步骤4:按要求将文件保存至考生文件夹中。 第2小题 【知识点拔】列表框控件(ListBox)用于显示可供单一或多个选择的列表项，给列表框添加列表项既可以在设计阶段通过其List属性设置加入，也可在程序运行时使用AddItem方法加入。在程序运行时删除列表框中的项目可以使用RemoveItem方法，其语法为:列表框.RemoveItem 索引值。其中，"索引值"可以指定插入项在列表框中的位置，从0开始计数。 【审题分析】单击列表框中的某个项目，将触发其Click事件。要实现单击列表框中的某一项，该项就从列表中消失的功能，只需在Click事件过程中编写删除项目的语句即可。列表框的ListIndex属性可返回当前选择的项目的索引号，因此删除选中项目的语句为: L1.RemoveItem L1.ListIndex。 【操作步骤】 步骤1:新建一个"标准EXE"工程，在窗体Form1中加入一个列表框，在属性设置窗口中将其Name属性设置为L1，在其List属性中添加四个项目，依次为"AAAA"、"BBBB"、"CCCC"和"DDDD"。注意:每输入完一项后按<Ctrl+Enter>键换行再输入下一项。 步骤2:打开代码编辑窗口，编写列表框的Click事件过程: 参考代码: Private Sub L1_Click() L1.RemoveItem L1.ListIndex End Sub 步骤3:按要求将文件保存至考生文件夹中。 【考试误区】本题应编写列表框控件的Click事件。同时注意，删除某一列表项使用RemoveItem方法，而不是Cls方法。 【主要考点】本题考查考生对列表框控件的掌握。 二、简单应用题 第1小题 【审题分析】根据题目要求，在"确定"按钮的单击事件过程中，先用If语句判断框架F1中的Op1是否选中(即以Op1.Value=True为条件表达式)，如果条件为真，那么再继续判断框架F2中的Op3是否选中(即以Op3.Value= True 为条件表达式)，当Op3被选中时，文本框中显示"坐飞机去广州"，否则显示"坐飞机去昆明";同理在外层If语句条件为假(即Op2被选 中)时，也作类似处理。这样一共就有四种可能:Op1和Op3被选中、Op1和 Op4被选中、Op2和Op3被选中、Op2和Op4被选中，对于可能出现的不同选 择对照题目中表的规定，在文本框中显示不同 —21— 【操作步骤】 步骤1:打开考生文件夹下的本题工程文件sjt3.vbp。 步骤2:在窗体Form1中加入两个框架和一个文本框以及一个命令按钮，然后在每个框架中各加入两个 单选按钮，分别设置他们的相关属性，其属性及值如表2所示。 表 2 步骤3:打开代码编辑窗口输入如下代码: 参考代码: Private Sub C1_Click() If Op1 And Op3 Then Text1.Text = "坐飞机去广州" ElseIf Op1 And Op4 Then Text1.Text = "坐飞机去昆明" ElseIf Op2 And Op3 Then Text1.Text = "坐火车去广州" ElseIf Op2 And Op4 Then Text1.Text = "坐火车去昆明" End If End Sub 步骤4:按要求将文件保存至考生文件夹中。 步骤5:按<F5>键运行程序，选择一种交通工具和一个到达目标，并单击 命令按钮，最后单击窗体右上角的关闭按钮退出程序。 【考试误区】某容器中的单选按钮组只能有一个被选中。 第2小题 【审题分析】根据题目要求，设计本题程序的思路当Op1被选中时，将两个文 本框中的 a$ = Text1.Text Text1.Text = Text2.Text Text2.Text = a$ Op1.Visible = False End Sub Private Sub Op2_Click() Text3.Text = Text1.Text & Text2.Text End Sub 步骤4:按要求将文件保存至考生文件夹中。 步骤5:按<F5>键运行程序，选择一个单选按钮，最后单击窗体右上角的 关闭按钮退出程序。 【特别提示】在一个容器中的多个单选按钮只能有一个被选中，由此分出不同 分支，理清思路是关键。 三、综合操作题 【审题分析】本题原程序已提供用于读数的ReadData1、ReadData2和用于写 盘的WriteData几个自定义过程，只需编写"读入数据"、"计算 "和"存盘"命令按钮的单击事件过程，并在事件过程中调用 ReadData1、ReadData2和WriteData自定义过程。 程序设计思路:在"读入数据"按钮的Click事件过程中，通过调用 ReadData1和ReadData2过程将数据从文件datain1.txt和datain2.txt中读入到数组Arr1和Arr2(窗体变量)中;在"计算"按钮的Click事件过程中，利用For循环语句(循环变量i的初值为1，终值为20)依次将数组Arr1和Arr2同下标的元素相加(表达式为:Arr3(i)= Arr1(i)+Arr2(i))，并累加到变量Sum，循环结束后将Sum的值显示在窗体上。在"保存"按钮的Click事件过程中，通过调用WriteData过程将Sum的值写入数据文件dataout.txt。 注意:调用WriteData过程时需传递参数dataout.txt和Sum，变量Sum应声明为窗体变量。 【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt5.vbp，在窗体中如表4画出控件，并设置其属性。 表 4 步骤2:在代码编辑窗口编写以下事件过程。 参考代码: Dim Sum As Integer Private Sub C1_Click() ReadData1 ReadData2 End Sub Private Sub C2_Click() Dim Arr3(20) As Integer Sum = 0 For i = 1 To 20 Arr3(i) = Arr1(i) + Arr2(i) Sum = Sum + Arr3(i) Next i Print "Sum = "; Sum End Sub Private Sub C3_Click() WriteData "Dataout.txt", Sum End Sub 步骤3:按要求将文件保存至考生文件夹中。 步骤4:按<F5>键运行程序，先单击"读入数据"按钮，然后单击"计算"按钮，最后单击"存盘"按钮。 【特别提示】在多个过程中使用同一个变量，应声明为窗体变量。 第四十五套上机答案解析210 一、基本操作题 第1小题 【审题分析】本题只需按题目要求利用VB菜单设计器建立一个二级菜单，并且将其中一个菜单项设置为无效。 —22— 【操作步骤】 步骤1:新建一个"标准EXE"工程，利用菜单设计器如表1在窗体上建立一个二级菜单。 表1 控件属性设置 :按要求将文件保存至考生文件夹中。 第2小题 步骤2 【审题分析】为在Text1中将输入 Text2.Text = Text1.Text End Sub 步骤4:按要求将文件保存至考生文件夹中。 二、简单应用题 第1小题 【审题分析】本题要求在程序运行后，单击"交换图片"命令按钮时，交换两个图片框中的图片。因此可在命令按钮的Click事件过程中，通过 LoadPicture()函数分别为两个图片框重新加载图片。App.Path可返回当前工程文件所在的文件夹路径，是使用相对路径的一种用法。 【操作步骤】 步骤1:新建一个"标准EXE"工程，在窗体Form1中如表3画出所列控件并设置其相关属性。 表 3 步骤2:打开代码编辑窗口，编写命令按钮的Click事件过程: 参考代码: Private Sub C1_Click() Pic1.Picture = LoadPicture(App.Path + "\ pic2.bmp ") Pic2.Picture = LoadPicture(App.Path + "\ pic1.bmp ") End Sub 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【审题分析】为实现本题所要求的功能可在"确定"按钮的单击事件过程中，先设置文本框的初始控件属性设置 步骤2:在代码编辑窗口，编写"确定"按钮的单击事件。 参考代码: Private Sub C1_Click() Text1.Text = "我选的课是" If Ch1.Value Then Text1.Text=Text1.Text+Ch1.Caption End If If Ch2.Value = 1 Then Text1.Text=Text1.Text+ Ch2.Caption End If End Sub 步骤3:按要求将文件保存至考生文件夹中。 三、综合操作题 【审题分析】程序设计思路:在"输入"按钮的单击事件过程中，用Open语句以Input方式打开数据文件in5.txt，并用Input ()函数读出所有字符后显示在文本框中;在"计算"按钮的单击事件过程中，调用过程isprime来求解大于Text1中整数的第一个素数。 在"存盘"按钮的单击事件过程中，用Open语句以Output方式打开数据文件out5.txt，并通过For循环用Print #方法逐一将数组中的元素存入该文件。 【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口，分别编写命令按钮的单击事件。 参考代码: Private Sub C1_Click() Open "in5.txt" For Input As #1 Input #1, a% Close #1 Text1.Text = a% End Sub Private Sub C2_Click() a% = Text1.Text Do a% = a% + 1 Loop Until isprime(a%) Text2.Text = a% End Sub Private Sub C3_Click() Open "out5.txt" For Output As #1 Print #1, Text2.Text Close #1 End Sub 步骤2:按要求将文件保存至考生文件夹中。 【主要考点】文件读写操作、过程调用、简单运算。 第四十六套上机答案解析211 一、基本操作题 第1小题 【知识点拔】复选框和单选按钮的Alignment属性用于设置复选框中标题的对齐方式，0-Left Justify为控件居左标题居右(默认)，1-Right Justify为控件居右标题居左。 —23— 表 1 【审题分析】本题只需按题目在窗体中画出控件，并设置相关属性即可。 【操作步骤】 步骤1:新建一个"标准EXE"工程，如表1在窗体中画出控件并设置其相关属性。 步骤2:按要求将文件保存至考生文件夹中。 第2小题 【审题分析】根据题意，本题需在滚动条的Change事件中改变图像框的宽度和高度，在窗体的Load事件中初始化全局变量。 【操作步骤】 步骤1:新建一个"标准EXE"工程，在窗体Form1中画一个图像框、一个水平滚动条和一个水平滚动条，在属性设置窗口中设置其相关属性，其属性及值如表2所示。 表 2 步骤2:打开代码编辑窗口，分别编写滚动条的Change事件过程和窗体的Load事件过程。 参考代码: Dim length, high Private Sub Form_Load() length = Image1.Width high = Image1.Height End Sub Private Sub HScroll1_Change() Image1.Width = HScroll1.Value * length End Sub Private Sub VScroll1_Change() Image1.Height = VScroll1.Value * high End Sub 步骤3:按要求将文件保存至考生文件夹中。 【主要考点】滚动条控件。 二、简单应用题 第1小题 【知识点拔】?鼠标事件分点击事件和状态事件。点击事件有单击事件(Click)和双击事件(DblClick)，不区分左右键;状态事件有按下事件(MouseDown)、移动事件(MouseMove)和弹起事件(MouseUp)。 状态事件涉及Button、Shift两个参数:Button参数是一个整数，值可能为1(左键)、2(右键)或4(中间键);Shift参数也是一个整数，用来代表用户是否按下<Shift>键(值为1)、<Ctrl>键(值为2)、<Alt>键(值为4)或这些键的组合。 ?弹出式菜单是显示于窗体之上，独立于菜单栏的浮动式菜单。PopupMenu方法可在对象上的当前鼠标位置或指定的坐标位置显示弹出式菜单。 【审题分析】要创建本题的弹出式菜单需先用菜单编辑器来建立菜单，并将其主菜单项的可见(即Visible)属性值设置为False， 然后在窗体的MouseDown(或MouseUp)事件过程中，判断该事件的Button参数值是否为2，若是则执行窗体的PopupMenu方法来显示菜单。 在相应菜单项的Click事件过程中，可以调用fact函数来计算7～，fact函数是一个求阶乘的函数，通过For循环依次累乘实现。 【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt3.vbp，在代码编辑窗口，去掉程序中的注释符"’"，将问号"?"改为正确的 Dim s As Recordtype Open "in5.dat" For Random As #1 Len = Len(s) maxval = 0 minval = 300 For k = 1 To 20 Get #1, , s —24— sumval = s.a1 + s.a2 + s.a3 If sumval > maxval Then maxval = sumval If sumval < minval Then minval = sumval Next k Close #1 End Sub 步骤2:运行程序，单击"计算最大最小值"命令按钮，然后单击"存盘"按钮。 步骤3:按要求将文件保存至考生文件夹中。 第四十七套上机答案解析212 一、基本操作题 第1小题 【审题分析】本题只需按题目要求画出框架和单选按钮，并分别设置其属性。 【操作步骤】 步骤1:新建一个"标准EXE"工程，如表1在窗体上绘制控件并设置属性。 表1 控件属性设置 步骤2:按要求将文件保存至考生文件夹中。 第2小题 【知识点拔】Visible(可见)属性用于设置控件或菜单项在程序运行时是否可见，值为True表示可见，值为False表示不可见。 【审题分析】本题的考核要求有两项。 【操作步骤】 步骤1:打开本题工程文件sjt2.vbp，在窗体中画一个直线控件和两个命令按钮，并设置其相关属性如表2所示。 表 2 步骤2:打开代码编辑窗口，编写命令按钮的Click事件过程。 参考代码: Private Sub Cmd1_Click() Line4.Visible = True End Sub Private Sub Cmd2_Click() Line4.Visible = False End Sub 步骤3:按要求将文件保存至考生文件夹中。 二、简单应用题 第1小题 【审题分析】可借助计时器来完成有规律性时间间隔执行的任务。本题计时器工作时，为使文本框中的数每隔1秒加1，需将计时器的Interval属性值设置为1000毫秒，在命令按钮数组的单击事件过程中通过判断触发事件的元素下标来执行启动计时器或者关闭计时器，在计时器的Timer事件过程中通过语句 Text1.Text=Text1.Text+1实现加1。 【操作步骤】 步骤1:打开本题工程文件sjt3.vbp，去掉程序中的注释符"’"，将问号"?"改为正确的 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … [Case Else [语句块n+1]] End Select 【审题分析】本题原程序通过使用Select Case语句对输入的数据(已赋值给变量s)进行检验，若不超过4，则按f=10计算;若在15以 —25— :在代码编辑窗口的指定位置，编写"统计"按钮的单击事件 步骤2 过程。 参考代码: Private Sub Command2_Click() ‘ 考生编写 Dim a(26) As Integer n = Len(s) For i = 1 To n c = UCase(Mid(s, i, 1)) If c >= "A" And c <= "Z" Then j = Asc(c) - Asc("A") + 1 a(j) = a(j) + 1 End If Next i Max = a(1) t = Chr(Asc("A")) For i = 2 To 26 If a(i) > Max Then Max = a(i) t = Chr(Asc("A") + i - 1) End If Next i Text1.Text = t Text2.Text = Max End Sub 步骤3:按要求将文件保存至考生文件夹中。 步骤4:按<F5>键运行程序，先单击"读数据"按钮，接着单击"统计"按钮，然后单击窗体右上角的关闭按钮结束程序。 第四十八套上机答案解析213 一、基本操作题 第1小题 【审题分析】本题需在命令按钮的单击事件过程中，通过修改文本框的 FontName属性值为"宋体"来改变文本框中文本的字体。 【操作步骤】 步骤1:新建一个"标准EXE"工程，如表1在窗体中画出控件并设置其相关属性。 表1 对象属性设置 :打开代码编辑窗口，编写命令按钮的单击事件过程。 步骤2 参考代码: Private Sub C1_Click() Me.Text1.Font.Name = "宋体" End Sub 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【知识点拔】为图片框控件指定图片有两种方法:一是在设计阶段通过Picture属性设置;二是在程序运行时通过LoadPicture()图片加载函数加载，其语法为:图片框.Picture= LoadPicture("图像文件路径")，App.Path可返回当前工程文件所在的文件夹路径，是使用相对路径的一种用法。用不带参数的LoadPicture函数为对象的Picture属性赋值将清除窗体、图片框及图像控件中的图形。 【审题分析】本题需在窗体的的DblClick事件过程中，用LoadPicture()函数为图片框清除图片。 【操作步骤】步骤1:新建一个"标准EXE"工程，如表2在窗体中画出控件并设置其相关属性。 表 2 步骤2:打开代码编辑窗口，编写窗体的双击事件过程。 参考代码: Private Sub Form_DblClick() P1.Picture = LoadPicture("") End Sub 步骤3:按要求将文件保存至考生文件夹中。 二、简单应用题 第1小题 【审题分析】可借助计时器来完成有规律性时间间隔执行的任务。本题计时器工作时，为使标签中的数每隔1秒加1，需将计时器的Interval属性值设置为1000毫秒，在命令按钮的单击事件过程中通过语句Timer1.Enabled=True启动计时器，在计时器的Timer事件过程中通过语句L1 = L1 + 1实现加1。 【操作步骤】 步骤1:新建一个"标准EXE"工程，如表3在窗体中画出控件并设置其相关属性。 表 3 :在代码编辑窗口编写计时器的事件过程。 参考代码: 步骤2 Private Sub Timer1_Timer() L1 = L1 + 1 End Sub 步骤3:按要求将文件保存至考生文件夹中。 【主要考点】计时器。 第2小题 【审题分析】本题原程序设计思路:在"显示"按钮的单击事件过程中，使用For循环语句逐一判断列表框中的各项是否被选中，If语句的条件表达式为:L1.Selected(i) = True，用Print方法将选中的列表项显示在窗体上。为与列表框的项目索引号保持一致，循环变量的初始值应为0，终值应为L1.ListCount-1。为使列表框在运行时可以多选，应将其MultiSelect属性值设置为1-simple。 【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt4.vbp，将列表框的MultiSelect属性值设置为1-simple。 步骤2:在代码编辑窗口，去掉程序中的注释符"’"，将问号"?"改为正确的 —26— ，通过执行语句Text1.Text 并显示在文本框中;如果Op2被选中，则除数应为3 = fun(3)可调用自定义函数求出500,600之间能被3整除的数之和，并显示在文本框中。 【操作步骤】 步骤1:打开考生文件夹下的本题工程文件sjt5.vbp，如表4所列在窗体Form1中画出控件，分别设置它们的相关属性。 表 4 步骤2:打开代码编辑窗口，编写"计算"按钮的单击事件过程。 参考代码: Private Sub C1_Click() If Op1.Value Then Text1.Text = fun(7) End If If Op2.Value Then Text1.Text = fun(3) End If End Sub 步骤3:按要求将文件保存至考生文件夹中。 【主要考点】函数调用、单选按钮。 第四十九套上机答案解析214 一、基本操作题 第1小题 【知识点拔】Alignment属性用于确定文本框中文本的放置方式，其值可以设置为0(靠左，默认)、1(靠右)或2(居中)。 【审题分析】本题只需按要求画出控件并设置其相应属性即可。 【操作步骤】 步骤1:新建一个"标准EXE"工程，在窗体Form1中画三个单选按钮，并设置它的相关属性，其属性及值如表1所示。 表 1 步骤2:按要求将文件保存至考生文件夹中。 第2小题 【知识点拔】?为图像框控件指定图片有两种方法:一是在设计阶段通过Picture属性设置;二是在程序运行时通过LoadPicture()图片加载函数加载，其语法为:图片框.Picture= LoadPicture("图像文件路径")，App.Path可返回当前工程文件所在的文件夹路径，是使用相对路径的一种用法。用不带参数的LoadPicture函数为对象的Picture属性赋值将清除窗体、图片框及图像控件中的图形。?Stretch(自动伸缩)属性用来设定图像框是否需要自动调整大小，以适应载入图像框中的图片的大小，值为True时表示自动调整。?BorderStyle用于设置图像框的边框类型，值为0表示无边框，值为1表示有边框。 【审题分析】本题需分别在三个命令按钮的Click事件过程中，用LoadPicture() 函数为图像框加载不同图片。 【操作步骤】 步骤1:新建一个"标准EXE"工程，如表2在窗体中画 出控件并设置其相关属性。 表 2 步骤2:打开代码编辑窗口，编写三个命令按钮的单击事件过程。 参考代码: Private Sub Command1_Click() Image1.Picture = LoadPicture(App.Path& "\Misc34.ico") End Sub Private Sub Command2_Click() Image1.Picture = LoadPicture(App.Path& "\Misc37.ico") End Sub Private Sub Command3_Click() Image1.Picture = LoadPicture() End Sub :按要求将文件保存至考生文件夹中。 二、简单应用题 步骤3 第1小题 【知识点拔】控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有唯一的索引号(Index)，即下标，默认索引号从0开始。控件数组的Count属性值可返回该控件数组中元素的个数。 【审题分析】本题原程序在"计算"按钮的单击事件过程中，用变量a记录最高得分，用变量b记录最低得分，用变量s记录得分总数，这三个变量的初值均为文本框数组Text1中第一个元素的值。原程序通过For循环将文本框数组Text1中第2~6(索引号为1~5)个元素的值依次累加入变量s，并依次与变量a、变量b比较大小，将较大值存入变量a，将较小值存入变量b。故第一个,处应改为:5(或Text1.Count-1)，第两个,处应改为:a。去掉一个最高得分和一个最低得分后，剩下求平均分的元素只有4个，故第三个,处应改为:4。所得平均分乘以3，再乘以难度系数即为最后得分，故第4个,处应改为:s。最后结果保留到第2位小数(不四舍五入)后显示中文本框Text3中，故第5个,处应改为:Text3.Text。 【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt3.vbp，在代码编辑窗口，去掉程序中的注释符"’"，将问号"?"改为正确的 —27— If Option1.Value = True Then s = 1 For k = 1 To n s = s * k Next End If If Option2.Value = True Then s = 0 For k = 1 To n s = s + k Next End If Text1 = s End Sub 步骤3:按要求将文件保存至考生文件夹中。 步骤4:按<F5>键键运行程序，选择不同选项，单击"数值"菜单项，并且选择一个可用的数值，然后单击"计算"按钮得到结果，最后单击"存盘"按钮保存结果。 三、综合操作题 【知识点拔】While循环和Do循环是用条件来控制的循环。Do循环语句的功能是:当指定的"循环条件"为真或直到指定的"循环条件"变为真之前重复执行循环体。 【审题分析】根据题意，数列第n项的值源于该项前两项的乘积。本题原程序中，将文本框Text1的输入值赋予变量a作初值，将文本框Text2的输入值赋予变量b作初值，并把a、b初值作为数列的前两项。故第一个,处应改为:b。将文本框Text3的输入值赋予变量n，以标记数列最终要生成的项数。变量k用于记录数列当前项数，初值为2。 在Do循环中，首先将a、b的乘积赋予变量c(当前项数k增1)，然后判断c的值是否小于10，若c小于10则c即为数列的第3项，并将b的值赋予变量a，c的值赋予变量b，以便计算数列下一项的值;若c不小于10，则取a和b乘积十位上的数(即d=c \ 10)作数列的第3项，将d的值赋予变量a(当前项数k 增1)，并进一步判断当前k值是否小于或等于最终要生成的项数n，若是则取a和b乘积个位上的数(即d=c Mod 10)作数列的第4项，将d的值赋予变量b，以便计算数列下一项的值。重复执行循环体，即可依次求出数列后续项的值。 【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt.vbp，在代码编辑窗口，去掉程序中的注释符"’"，将问号"?"改为正确的" & b a = b If k <= n Then b = d :按要求将文件保存至考生文件夹中。 步骤2 第五十套上机答案解析215 一、基本操作题 第1小题 【审题分析】本题只需按题目在窗体中画出控件，并设置相关属性即可。 【操作步骤】 步骤1:新建一个"标准EXE"工程，如表1在窗体中画出控件并设置其相关属性。 表 1 步骤2:按要求将文件保存至考生文件夹中。 第2小题 【知识点拔】?Date函数用于获取当前系统日期，Time 函数用于获取当前系统时间。?AutoSize属性用来确定是否根据Caption属性指定的标题自动调整标签的大小，可以设置为True或False。 【审题分析】本题只需在"日期"按钮的单击事件过程中，通过调用Date函数在标签中显示当前系统日期;在"时间"按钮的单击事件过程中，通过调用Time函数在标签中显示当前系统时间。 【操作步骤】 步骤1:新建一个"标准EXE"工程，如表2在窗体中画出控件并设置其相关属性。 表 2 步骤2:在代码编辑窗口编写以下事件过程。 参考代码: Private Sub Command1_Click() Label1.Caption = Date End Sub Private Sub Command2_Click() Label1.Caption = Time End Sub 步骤3:按要求将文件保存至考生文件夹中。 二、简单应用题 第1小题 【知识点拔】Sqr(N)求平方根函数，用于返回N的算术平方根。 【审题分析】完全平方数的判断其实比较简单，只需要求取a(i)的平方根，然后判断这个平方根是不是整数，一般使用将平方根取整后判断是否等于平方根即可。 求完全平方数的平均值，只需要在循环中每次找到一个完全平方数就将其累加到累加和中，同时令计数器加1，循环结束后用累加和除以个数即得到平均值。 【操作步骤】 步骤1:打开考生文件夹下的本题工程文件sjt3.vbp，在代码编辑窗口的指定位置输入代码: 参考代码: Private Sub Command2_Click() ‘考生编写 Dim sum As Integer, Aver As Single Dim n As Integer For i = 1 To 100 If Fix(Sqr(a(i))) = Sqr(a(i)) Then n = n + 1 sum = sum + a(i) End If Next i Aver = sum / n Text1.Text = Fix(Aver) End Sub 步骤2:按要求将文件保存至考生文件夹中。 步骤3:按<F5>键键运行程序，单击"读数据"按钮，然后单击"计算"按钮，最后通过窗体右上角的关闭按钮结束程序。 第2小题 【审题分析】在"演示"按钮的单击事件中，首先判断当前本按钮的标题值，若其为"演示"，则启用计时器，并将本按钮的标题设置为"暂停";否则停用计时器，并将标题设置为"演示"。 在计时器的Timer事件中实现标签的向右滚动，若标签的左边界移出了窗体(Label1.Left > Form1.Width)，则令标签回到左边界以外(Label1.Left = -Label1.Width);否则令其左边界属性加上100实现向右滚动。 【操作步骤】 —28— 步骤1:打开考生文件中的本题工程文件sjt4.vbp，如表3画出控件并设置控件的相关属性。 表 3 步骤2:打开代码编辑窗口，在代码编辑窗口，去掉程序中的注释符"’"，将问号"?"改为正确的内容。 参考代码: If Command1.Caption = "演示" Then Timer1.Enabled = True Timer1.Enabled = False If Label1.Left > Form1.Width Then Label1.Left = Label1.Left + 100 :按要求将文件保存至考生文件夹中。 步骤3 三、综合操作题 【知识点拔】Rnd()函数用于产生一个小于1但大于或等于0的随机数值。为了生成某个范围内的随机整数，可使用以下公式: Int((upperbound - lowerbound +1) * Rnd + lowerbound) 这里，upperbound是随机数范围的上限，而lowerbound则是随机数范围的下限。 【审题分析】本题在"产生数组"按钮的单击事件过程中，通过For循环生成20个0,10之间(不含0和10)互不相同的随机数，并存入数组a，其中生成函数的表达式应为:Fix(Rnd *9 + 1)。同时初始化b数组每个元素值为1。 在"统计"按钮的单击事件过程中，通过双重的For循环逐一计算出数组a中的元素重复的次数并计入数组b的相应元素中，然后从中找出最大值fmax，循环结束后显示出来。 在"退出"按钮的单击事件过程中，使用End语句结束整个程序的运行。 【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sjt5.vbp， 在窗体上画三个命令按钮，属性及其值如表4所示。 表 4 步骤2:在代码编辑窗口，去掉程序中的注释符"’"，将问号"?"改为正确的内容。 参考代码: a(i) = Fix(Rnd * 9 + 1) For j = 1 To i – 1 If b(i) > fmax Then fmax = b(i) If b(i) = fmax ThenEnd 步骤3:按要求将文件保存至考生文件夹中。 第五十一套上机答案解析216 一、基本操作题 第1小题 【审题分析】本题需用菜单设计器建立菜单，并适当设置菜单项的复选、可用等属性。 表1 【操作步骤】 步骤1:新建一个"标准EXE"工程，将窗体Form1的Caption属性值设置为"菜单练习"。 步骤2:选择【工具】?【菜单编辑器】命令，打开菜单设计器，如表1中的设置建立菜单项。 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【知识点拔】&运算符用来强制两个表达式作字符串连接。 【审题分析】本题只需在两个单选按钮的单击事件过程中，用Print方法将文本框中的 Sum = 0 Counter = 0 Max = 0 For j = 1 To 40 If a(i, j) Mod 2 = 1 Then Sum = Sum + a(i, j) Counter = Counter + 1 Else If a(i, j) > Max Then Max = a(i, j) End If End If Next Avg = Sum / Counter Label1(i - 1).Caption = Max Text2(i - 1).Text = Int(Avg * 100) / 100 Next 步骤2:按要求将文件保存至考生文件夹中。 步骤3:按<F5>键运行程序，先单击"显示数据"按钮，接着单击"统计"按钮，然后单击"保存"按钮保存结果。 第五十二套上机答案解析217 一、基本操作题 第1小题 【知识点拔】复选框(CheckBox)组常用于提供多个选项间的多重选择，Value属性值决定每个复选框的选中状态:0,Unchecked为未选，1,Checked为选中，2,Grayed为禁用(以灰色呈现)。选择某复选框后，该复选框将显示"?"，而取消选择后，"?"消失。 【审题分析】本题只需按要求画出控件数组，并设置其Value属性。 【操作步骤】 步骤1:新建一个"标准EXE"工程。 步骤2:在窗体Form1中加入一个复选框，并用"复制" 和"粘贴"的方法，生成包含三个元素的复选框数组。 步骤3:分别设置窗体和复选框数组中各元素的相关属性，其属性及值如表1所示。 步骤4:按要求将文件保存至考生文件夹中。 表 1 第2小题 【知识点拔】?文本框的Text属性可返回或设置文本框中显示的 Text2 = Text1.SelText End Sub Private Sub Command2_Click() Form1.Text1.SelText = "" End Sub 步骤3:按要求将文件保存至考生文件夹中。 二、简单应用题 第1小题 【知识点拔】?Alignment属性用于确定文本框中文本的放置方式，其值可以设置为0(靠左，默认)、1(靠右)或2(居中)。?组合框(ComboBox)将文本框与列表框的特性组合在一起，既可在组合框的文本框部分输入信息，也可在列表框部分选择项目，其Text属性可返回列表框中当前选中项目的 —30— Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … Case Else [语句块n+1]] End Select 【审题分析】本题可通过Select Case语句对组合框的Text属性返回值逐一进行判断，并根据Text属性值不同，分别进行相应运算。为实现"第4位截去"的功能，可将运算值乘以1000后取整，再除以1000。 【操作步骤】 :打开考生文件夹中的工程文件sjt3.vbp，依次选中窗体中的两个文本框， 步骤1 将其Alignment属性值设置为1-Right Justify。 步骤2:双击窗体中的"计算"命令按钮，在打开的代码编辑窗口中编写其单击事件过程。 参考代码: Private Sub Command1_Click() Const PI = 3.14159 Select Case Combo1.Text Case "sin": a = Sin(CInt(Text1.Text) * PI / 180) Case "cos": a = Cos(CInt(Text1.Text) * PI / 180) End Select Text2 = Int(a * 1000) / 1000 End Sub 步骤3:按<F5>键键运行程序，在左侧文本框中输入"40"，选择不同选项，单击"计算"按钮。 步骤4:单击窗体右上角的关闭按钮以结束程序。 步骤5:按要求将文件保存至考生文件夹中。 第2小题 【审题分析】可借助计时器来完成有规律性时间间隔执行的任务。本题计时器工作时，为使文本框2中的数每隔1秒加1，需将计时器的Interval属性值设置为1000毫秒，但是还可能每隔10秒变化一次，因此需要全局变量num来保存当前的秒数，每一次执行计时器的Timer事件就令num加1，10秒后再使得Text2加10，当num超过60的时候就令Text1加1然后把Text2置0。 【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符"’"，将问号"?"改为正确的内容。 参考代码: num = num + 1 Text2.Text = Text2.Text + 10 Text1.Text = Text1.Text + 1 步骤2:按要求将文件保存至考生文件夹中。 三、综合操作题 【知识点拔】Move方法用于移动窗体或控件，其语法为:对象名.Move Left，top，width，height。 【审题分析】计时器只在设计时可见，计时器是否启用由其Enabled属性设置，值可取True或False。启用后由Interval属性设置间隔多长时间触发一次其Timer事件，Interval属性的单位为毫秒，默认值为0，此时计时器不启用。 根据程序已提供源代码可知，Timer1用于控制红绿灯变换:第1秒亮黄灯，第2、3秒亮红灯，第4、5、6秒亮绿灯。变量a记录了信号灯运行的秒数，每触发一次Timer1的Timer事件，a就加1，当信号灯每亮完一轮，变量a又从第1秒开始计时。 Timer2用于控制汽车行驶，每触发一次Timer2的Timer事件，汽车向左移动10。在汽车行经红绿灯下方(即P2.Left > P1.Left And P2.Left < P1.Left + P1.Width)时，遇黄灯或红灯亮(即a<4)时停车(通过设置Timer2.Enabled=False实现)，否则继续行进。当汽车行至距窗体100时，也设置Timer2.Enabled=False停车。 布尔型变量b用于记录是否已单击"开车"按钮，若是b=True，在亮起绿灯时及时启动Timer2。 【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sjt5.vbp。 步骤2:打开代码编辑窗口，去掉程序中的注释符"’"，将问号"?"改为正确的 —31— Private Sub Command1_Click() Shape1.Width = Shape1.Width + 100 End Sub Private Sub Command2_Click() Shape1.Height = Shape1.Height + 100 End Sub 步骤3:按要求将文件保存至考生文件夹中。 二、简单应用题 第1小题 【审题分析】本题原程序在"分解"按钮的单击事件中，首先要求判断输入的值是否大于2，若不大于2则要求继续输入，循环的条件应该是Until n > 2;在循环中进行因式分解，首先设第一个因子Factor为2，如果n可以被Factor整除则证明Factor是n的因子，将其输出到文本框中再继续循环看还能够被2整除;判断完毕后将Factor加1继续判断下一个因子的判断。 【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sjt3.vbp，在其中画出一个名为Text1，初始内容为空的文本框。 步骤2:打开代码编辑窗口，去掉程序中的注释符"’"，将问号"?"改为正确的内容。 参考代码: Loop Until n > 2 Do While n Mod Factor = 0 Factor = Factor + 1 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【审题分析】本题首先利用一个三重循环为二维数组设初值，k用来控制层数 为a(i,j)赋值，i控制的循环用来控制行，其值从k到n-k+1，j控制的循环用于控制列，其值也是从k到n-k+1，在循环中把层数k的值赋值给a(i,j)。 输出结果也是通过一个二重循环来实现，在每一行中固定列的位置输出a(i,j)，内循环结束后通过Print语句实现换行。 【操作步骤】 步骤1:打开考生文件夹下的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符"’"，将问号"?"改为正确的内容。 参考代码: For j = k To n - k + 1 a(i, j) = k Print Tab(j * 3); a(i, j); Print 步骤2:按要求将文件保存至考生文件夹中。 三、综合操作题 【知识点拔】Rnd()函数用于产生一个小于1但大于或等于0的随机数值。为使每次程序运行时，得到不同的随机数数列，在使用Rnd()函数产生随机数前应用Randomize语句对随机数生成器进行初始化，该生成器能根据系统计时器得到新的种子值。为了生成某个范围内的随机整数，可使用以下公式: Int((upperbound- lowerbound + 1) * Rnd + lowerbound) 这里，upperbound是随机数范围的上限，而lowerbound则是随机数范围的下限。 【审题分析】本题在"产生数组"按钮的单击事件过程中，通过For循环生成50个100以内互不相同的随机数，并存入数组a，其中生成函数的表达式应为:Int(Rnd * 100)。为防止生成相同的随机数值，每新生成一个随机数后，都通过For循环让其与之前生成的i-一个随机数逐一比较，若新生成的随机数已存在，则将当前循环变量i的值减1，重新为数组元素a(i) 生成随机数。 在"排序"按钮的单击事件过程中，使用冒泡法对数组a进行排序，冒泡法是一种重要的数据排序算法，它的核心思路是按顺序让一个数列中的每一个数都与它之后的所有的数逐一进行比较，如果该数大于其后面的数，则把这两个位置的数进行交换。通过这样的循环，最终按照从小到大的顺序排列出该数列。 【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sjt5.vbp， 在窗体上画两个文本框，属性及其值如表3所示。 表 3 步骤2:在代码编辑窗口，去掉程序中的注释符"’"，将问号"?"改为正确的 b(i) = a(i, j) c(i) = j End If Next 步骤2:按要求将文件保存至考生文件夹中。 步骤3:按<F5>键运行程序，单击窗体上的命令按钮完成计算并存盘的工 作。 第五十五套上机答案解析220 一、基本操作题 第1小题 形状控件(Shape)提供了显示一些 规则 编码规则下载淘宝规则下载天猫规则下载麻将竞赛规则pdf麻将竞赛规则pdf 图形的简易方法。通 【知识点拔】? 过设置形状控件Shape属性值，可显示6种图形:0,矩形、1,正方形、2,椭圆、3,圆、4,圆角矩形、5,圆角正方形。Width属性用于设置形状的宽度，当形状为圆时即为圆的直径。?窗体的标题由其Caption属性设置，窗体的MaxButton属性、MinButton 属性决定其标题栏是否显示最大化按钮、最小化按钮，True表示显示，False表 示不显示。 【审题分析】本题只需按要求建立程序界面并设置窗体和形状控件相关属性即可。 【操作步骤】 步骤1:新建一个"标准EXE"工程，在窗体Form1中加入一个形状控件，其相关属性设置如表1所示。 表 1 步骤2:按要求将文件保存至考生文件夹中。 第2小题 【知识点拔】?鼠标事件分点击事件和状态事件。点击事件有单击事件(Click)和双击事件(DblClick)，不区分左右键;状态事件有按下事件(mousedown)、移动事件(mousemove)和弹起事件(mouseup)。 状态事件涉及Button、Shift两个参数:Button参数是一个整数，值可能为1(左键)、2(右键)或4(中间键);Shift参数也是一个整数，用来代表用户是否按下<Shift>键(值为1)、<Ctrl>键(值为2)、<Alt>键(值为4)或这些键的组合。 ?弹出式菜单是显示于窗体之上，独立于菜单栏的浮动式菜单。PopupMenu方法可在对象上的当前鼠标位置或指定的坐标位置显示弹出式菜单。 【审题分析】要创建本题的弹出式菜单需先用菜单编辑器来建立菜单，并将其主菜单项的可见(即Visible)属性值设置为False，然后在窗体的MouseDown(或MouseUp)事件过程中，判断该事件的Button参数值是否为2，若是则执行窗体的PopupMenu方法来显示菜单。 【操作步骤】 步骤1:新建一个"标准EXE"工程，选择【工具】?【菜单编辑器】命令，打开菜单设计器，如表2中的设置建立菜单项。 表 2 :打开代码编辑窗口，编写窗体的事件过程以显 步骤2 示弹出式菜单。 参考代码: Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Call Me.PopupMenu(file) End If End Sub 步骤3:按要求将文件保存至考生文件夹中。 二、简单应用题 第1小题 【知识点拔】组合框的列表项既可以在设计阶段通过其List属性设置加入(注意:每输入完一项后按<Ctrl+Enter>键换行再输入下一项)，也可在程序运行时通过AddItem方法加入，其语法为:组合框名.AddItem 项目字符串[,索引值]。其中，"索引值"可以指定插入项在列表框中的位置，表中的项目从0开始计数。如果省略"索引值"，则文本被放在列表框的尾部。 【审题分析】本题需要先把命令按钮2设置为不可用状态，然后在"修改"命令按钮的Click事件中使命令按钮2可用;进行列表框当前选中项的替换，当前选中项应该使用Combo1.List(Form1.Combo1.ListIndex)来表达;向组合框中输入项目，应使用AddItem方法。 【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt3.vbp，在属性设置窗口，设置Command2的Enabled属性值为False。 —33— 步骤2:在代码编辑窗口，编写三个命令按钮按钮的单击事件过程。 参考代码: Command2.Enabled = True Combo1.List(Form1.Combo1.ListIndex)=Text1 Form1.Combo1.AddItem Text1 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【审题分析】本题利用计时器来控制红、黄、绿灯之间的循环切换。在"开始"按钮的单击事件过程中，将根据两个水平滚动条的Value属性值，来分别设定红灯和绿灯亮的时间数(用变量red和green记录)。在每次触发的计时器Timer事件时，首先判断当前红灯是否亮(即Picture1是否显示)，若红灯亮则将设定的红灯时间red减1，并再次判断red的值是否为0，若为0则红灯灭黄灯亮(即Picture1不显示，Picture3显示);如果当前是黄灯亮(即Picture3显示)，则黄灯灭(即Picture3不显示)，此时若red为0，则绿灯亮(即Picture2显示)且重新设定red，否则红灯亮(即Picture1显示)且重新设定green;如果当前是绿灯亮(即Picture2显示)，则将设定的绿灯时间green减1，并再次判断green的值是否为0，若为0则绿灯灭黄灯亮(即Picture2不显示，Picture3显示)。 【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符"’"，将问号"?"改为正确的语句块 Wend 功能:在给定的条件为真(True)时，执行循环中的"语句块"。 ?素数的判断准则就是看该数除了1和其本身外有无其他约数。 【审题分析】程序设计思路:要找出小于给定数的最大素数，可以定义一个初值比给定数小1的整型变量n，通过调用函数prime(x)，以其返回值不是素数作为While循环语句的循环条件，在循环体中加入语句:n=n-1实现每执行循环体一次变量n的值减1，当循环结束时n的值即为一个最大素数。 【操作步骤】 :打开本题对应工程文件sjt5.vbp。 步骤1 步骤2:打开窗体代码窗口，补充完整"读数"按钮的Click事件和判断素数的过程prime(x)。 参考代码: Input #1, a% prime = False 步骤3:双击窗体Form1上的"计算"按钮，打开代码编辑窗口，在其Click事件过程中输入如下代码: 参考代码: n = Val(Text1.Text) For i = n To 2 Step -1 l = prime(i) If l = True Then Exit For End If Next Text2.Text = i 步骤4:运行程序，单击"读数"按钮进行读数，然后单击"计算"按钮进行计算，最后单击"存盘"按钮保存计算结果。 步骤5:按要求将文件保存至考生文件夹中。 【考试误区】正确使用循环控制结构是解决此题的关键。 第五十六套上机答案解析221 一、基本操作题 第1小题 【知识点拔】程序运行时，通常用单击命令按钮的方式来选中某个按钮，为了能够在按<Enter>键时也选中这个命令按钮，可将其Default属性设置为True，某些情况下为了能够在按<Esc>键时也能选中按钮，则需要将命令按钮的Cancel属性设置为True。 【审题分析】本题只需按题目要求画出含四个元素的按钮数组，并分别设置相应属性。 【操作步骤】 步骤1:新建一个"标准EXE"工程，如表1在窗体中用"复制"和"粘贴"画出控件数组并设置属性。 步骤2:按要求将文件保存至考生文件夹中。 表 1 【主要考点】控件数组画法。 第2小题 【审题分析】由于计时器的Interval属性初始为0，而程序一开始运行时计时器即变为可用，需在窗体的Load事件过程中用语句设置其Interval属性值为1000。为使标签交替显示或隐藏，每次计时器的Timer事件中都应该令标签的Visible属性取相反值。 【操作步骤】 步骤1:新建一个"标准EXE"工程，如表2在窗体中画出控件并设置其相关属性。 表 2 步骤2:在代码编辑窗口编写窗体的Load事件和计时器的Timer事件过程。 参考代码: Private Sub Form_Load() Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() —34— Label1.Visible=Not Label1.Visible End Sub 步骤3:按要求将文件保存至考生文件夹中。 二、简单应用题 第1小题 【审题分析】在"成交"按钮的单击事件中，首先将文本框中的值显示在图片框中，然后依次判断单选按钮数组中哪个按钮被选中并显示在图片框中，最后通过循环依次判断三个复选框是否被选中(Value属性为1)，若选中也显示在图片框中。 在"放弃"按钮的单击事件中，将文本框中的文本清空，同时将所有单选按钮和复选框都设为未选中状态，清除图片框上的 Sum = 0 Counter = 0 For j = 1 To 40 If a(i, j) < 50 Then Sum = Sum + a(i, j) Counter = Counter + 1 End If Next Avg = Sum / Counter Label1(i - 1).Caption = Sum Text2(i - 1).Text =Int(Avg*100)/100 Next 步骤2:按要求将文件保存至考生文件夹中。 步骤3:按<F5>键运行程序，先单击"显示数据"按钮， 接着单击"统计"按钮，然后单击"保存"按钮保存结果。 第五十七套上机答案解析222 一、基本操作题 第1小题 【知识点拔】?组合框(ComboBox)将文本框与列表框的特性组合在一起，既可在组合框的文本框部分输入信息，也可在列表框部分选择项目。可通过修改 -Dropdown Combo时，表示下组合框的Style属性值来改变其显示类型，值为0 拉式组合框，包括一个下拉式列表和一个文本框，可以从列表选择或在文本框中输入;值为1-Simple Combo时，表示简单组合框，包括一个文本框和一个不带下拉的列表，可以从列表中选择或在文本框中输入，增加其高度可显示列表的更多部分;值为2-Dropdown List时，表示下拉式列表，这种样式仅允许从下拉式列表中选择。 ?组合框的列表项既可以在设计阶段通过其List属性设置加入(注意:每输入完一项后按<Ctrl+Enter>键换行再输入下一项)，也可在程序运行时通过AddItem方法加入，其语法为:组合框名.AddItem 项目字符串[,索引值]。其中，"索引值"可以指定插入项在列表框中的位置，表中的项目从0开始计数。如果省略"索引值"，则文本被放在列表框的尾部。 【审题分析】本题只需按要求设计程序界面，并设计相关属性即可。 【操作步骤】 :新建一个"标准EXE"工程，如表1在窗体中画出控件并设 步骤1 置其相关属性。 表 1 步骤2:按要求将文件保存至考生文件夹中。 【考试误区】注意组合框的List属性(对象)和Text属性的区别。 第2小题 【知识点拔】文本框通常用于接收用户输入的字符串数据或用于显示输出信息，其Text属性用于设置或返回文本框中显示的文本，当文本框中文本 —35— Private Sub Command1_Click() Text1.Enabled = True End Sub Private Sub Text1_Change() Text2.Text = UCase(Text1.Text) End Sub 步骤3:按要求将文件保存至考生文件夹中。 【考试误区】本题所用事件过程是文本框的Change事件过程而非其他。 二、简单应用题 第1小题 【审题分析】数组a中元素的位置自动对调(即第一个数组元素与最后一个数 组元素对调， 第二个数组元素与倒数第二个数组元素对调……)可以在一个循环中进行，即第i个元素和第20-i+一个元素互换，问题的关键是循环的次数应该是10次而不是20次。 【操作步骤】 :打开考生文件夹中的工程文件sjt3.vbp 步骤1 步骤2:打开代码编辑窗口中编写"变换"按钮的单击事件过程。 参考代码: Private Sub Command2_Click() ‘考生编写 For i = 1 To 10 temp = a(i) a(i) = a(20 - i + 1) a(20 - i + 1) = temp Next i ‘以下程序段将已变换的数组元素显示在Text2文本框中 For k = 1 To 20 Text2 = Text2 + Str(a(k)) + Space(2) Next k End Sub 步骤3:按<F5>键键运行程序，先单击"读数据"按钮，然后单击"变换"按钮。 步骤4:单击窗体右上角的关闭按钮以结束程序。 步骤5:按要求将文件保存至考生文件夹中。 第2小题 【审题分析】本题在"统计"按钮的单击事件过程中，先检查是否选中文本框Text1中的内容(if语句条件表达式为:sl=0或st=" ")，若没选择内容则弹出提示信息，否则通过For循环逐一取出选中内容的每个字符(故循环终值为sl)，并计算出其中每个字母(大写)在26个字母中的顺序，赋值给变量n，数组元素a(n)则记录顺序号为n的字母出现的次数。再通过For循环逐一检查26个字母(故循环终值为26)的出现次数是否为0(即a(i) = 0)，将出现次数为0的字母显示在文本框Text2中。 【操作步骤】 步骤1:打开考生文件下的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符"’"，将问号"?"改为正确的内容。 参考代码: If sl = 0 Then For i = 1 To sl a(n) = a(n) + 1 For i = 1 To 26 步骤2:按要求将文件保存至考生文件夹中。 三、综合操作题 【知识点拔】"冒泡法"是一种重要的数据排序算法，它的核心思路是按顺序让一个数列中的每一个数都与它之后的所有的数逐一进行比较，如果该数大于其后面的数，则把这两个位置的数进行交换。通过这样的循环，最终按照从小到大的顺序排列出该数列。 【审题分析】单击"添加"按钮时先检查当前已输入学生信息数n是否已达到10条，若没达到10条，则标记变量tag_in=0表示允许添加信息(且学生信息数n增1)，否则tag_in=1。当tag_in=0时，接着检查是否输入学号，若没输入学号则提示用户输入，且学生信息数n应减1(即n=n-1);若已输入学号，则将该学生信息存入记录数组元素stud(n)，其中保存学号的语句为:stud(n).Num=Text1。 在"排序"按钮的单击事件过程中，原程序利用"冒泡法"对记录数组中的元素按平均分从大到小进行排序。故该事件过程中，第一个,处 应改为:j+1，第两个,处应改为:Average，第三个,处应改为:stud(j)。最后在For循环中，用图片框的Print方法在图片框中显示每个学生的3项信息。 【操作步骤】 步骤1:打开考生文件下的本题工程文件sjt5.vbp，在代码编辑窗口，去掉程序中的注释符"’"，将问号"?"改为正确的 List1.AddItem List1.Text End Sub Private Sub Command2_Click() List1.RemoveItem List1.ListIndex End Sub 步骤3:按要求将文件保存至考生文件夹中。 二、简单应用题 第1小题 【审题分析】本题全部控件已画出，只需按题目要求 —36— 完善其他相关事件过程。由于标签在窗体上的移动是在计时器的Timer事件过程中完成的，单击"移动"按钮时就应启动计时器，单击"停止"按钮时要停止标签移动，就是要停止计时器。在Timer1_Timer事件过程中，要让标签每次自左至右移动100，可在每个时间间隔使标签的Left属性值在原有基础上加100来实现;为防止标签移出窗体，在执行移动语句前先用Select Case语句对flag的值进行判断，若其为0则向右移动，Left属性增加，当标签移到窗体右侧时(Label1.Left + Label1.Width = Form1.Width)将flag置1;当flag Label1.Left = 0)将为1时向左移动，Left属性减少，当标签移到窗体左侧时( flag置1。 【操作步骤】 步骤1:打开考生文件夹下的本题工程文件sjt3.vbp。 步骤2:在窗体Form1中加入一个标签并设置相关属性，其属性和值如表3所示。 表 3 步骤3:在代码编辑窗口，去掉程序中的注释符"’"，将问号"?"改为正确的内容。 参考代码: Timer1.Enabled = True Label1.Left = Label1.Left + 100 Label1.Left = Label1.Left - 100 步骤4:按要求将文件保存至考生文件夹中。 【主要考点】计时器控件。 第2小题 【审题分析】本题原程序在"统计得分"按钮的单击事件过程中，先检查是否在文本框中输入了编号及各评委的打分，若没输入则给出提示信息，并等待用户输入。接着用变量Max、Min和Sum分别记录选手的最高得分、最低得分及总得分，它们的初值均设置为第一位评委的打分(即Text2(0).Text)。然 后通过For循环逐一与其他评委的打分相比(循环变量n的初值应为1)，若Max的值小于某评委的打分(即Case Is > Max)，则将该评委的打分赋值给Max;若Min的值大于某评委的打分(即Case Is < Min)，则将该评委的打分赋值给Min。计算总分的表达式应为:Sum = Sum + Val(Text2 (n))(或Sum = Val(Text2 (0)) + Val(Text2 (n)))。最后将选手编号和计算出的得分用Print方法显示在图片框Picture1中，并将所有文本框的内容置空。 【操作步骤】 : 打开考生文件下的本题工程文件sjt4.vbp，如表4在窗体中画出控件 步骤1 并设置其相关属性。 表 4 步骤2:在代码编辑窗口，去掉程序中的注释符"’"，将问号"?"改为正确的内容。 参考代码: For n = 1 To 9 Case Is > Max Case Is < Min Sum = Sum + Val(Text2(n)) 步骤3:按要求将文件保存至考生文件夹中。 三、综合操作题 【审题分析】本题可利用一个嵌套的For循环来完成计算工作:在外循环(循环变量的取值为1~20)体中，先初始设置记录每行最小数的变量min的初值为每行的第一个数，接着通过 Sum = 0 For i = 1 To 20 Min = a(1, 1) For j = 2 To 5 If Min > a(i, j) Then Min = a(i, j) Next Sum = Sum + Min Next Text2 = Sum / 20 步骤3:按要求将文件保存至考生文件夹中。 步骤4:按<F5>键运行程序，先单击"读数据"按钮，接着单击"计算"按钮，然后单击窗体右上角的关闭按钮结束程序。 第五十九套上机答案解析224 一、基本操作题 第1小题 【知识点拔】窗体的ControlBox属性用于设置运行时是否在窗体上显示控件菜单栏，即左侧的控制菜单和右侧的最大化按钮、最小化铵钮和关闭按钮。 【审题分析】本题只需在窗体上画出控件并且按照要求设置属性即可。 【操作步骤】 步骤1:新建一个"标准EXE"工程，如表1在窗体中画出控件并设置其相关属性。 表1 对象属性设置 :按要求将文件保存至考生文件夹中。 第2小题 步骤2 【审题分析】本题只需按要求画出控件并设置相关属性，然后在命令按钮的单击事件中改变文本框的字形即可。 【操作步骤】 步骤1:新建一个"标准EXE"工程，如表2在窗体中画出控件并设置其相关属性。 表 2 —37— 步骤2:打开代码编辑窗口，编写两个命令按钮的Click事件过程。 参考代码: Private Sub Command1_Click() Text1.FontBold = True End Sub Private Sub Command2_Click() Text1.FontItalic = True End Sub 步骤3:按要求将文件保存至考生文件夹中。 二、简单应用题 第1小题 【审题分析】当单击单选按钮数组时需要判断用户单击的是哪个按钮，所以Case语句判断的变量是Index;在计时器的Timer事件中，需要使文本框Text1中的值自增1。 在两个按钮的Click事件中，只需要控制计时器的Enabled属性即可。 【操作步骤】 步骤1:打开考生文件夹下的本题工程文件sjt3.vbp，将计时器Timer1的Enabled属性设置为False。 步骤2:进入代码编辑窗口，去掉程序中的注释符"’"，将问号"?"改为正确的 Timer1.Enabled = True End Sub Private Sub C2_Click() Timer1.Enabled = False End Sub 步骤4:按要求将文件保存至考生文件夹中。 第2小题 【审题分析】本题原程序的"读数据"按钮单击事件过程已完成将in4.dat文件中已按升序方式排列的60个数读入数组A的功能，单击"输入"按钮可接收用户输入并赋值给窗体变量num，题目还要求完善"删除 "按钮的单击事件过程。 在"删除"按钮的单击事件过程中，通过For循环逐一查找num与读入数组A的60(n=60)个数是否相等，若找到退出循环。若未找到循环结束后i>n，则弹出提示信息，否则将从找到位置(i)开始到n-1位置的元素的值依次指定为从i+1到n位置元素的值。最后将1~n-1位置的数组元素重新显示在在文本框中。 【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符"’"，将问号"?"改为正确的内容。 参考代码: If num = a(i) Then Exit For If i>n Then(或num < a(1) Or num > a(60)) For j = i To n a(j) = a(j + 1) For k = 1 To n 步骤2:按要求将文件保存至考生文件夹中。 三、综合操作题 【审题分析】本题在"统计"按钮的单击事件过程中，先检查是否选中文本框Text1中的内容(if语句条件表达式为:sl=0或st=" ")，若没选择内容则弹出提示信息，否则通 过For循环逐一取出选中控件属性设置 步骤3:打开代码编辑窗口，编写命令按钮的单击事件过程。 参考代码: Private Sub C1_Click() Text2.Text = Text1.Text End Sub 步骤4:按要求将文件保存至考生文件夹中。 二、简单应用题 第1小题 —38— 【知识点拔】Mid(字符串,起始位置[,个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串。 【审题分析】程序设计思路:从文本框的第一个字符开始依次检查其后面的每一个字符，若发现空格则将其之前或两个空格之间的字符串作为一个单词添加到列表框中。在Do循环(指 <= Len(S1) List1.AddItem S2 S2 = "" 步骤3:按要求将文件保存至考生文件夹中。 【特别提示】以空格作为分隔单词的依据是本题的关键，同时注意空格字符串和空字符串是完全不同的。 【主要考点】多重Do循环、字符串函数。 第2小题 【审题分析】本题"添加"按钮的单击事件过程源代码设计思路:利用For循环语句(初值为0，终值为Cb1.ListCount-1)，逐一判断组合框列表框中的各项是否与文本输入框中的内容一致(条件表达式为Cb1.List(i) = Cb1.Text)，若一致则设置布尔型变量flag的值为True，并且退出循环，否则设置变量flag的值为False。 循环结束后，通过判断flag的值是否为True(条件表达式为flag=True，可简写为flag)，如果条件为真，则利用MsgBox语句显示"项目已存在，请重新输入～"，否则利用AddItem方法将当前文本输入框中的内容(Cb1.Text)添加到组合框列表框中。 【操作步骤】 步骤1:打开考生文件下的本题工程文件sjt4.vbp。 步骤2:打开代码编辑窗口，去掉程序中的注释符"’"，将问号"?"改为正确的内容。 参考代码: For i = 0 To Cb1.ListCount - 1 If Cb1.List(i) = Cb1.Text Then Cb1.AddItem Cb1.Text 【主要考点】组合框控件。 三、综合操作题 【审题分析】程序设计思路:在窗体的加载事件过程中，用Open语句以Input方式打开数据文件in5.txt，并用Line Input语句读出所有字符后显示在文本框中;在"存盘"按钮的单击事件过程中，用Open语句以Output方式打开数据文件out5.txt，并用Print #方将文本框的内容存入该文件。 【操作步骤】 步骤1:新建一个"标准EXE"工程，如表3在窗体中画出控件并设置其相关属性。 表3 步骤2:打开代码编辑窗口，编写相应事件过程。 参考代码: Private Sub C1_Click() Open "out5.txt" For Output As #1 Print #1, Text1.Text Close #1 End Sub Private Sub Form_Load() Open "in5.txt" For Input As #1 Text1.Text = "" Do While Not EOF(1) Line Input #1, a$ Text1.Text = Text1.Text + a$ + Chr(13) + Chr(10) Loop Close #1 End Sub 步骤3:按要求将文件保存至考生文件夹中。 步骤4:按<F5>键键运行程序，在文本的最前面手工插入一行汉字:" 计算机等级考试"，然后单击"存盘"按钮保存结果。 —39—