VFP二级100套上机题及答案

第一套一在考生文件夹下完成如下基本操作：1通过SQL INSERT语句插入元组(p7，PN7，1020)到零件信息表(注意不要重复执行插入操作)，并将相应的SQL语句存储在文件one.prg中。2通过SQL DELETE语句从零件信息表中删除单价小于600的所有记录，并将相应的SQL语句存储在文件two.prg中。3通过SQL UPDATE语句将零件信息表中零件号为p4的零件的单价更改为1090，并将相应的SQL语句存储在文件Three.prg中。4打开菜单文件mymenu.mnx，然后生成可执行的菜单程序mymenu.mpr。【解题思路】对于第1、2、3小题，需先在命令窗口中完成正确的SQL语句的编写并执行，然后检查SQL语句的执行结果，接下来新建题目要求的程序文件，最后将SQL语句复制到新建的程序文件中。生成可执行的菜单程序需先打开菜单文件，然后执行菜单菜单中的生成命令。【操作步骤】(1)打开Visual FoxPro，在命令窗口输入： INSE INTO 零件信息 VALUES(p7,PN7,1020)并按下回车键执行语句。然后创建一个程序文件one.prg，把代码复制过去并保存。(2)在命令窗口输入： DELE FROM 零件信息 WHERE 单价=2001-05-01。步骤4：在排序选项卡中指定排序选项为降序，添加字段orders.签订日期，orders.金额。步骤5：选择系统菜单中的查询查询去向表，输入表名为tableone。步骤6：保存查询，输入查询名queryone，在常用工具栏中单击运行按钮，运行该查询。三在考生文件夹下创建一个顶层表单myform.scx，表单的标题为考试，然后创建并在表单中添加一个菜单，菜单的名称为mymenu.mnx，菜单程序的名称为mymenu.mpr，如下图所示。统计和退出菜单命令的访问键分别是T和R，功能都通过执行过程完成。统计菜单命令的功能是以客户为单位从customer表和orders表中求出订单金额的和。统计结果有客户号、客户名和合计3项内容，合计是指与某客户所签所有订单金额的和。统计结果应按合计降序排列，并存放在tabletwo表中。菜单命令退出的功能是关闭并释放表单。最后运行表单并依次执行其中的统计和退出菜单命令。【解题思路】建立表单，修改其ShowWindow属性为2，使其作为顶层表单。建立菜单，在菜单设计器中完成菜单项的建立，在常规选项对话框中将菜单设计为顶层表单，在提示选项对话框中为菜单项设置访问键。【操作步骤】步骤1：在命令窗口输入 Create form myform新建表单。步骤2：将表单的ShowWindow属性设置为2-作为顶层表单。步骤3：双击表单空白处，编写表单的Init事件代码： DO mymenu.mpr WITH THIS, myform步骤4：新建菜单，输入菜单项统计(T)和退出(R)，并为统计菜单项设置访问键ALTT。步骤5：以同样的方式为退出菜单项设置访问键ALTR，并执行显示菜单下的常规选项命令，将此菜单设置为顶层表单。步骤6：为统计和退出菜单项创建过程，写入如下SQL语句。*统计菜单中的命令语句*SELECT Customer.客户号, Customer.客户名, sum(orders.金额) as 合计;FROM customer,orders ;WHERE Customer.客户号 = Orders.客户号;GROUP BY Customer.客户号;ORDER BY 3 DESC;INTO TABLE tabletwo.dbf*退出菜单中的命令语句*Myform.Release*步骤7：保存菜单名为mymenu，生成可执行程序。运行表单，查看结果。第三套一1在考生文件夹下新建一个名为学校的数据库文件，并将自由表教师表、课程表和学院表依次添加到该数据库中。2使用SQL语句ALTER TABLE.UNIQUE.将课程表中的课程号定义为候选索引，索引名是temp，并将该语句存储到文件one.prg中。3用表单设计器向导为课程表建立一个名为myform的表单，选定课程表中的全部字段，按课程号字段降序排列，其他选项选择默认值。4test.prg中的第2条语句是错误的，修改该语句(注意：只能修改该条语句)，使得程序执行的结果是在屏幕上显示10到1，如下图所示。【解题思路】在第2小题中，ALTER TABLE语句用于修改表的结构，其中ADD短语的功能是添加新的字段或索引，UNIQUE短语的功能是指建立候选索引(注意不是唯一索引)，ADD UNIQUE连用表示新增一个候选索引，TAG短语用于指定索引名称。在第4小题中，由题意可知，DO.WHILE循环语句的格式为：DO WHILE ENDDO【操作步骤】(1)在命令窗口输入： Crea Data 学校按下回车键执行语句，打开数据库设计器，将表教师表、课程表和学院表添加到数据库中。(2)新建一个程序，输入： ALTER TABLE 课程表 ADD UNIQUE 课程号 TAG temp 保存程序名为one，最后运行程序。(3)通过表单向导新建一个表单，选定课程表的全部字段作为选定字段，选择按课程号降序排序，完成向导并输入表单文件名myform。(4)打开程序test，将第二行语句改为： DO WHILE i=1保存并运行程序，查看运行结果。二在考生文件夹下完成下列操作：1修改并执行程序temp。该程序的功能是根据教师表和课程表计算讲授数据结构这门课程，并且工资大于等于4000的教师人数。注意，只能修改标有错误的语句行，不能修改其他语句。2在学校数据库中(在基本操作题中建立的)，使用视图设计器建立视图teacher_v，该视图是根据教师表和学院表建立的，视图中的字段项包括姓名、工资和系名，并且视图中只包括工资大于等于4000的记录，视图中的记录先按工资降序排列，若工资相同再按系名升序排列。【解题思路】在第1小题中，对于SQL的查询语句，将查询结果保存到数组中应该使用INTO短语，而不是TO；打开表的命令是USE；SCAN循环语句表示条件的短语应该用FOR，而不是OF；由题意知，变量SUM用于统计满足条件的教师人数，故应使每找到一条满足条件的记录，SUM值自动加1。在第2小题中，视图设计器的使用同查询设计器，考生可以参考前面讲到的查询设计器来设计本题的视图。(1)【操作步骤】打开考生文件夹下的程序文件temp.prg，并按题目的要求进行改错，修改完成后运行程序文件，如下所示。*程序提供的代码*&下句只有一处有错误SELECT 课程号 FROM 课程表 WHERE 课程名=数据结构 TO ARRAY a&下句有错误OPEN 教师表STORE 0 TO sum&下句两处有错误SCAN OF 课程号=a OR 工资=4000&下句有错误 sum+1ENDSCAN?sum*错误1：将 TO 改为 INTO。错误2：将 OPEN 改为 USE。错误3：将 SCAN OF 改为 SCAN FOR。错误4：将 OR 改为 AND。错误5：将 sum+1 改为 sum=sum+1。(2)【操作步骤】步骤1：单击系统菜单中的新建命令，新建一个视图，将表教师表和学院表添加到新建的视图中。步骤2：将教师表姓名、教师表工资和学院表系名添加到选定字段中。步骤3：在筛选选项卡中选择字段教师表工资，条件为=，实例为4000。步骤4：在排序选项卡中，设置按工资降序排序，再按系名升序排序。步骤5：保存视图名为teacher_v。三(1)在考生文件夹下建立一个文件名和表单名均为oneform的表单，该表单中包括两个标签(Label1和Label2)、一个选项按钮组(Optiongroup1)、一个组合框(Combo1)和两个命令按钮(Command1和Command2)，Label1和Label2的标题分别为工资和实例，选项组中有两个选项按钮，标题分别为大于等于和小于，Command1和Command2的标题分别为生成和退出，如下图所示。(2)将组合框的RowSourceType和RowSource属性手工指定为5和a，然后在表单的Load事件代码中定义数组a并赋值，使得程序开始运行时，组合框中有可供选择的工资实例为3000、4000和5000。(3)为生成命令按钮编写程序代码，其功能是：表单运行时，根据选项按钮组和组合框中选定的值，将教师表中满足工资条件的所有记录存入自由表salary.dbf中，表中的记录先按工资降序排列，若工资相同再按姓名升序排列。(4)为退出命令按钮设置Click事件代码，其功能是关闭并释放表单。(5)运行表单，在选项组中选择小于，在组合框中选择4000，单击生成命令按钮，最后单击退出命令按钮。【解题思路】建立表单并添加控件，然后按要求修改各控件的属性；在表单的load事件中定义组合框的数据源，完成命令按钮的代码；当列表框要求为数组时，可以在表单的load事件中进行定义；为选项按钮组设置标题，需要右键单击选项按钮组控件，选择编辑命令。【操作步骤】步骤1：在命令窗口输入： Create Form oneform并按回车键，新建一个名为oneform表单。步骤2：在表单控件中以拖拽的方式向表单中添加两个标签、一个选项组、一个组合框和两个命令按钮，并修改各控件的属性。步骤3：双击表单空白处，编写表单的load事件代码：*表单的load事件代码*public a(3)a(1)=3000a(2)=4000a(3)=5000*步骤4：双击命令按钮，分别编写生成和退出按钮的Click事件代码。*生成按钮的Click事件代码*x=val(bo1.value)if thisform.optiongroup1.value = 1 sele * from 教师表 where 工资 = x order by 工资 desc,姓名 into table salaryelse sele * from 教师表 where 工资 0 if int(x/2)=x/2 s1=s1+1 else s2=s2+1 endif*found* if div(x,3)=0 s3=s3+1 endif x=x-1enddothisform.text2.value=s1thisform.text3.value=s2thisform.text4.value=s3thisform.text5.value=s1+s2+s3*错误1：改为 STORE 0 TO x,s1,s2,s3。错误2：改为 x=val(thisform.text1.value)。错误3：改为 if mod(x,3)=0。步骤2：以同样的方法修改退出按钮的Click事件代码为Thisform.Release三在考生文件夹下有一个名为zonghe的表单文件，其中：单击添加命令按钮可以将左边列表框中被选中的项添加到右边的列表框中；单击移去命令按钮可以将右边列表框中被选中的项移去(删除)。请完善确定命令按钮的Click事件代码，其功能是：查询右边列表框所列课程的学生的考试成绩(依次包含姓名、课程名称和考试成绩3个字段)，并先按课程名称升序排列，课程名称相同的再按考试成绩降序排列，最后将查询结果存储到表zonghe中。注意：(1)SCORE表中的考试成绩字段是在基本操作题中修改的。(2)程序完成后必须运行，要求将计算机基础和高等数学从左边的列表框添加到右边的列表框，并单击确定命令按钮完成查询和存储。【解题思路】在表单设计器中完成命令按钮的Click事件代码的修改或编写。【操作步骤】步骤1：确定命令按钮的Click事件如下。 *确定按钮的Click事件代码*SELECT Student.姓名, Course.课程名称, Score.考试成绩; FROM student INNER JOIN score; INNER JOIN course ; ON Score.课程编号 = Course.课程编号 ; ON Student.学号 = Score.学号; where &cn; ORDER BY Course.课程名称, Score.考试成绩 DESC; INTO TABLE zonghe.dbf*步骤2：保存并运行表单。第五套一1在考生文件夹下打开数据库SCORE_MANAGER，该数据库中有3个表STUDENT、SCORE1和COURSE，根据已经建立好的索引，建立表间联系。2为COURSE表增加字段：开课学期(N,2,0)。3为SCORE1表中的成绩字段设置字段有效性规则：成绩0，出错提示信息是：成绩必须大于或等于零。4将SCORE1表中成绩字段的默认值设置为空值(NULL)。【解题思路】从主索引拖拽到普通索引完成表间联系的建立，在表设计器中可以完成添加字段、设置字段有效性等操作。(N,2,0)表示数据类型为数值型，宽度2，小数位数0。【操作步骤】(1)打开数据库SCORE_MANAGER，在父表中选中主索引，按住鼠标左键拖动至子表相应的普通索引上，释放鼠标。(2)打开表COURSE，在系统菜单中执行显示菜单下的表设计器命令，在最下面输入字段名开课学期，数据类型为数值型(2,0)。(3)在数据库设计器中双击SCORE1表的任意位置打开该表，单击显示菜单中的表设计器命令，在弹出的表设计器中选中成绩字段，在字段有效性中的规则文本框中填入：成绩=0，在信息文本框中填入成绩必须大于或等于零。(4)同上题打开表设计器，选择成绩字段，单击NULL列下的按钮(表示此列允许空值)，然后再在字段有效性中的默认值中填入.NULL.。二在考生文件夹下完成如下简单应用：1在SCORE_MANAGER数据库中查询学生的姓名和2003年的年龄(计算年龄的公式是：2003Year(出生日期)，年龄作为字段名)，结果保存在一个新表NEW_TABLE1中。使用报表向导建立报表NEW_REPORT1，用报表显示NEW_TABLE1的内容。报表中的数据按年龄升序排列，报表标题是姓名年龄，其余参数使用缺省设置。2建立菜单query_menu。该菜单中只有查询和退出两个主菜单项(条形菜单)，其中单击退出菜单项时，返回到Visual FoxPro系统菜单(相应命令写在命令框中，不要写在过程中)。【解题思路】在第1小题中，可以在命令窗口中完成SQL语句的编写，然后通过报表向导完成报表的建立。在第2小题中，Visual FoxPro支持两种类型的菜单：条形菜单和弹出式菜单，其中的条形菜单在新建的过程中需在新建菜单对话框中选择菜单按钮，弹出式菜单在新建的过程中需在新建菜单对话框中选择快捷菜单按钮。(1)【操作步骤】步骤1：在命令窗口中输入如下语句，并执行。SELECT 姓名,2003-Year(出生日期) as 年龄;FROM student; INTO TABLE new_table1.dbf步骤2：通过工具栏中的新建按钮新建报表。步骤3：选择表new_table1的全部字段作为选定字段。步骤4：单击下一步到步骤5，选择按字段年龄升序排序。步骤5：单击下一步，输入报表标题姓名年龄。步骤6：完成报表，输入报表名为new_report1。(2)【操作步骤】步骤1：新建菜单，分别输入查询和退出两个菜单项。步骤2：在退出的结果中选择命令，并在后面的框中输入： SET SYSMENU TO DEFAULT步骤3：保存菜单为query_menu并生成可执行菜单。三SCORE_MANAGER数据库中有3个数据库表，它们分别是STUDENT、SCORE1和COURSE。设计一个如下图所示的表单Myform1(控件名为form1，表单文件名Myform1.scx)，用于对SCORE_MANAGER数据库中的数据进行查询。表单的标题为成绩查询。表单左侧有文本输入学号(名称为Label1的标签)、用于输入学号的文本框(名称为Text1)、查询(名称为Command1)和退出(名称为Command2)两个命令按钮以及1个表格控件(名称为Grid1)。表单运行时，首先在文本框中输入学号，然后单击查询按钮，如果输入学号正确，在表单右侧以表格形式显示该生所选课程名和成绩，否则提示学号不存在，请重新输入学号。单击退出按钮，关闭表单。 【解题思路】建立表单并按题目的要求添加控件，然后修改各控件的属性和方法。本题还要注意MESSAGEBOX ()函数的使用，其格式为MESSAGEBOX (提示信息，对话框的属型，对话框窗口标题)，其中的提示信息为对话框中所用到的提示文字，后面两项为可选项。【操作步骤】步骤1：打开考生文件夹下的数据库SCORE_MANAGER。步骤2：在命令窗口输入： CREATE FORM myform1新建一个表单。按题目的要求添加控件，并修改控件的属性。步骤3：添加数据环境表course和 score1。步骤4：编写命令按钮的Click事件代码。*查询按钮的Click事件代码*SELECT course.课程名,score1.成绩;FROM course,score1;WHERE course.课程号=score1.课程号 AND score1.学号= ThisForm.Text1.text;INTO TABLE coruse_cursorIF RECC() = 0 MESSAGEBOX(学号不存在，请重新输入学号)ELSE ThisForm.Grid1.RecordSource=coruse_cursor ThisForm.Grid1.refreshENDIF*退出按钮的Click事件代码*ThisForm.Release*步骤5：保存并运行表单。第六套一1在考生文件夹下新建一个名为供应的项目文件。2将数据库供应零件加入到新建的供应项目中。3通过零件号字段为零件表和供应表建立永久性联系，其中，零件是父表，供应是子表。4为供应表的数量字段设置有效性规则：数量必须大于0并且小于9999；错误提示信息是数量超范围。(注意：规则表达式必须是数量0.and.数量9999)【考点分析】本大题主要考查的知识点是：新建项目、将数据库添加到项目中、为表建立永久联系，以及为表中字段设置有效性规则。【操作步骤】(1)启动Visual FoxPro 6.0，按照题目的要求新建一个名为供应的项目文件。(2)按照题目的要求，将供应零件数据库添加到项目供应中。(3)步骤1：按照题目的要求为零件表建立主索引。步骤2：以同样的方法为供应表建立普通索引。步骤3：在数据库设计器中从主索引拖拽到普通索引建立联系。(4)按照题目的要求为供应表中的数量字段设置字段有效性规则。二在考生文件夹下完成如下简单应用：1用SQL语句完成下列操作：列出所有与红颜色零件相关的信息(供应商号，工程号和数量)，并将查询结果按数量降序存放于表supply_temp中。2新建一个名为menu_quick的快捷菜单，菜单中有两个菜单项查询和修改。并在表单myform的RightClick事件中调用快捷菜单menu_quick。【解题思路】打开本题涉及的数据表，分析字段来源，然后完成SQL语句的编写。通过菜单设计器完成快捷菜单的创建，通过在表单的RightClick事件中添加DO 菜单名称代码来实现快捷菜单的调用。命令按钮的Caption属性用于设置命令窗口中所显示的文字。(1)【操作步骤】步骤1：按照题目的要求建立名为query1.prg的程序文件，并在程序文件窗口中输入符合题目要求的程序段。*query1.prg中的程序段*SELECT 供应.供应商号,供应.工程号,供应.数量;FROM 零件,供应 WHERE 供应.零件号=零件.零件号;AND 零件.颜色=红;ORDER BY 供应.数量 desc;INTO DBF supply_temp*步骤2：以query1为文件名保存并运行程序。也可以先按照题目的要求通过查询设计器建立查询，然后打开查询设计器工具栏中的工具按钮将其中的SQL语句复制到指定的程序文件中，操作过程如图3.9所示。一般来说，简单的SQL查询语句都可以通过查询设计器来实现，且比较简单，建议考生掌握这种方法的使用。(2)【操作步骤】步骤1：按照题目的要求新建一个快捷菜单并保存。步骤2：为快捷菜单添加菜单项，并生成可执行文件menu_quick.mpr。步骤3：打开表单myform，按照题目的要求编写表单的RightClick事件代码DO menu_quick.mpr。步骤4：保存并运行表单。【小技巧】也可以通过以下方法获得查询设计器中的SQL语句：在查询设计器中右键单击空白处，在弹出的快捷菜单中单击查看SQL命令。 三设计一个名为mysupply的表单，表单的控件名和文件名均为mysupply。表单的形式如下图所示。表单标题为零件供应情况，表格控件为Grid1，命令按钮查询为Command1、退出为Command2，标签控件 Label1 和文本框控件Text1(程序运行时用于输入工程号)。运行表单时，在文本框中输入工程号，单击查询命令按钮后，表格控件中显示相应工程所使用的零件的零件名、颜色和重量(通过设置有关数据属性实现)，并将结果按零件名升序排序存储到pp.dbf文件。单击退出按钮关闭表单。完成表单设计后运行表单，并查询工程号为J4的相应信息。【解题思路】按照题目的要求建立表单，并向表单中添加控件，然后修改控件的相关属性，最后为命令按钮编写事件代码。表单的Name属性用于设置表单的名称，Caption属性用于设置表单的标题；标签的Caption属性用于设置标签的标题；命令按钮的Caption属性用于设置命令按钮的标题；表格控件的RecordSource属性用于设置表格的数据来源。在作答本题的过程中还用到了设置表单的数据环境的知识点，为表单建立数据环境，可以方便地设置控件与数据之间的绑定关系，并且数据环境中的对象(表、视图或表间的关联)会随着表单的运行而打开和建立，随着表单的关闭或释放而关闭。【操作步骤】步骤1：新建一个表单，并按题目要求修改表单的属性。步骤2：在表单中添加一个表格控件、两个命令按钮控件、一个标签控件和一个文本框控件，并按照题目的要求设置各控件的属性。步骤3：将供应表和零件表添加到表单的数据环境中。步骤4：编写两个命令按钮的Click事件代码。*查询按钮的Click事件代码*Select 零件.零件名,零件.颜色,零件.重量;From 供应,零件;Where 零件.零件号=供应.零件号 and 供应.工程号=thisform.text1.value;Order By 零件名;Into dbf ppThisForm.Grid1.RecordSource=pp*退出按钮的Click事件代码*THISFORM.RELEASE *步骤5：保存表单名为mysupply，并按要求运行表单。【小技巧】(1)如果属性窗口没有在Visual FoxPro的主窗口中显示，可以通过执行显示菜单中的属性菜单命令打开属性窗口。(2)向表单添加控件后，可通过鼠标调整各控件的位置及大小。(3)为两表建立永久性联系时，需先选中父表中的主索引，并按下鼠标左键，移动鼠标至表中的普通索引上，并松开鼠标。 第七套一1在考生文件夹下建立数据库BOOKAUTH.DBC，把表BOOKS和AUTHORS添加到该数据库中。2为AUTHORS表建立主索引，索引名为PK，索引表达式为作者编号。3为BOOKS表建立两个普通索引，第一个索引名为PK，索引表达式为图书编号；第二个索引名和索引表达式均为作者编号。4建立AUTHORS表和BOOKS表之间的永久联系。【解题思路】通过新建菜单或新建命令按钮实现数据库的建立，在数据库设计中完成表的添加；为表建立索引需要在表设计器中进行；为两个表建立永久性联系需要在数据库设计器中进行，并且两个表要分别在对应的字段上建立主索引和普通索引。【操作步骤】(1)新建一个数据库，在数据库设计器中按题目要求添加表。(2)按照题目的要求为authors表建立主索引。(3)按照题目要求为books表建立两个普通索引。(4)按照题目的要求为authors表和books表建立永久性联系。 二在考生文件夹下完成如下简单应用：1打开表单MYFORM4-4，把表单(名称为Form1)标题改为欢迎您，将文本欢迎您访问系统(名称为Label1的标签)改为25号黑体。最后在表单上添加关闭(名称为Command1)命令按钮，单击此按钮关闭表单。保存并运行表单。2设计一个表单MYFORM4，表单中有两个命令按钮查询和退出(名称为Command1和Command2)。(1)单击查询命令按钮，查询BOOKAUTH数据库中出版过3本以上(含3本)图书的作者信息，查询信息包括