2001年辽宁省高职高专毕业生升入本科学校招生考试VF真题

2001年辽宁省普通专科毕业生升入本科学校招生考试

FOXPRO语言

在以下各题中，如果要用到数据库CLDA.DBF，均依据以下数据库的结构与内容为准。

三、填空题（每空3分，共30分）

注：从第3小题开始为阅读程序题，请将正确运行结果填到每题的“_________”处。

1、表达式SUBSTR（“辽宁省沈阳市”+LEFT（“皇姑区崇山中路66号”，14），7，12）

的值是__________________

2、FOXPRO系统有交互和_____________________________两种工作方式

3、SET TALK OFF

SET DELETE ON

USE CLDA

DELETE FOR MONTH（购入时间）=5

PACK

GO BOTTOM

？“车辆号码：”+车辆号码

USE

SET DELETE OFF

SET TALK ON

RETURN

运行结果：_____________________________________

4、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

运行结果：_______________________________________

5、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

运行结果：________________________________________

6、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

运行结果：______________________________________

7、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

运行结果：_______________________________________

8、SET TALK OFF

SELECT 2

USE CLDA

SELECT 3

USE CLFY

SELECT B

JOIN WITH C TO CL FOR CLDA. 车辆号码=CLFY.车辆号码

USE CL

COUNT TO X

？X

USE

SET TALK ON

RETURN

运行结果：_______________________________________

9、SET TALK OFF

USE CLFY

INDEX ON 车辆号码TO CPHM

USE CLDA IN 2

SELECT 2

SET RELATION TO 车辆号码INTO CLFY

LOCATE FOR CLFY.时间-购入时间>30

SELECT 1

?”车辆号码：“+车辆号码

USE

SET TALK ON

RETURN

运行结果：__________________________________

10、SET TALK OFF

R=1

FOR I=5 TO 1 STEP -1

FOR J=1 TO I

@R，R+J SAY “*”

ENDFOR

R=R+1

ENDFOR

SET TALK ON

RETURN

运行结果：__________________________________

四、完善程序题（1——12小题每小题3分，第13小题4分，共40）请在下列程序“________”处填入正确的内容使程序完整正确。

1、显示CLFY.DBF车辆号码为“辽A-H2564”的记录.

SET TALK OFF

USE CLFY

INDEX ON 车辆号码TO CPHM

FIND_________________________

DISPLAY

USE

SET TALK ON

RETURN

2、从CLFY.DBF中物理删除租车费小于维修费的记录

SET TALK OFF

USE CLFY

DO WHILE .NOT.EOF()

IF_______________________________________-

DELETE

PACK

ENDIF

SKIP

ENDDO

USE

SET TALK ON