2001年辽宁专升本考试真题-VFP部分..docVIP

2001年辽宁省普通专科毕业生升入本科学校招生考试 计算机试卷 FOXPRO语言 在以下各题中，如果要用到数据库CLDA.DBF，均依据以下数据库的结构与内容为准。 CLDA.DBF 车辆号码 （C，10） 车辆名称 （C，20） 购入价格 （N，10，2） 购入时间 （D，8） 辽A-37456 桑塔那（普通） 102000.00 05/21/99 辽A-Z4047 桑塔那（2000） 210500.00 06/20/99 辽A-H2564 捷达 208500.00 04/01/99 辽A-27325 红旗 253800.00 04/12/99 辽A-46324 金杯 185400.00 05/26/97 CLFY.DBF 车辆号码 （C，10） 维修费 （N，10，2） 租车费 （N，10，2） 公里表数 （N，8） 时间 （D，8） 辽A-Z4047 200.00 0.00 1350 08/02/99 辽A-46324 1000.00 560.00 567 06/04/99 辽A-H2564 0.00 380.00 1250 08/12/99 辽A-Z4047 100.00 270.00 1470 09/18/99 辽A-37456 0.00 1100.00 760 05/30/99 辽A-46324 300.00 0.00 610 07/23/99 辽A-H2564 460.00 780.00 1100 06/25/99 三、填空题（每空3分，共30分） 注：从第3小题开始为阅读程序题，请将正确运行结果填到每题的“_________”处。 表达式SUBSTR（“辽宁省沈阳市”+LEFT（“皇姑区崇山中路66号”，14），7，12）的值是__________________ FOXPRO系统有交互和_____________________________两种工作方式 SET TALK OFF SET DELETE ON USE CLDA DELETE FOR MONTH（购入时间）=5 PACK GO BOTTOM ？“车辆号码：”+车辆号码 USE SET DELETE OFF SET TALK ON RETURN 运行结果：_____________________________________ SET TALK OFF USE CLFY INDEX ON 车辆号码 TO CPHM TOTAL ON 车辆号码 TO CPH USE CPH LOCATE FOR 车辆号码=“辽A-46324” IF FOUND（） ？“维修费：” ??维修费 ??” 租车费：” ??租车费 ENDIF USE SET TALK ON RETURN 运行结果：_______________________________________ SET TALK OFF SET DELETE ON USE CLFY SORT ON 车辆号码，时间/D TO SCP FIELDS 车辆号码，公里表数 USE SCP CP=车辆号码 SKIP DO WHILE.NOT.EOF() IF CP=车辆号码 DELETE ELSE CP=车辆号码 ENDIF SKIP ENDDO PACK GO BOTTOM ？车辆号码+“的行车公里数：” ??公里表数 USE SET DELETE OFF SET TALK ON RETURN 运行结果：________________________________________ SET TALK OFF USE CLFY S=0 COPY TO ARRAY A FOR I=1 TO RECCOUNT（） S=S+A（I，3）-A（I，2） ENDFOR ？S USE SET TALK ON RETURN 运行结果：______________________________________ SET TALK OFF USE CLFY FOR I=1 TO RECCOUNT（） IF 租车费-维修费0 REPLACE 租车费 WITH 租车费-维修费 REPLACE 维修费 WITH 0 ELSE REPLACE 维修费 WITH 维修费-租车费 REPLACE 租车费 WITH 0 DNDIF SKIP ENDFOR COUNT TO X GO INT（X/2） ？“车辆费用：” ??租车费-维修费 USE SET TALK ON RETURN 运行结果：________________________