VF上机18套试题、答案.docVIP

第1套 有两个数据表： 学生信息表（XS.DBF）和学生成绩表（CJ.DBF）。其数据形式如下： 学生信息表（XS.DBF） 考 号 姓 名李 萍黄 程王 军周小丽程 成张 伟 学生成绩表（CJ.DBF） 考 号 笔试成绩 上机成绩 成绩合格否86 优 .F.45 缺考 .F.91 优 .F.74 及格 .F.79 不及格 .F.57 及格 .F. 2、建立程序文件COM-SQL711.PRG，要求将完成下列各小题任务的VFP数据表操作命令或VFP-SQL命令写在该程序文件中。在程序首行用注释语句注明考生姓名和准考证号，并用注释语句标注小题号。（30分） （1）正确修改每个学生的“成绩合格否”字段，并填入学生成绩表CJ.DBF中。规定笔试成绩60或上机成绩为“缺考”或“不及格”，则该字段值为.F.，否则为.T.； （2）在学生成绩表CJ.DBF中，查询并显示成绩合格学生的考号、姓名、笔试成绩和上机成绩； （3）逻辑删除学生成绩表CJ.DBF中，上机考试缺考的考生； （1）VFP命令：USE CJ REPLACE ALL成绩合格否 WITH .T. FOR 笔试成绩=60 AND (上机成绩=“及格” OR上机成绩=“优”) SQL命令：UPDATE CJ SET 成绩合格否=.T. WHERE笔试成绩=60 AND (上机成绩=“及格” OR上机成绩=“优”) （2） VFP命令：SELECT 1 USE XS INDEX ON 考号 TAG KH SELECT 2 USE CJ SET RELATION TO 考号 INTO XS LIST 考号,XS.姓名,笔试成绩,上机成绩 FOR成绩合格否=.T. SQL命令：SELECT XS.考号，姓名，笔试成绩，上机成绩 FROM XS,CJ WHERE XS.考号=CJ.考号 AND 成绩合格否=.T. （3）VFP命令：USE CJ delete for 上机成绩=“缺考” SQL命令：DELETE FROM CJ WHERE上机成绩=“缺考” 第2套 有两个数据表： 职工数据表（ZGB.DBF）和工资数据表（GZB.DBF）。其数据形式如下： 职工数据表ZGB.DBF 职工号 姓名 婚否 职称 020365 周尔杰 .T. 工人 020528 王雨 .T. 技术员 010234 李丽 .F. 技术员 020458 李长新 .T. 工程师 020636 郑然 .F. 工人 工资数据表GZB.DBF 职工号 基本工资 津贴 奖金 公积金 实发工资 020365 882.00 213.5 115 90 020528 1562.00 283.0 144 140 010234 1306.00 223.0 115 120 020458 1748.00 302.0 156 160 020636 864.00 143.0 98 70 2、建立程序文件COM-SQL712.PRG，要求将完成下列各小题任务的VFP数据表操作命令或VFP-SQL命令写在该程序文件中。在程序首行用注释语句注明考生姓名和准考证号，并请用注释语句标注小题号。（30分） （1）计算每个职工的“实发工资”字段，并填入工资数据表GZB.DBF中。其中：实发工资=基本工资+津贴+奖金-公积金； （2）显示未婚职工的职工号、姓名、基本工资和实发工资； （3）计算工资表GZB中所有职工的平均奖金和实发工资总额； （1）VFP命令：USE GZB REPLACE ALL实发工资 WITH 基本工资+津贴+奖金-公积金 SQL命令：UPDATE GZB SET 实发工资=基本工资+津贴+奖金-公积金 （2） VFP命令：SELECT 1 USE zgb INDEX ON 职工号 TAG ZGH SELECT 2 USE gzb SET RELATION TO 职工号 INTO ZGB LIST 职工号,ZGB.姓名,基本工资,实发工资 FOR NOT ZGB.婚否 CLOSE ALL SQL命令：SELECT GZB.职工号,姓名,基本工资,实发工资 FROM ZGB,GZB WHERE ZGB.职工号=GZB.职工号 AND NOT ZGB.婚否 （3）VFP命令：USE GZB calculate avg(奖金),sum(实发工