第一套 第三题:程序填空( 第三题:程序填空(10 分) 请在“党费.DBF”中,计算出所有人应交的党费。要求:工资 1000 元以下,交纳党费 为工资的 1%;工资 1000 元到 1500 元,交纳党费为工资的 2%;工资 1500 元以上,交纳党 费为 3%。 把给定的程序 prog1.prg 添加到项目里,补全程序中缺少的部分。 CLEAR SET DEFAULT TO D:\Source\VFP01 USE 党费.DBF Do WHILE .NOT. EOF( ) DO CASE CASE 工资<1000 REPLACE 党费 WITH 工资*0.01 CASE 工资<1500 (4 分) REPLACE 党费 WITH 工资*2/100 CASE 工资>=1500 REPLACE 党费 WITH 工资*0.03 (3 分) ENDCASE SKIP (3 分) ENDDO BROWSE USE 第二套 第三题:程序填空( 第三题:程序填空(10 分) 请从 “订货单.DBF”数据表中查找订货人“张小东” 如果找不到,则显示“此人没 , 有下订单!。如果找到,则用查找语句统计此人的订货总量。 ” 把给定的程序 prog5.prg 添加到项目里,补全程序中缺少的部分。 CLEAR SET DEFAULT TO D:\Source\VFP05 &;&; 设置默认
工作路径 USE 订货单 BROWSE LOCATE FOR 订货人="张小东" IF EOF() 或 NOT FOUND() (3 分) Messagebox( " 此人没有下订单! " ,"
查询结果") ELSE SELECT 订货人, SUM(订货数量) AS 订货总量; FROM 订货单 ENDIF SELECT 订货单 USE WHERE 订货人="张小东" (4 分) (3 分)
第三套,第五套 第三题: (10 分) 第三题: ( 打开 D:\SOURCE\VFP01\DQ1.PRG
程序文件,程序要完成的功能是根据用户输入的月 份,从 “DQ1.DBF”数据表中查找该月份的记录,如果查到,则计算其总销售额并显示, 否则显示“该月分数据尚未录入!” 。根据要求修改该程序文件,将缺少的命令语句补上。并 以原文件名保存在原来位置。 程序 DQ1.PRG 内容如下 SET DEFA TO D:\SOURCE\VFP01 CLEAR USE DQ1 INPUT "请输入一个月份" TO YUE LOCATE FOR 月份=YUE IF found() REPLACE 总销售额 with (
计算机售额+空调售额+电视机售额+录音机售额+冰箱售额) ?STR(yue)+"月份的总销售额为:" +str(总销售额) ELSE ?"该月分数据尚未录入!" endif USE RETURN 第四套,第六套 第三题 程序题: (10 第三题 程序题: ( 分) 问题:请在“ZHUYUAN.DBF”表中,统计 2002 年入院的患者的平均年龄。 根据上面
问题要求,请完善 D:\SOURCE\VFP02\PROG1.PRG 的程序文件,将缺少的命 令语句、表达式补上。并将该程序文件引入“VFP02. PJX”项目中。 程序 PROG1.PRG 内容如下: SET DEFA TO D:\SOURCE\VFP02 CLEAR USE ZHUYUAN RS=0 SNL=0 DO WHILE NOT EOF() IF __ 入院日期>{^2001-12-31}① SNL = SNL+年龄 ② ___ RS=RS+1 _③ ENDIF SKIP ENDDO PJNL=SNL/RS ? “2002 年以后入院的患者的平均年龄是:”, _ str(PJNL) ④ USE RETURN