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

2002年辽宁省高职高专毕业生升入本科学校招生考试

计算机试卷

FOXPRO语言

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

三、填空题(每空1分，共6分)

1、目前数据库中常用的数据模型有____________、___________、网状模型

的面向对象模型。

2、在FOXPRO FOR WINDOWS版本中，能用于存储图片、声音等数据的数据库

字段类型为_____________，其类型符号是_______________。

3、FOXPRO中的“过程”是一段程序，它必须由____________命令开始，以

___________________命令结尾。

四、阅读程序题(阅读下列程序，将正确的运行结果填写到每小题的“____”处。每小题3分，共21分)

1、SET TALK OFF

USE XSDA

GOTO BOTTOM

SKIP –2

？“学号：”，学号，“姓名：”，姓名

USE

SET TALK ON

RETURN

运行结果______________________

2、SET TALK OFF

USE XSCJ

LOCATE FOR 英语>=90

DO WHILIE.NOT.EOF()

? 学号，姓名，英语

CONTINUE

ENDDO

USE

SET TALK ON

RETURE

运行结果_______________________

3、SET TALK OFF

USE XSCJ

INDEX ON 班级 TO BJPX

TOTAL ON 班级 TO BJ

USE BJ

LOCATE FOR 班级=“信息三班”

？“英语：”，英语，“数学：”，数学，“计算机导论：”，计算机导论 USE

SET TALK ON

RETURN

运行结果_________________________

4、SET TALK OFF

SET HEADINGS OFF

USE XSDA

SELE 2

USE XSCJ

SELE 1

SET RELATION TO RECNO () INTO 2

LOCATE FOR “王”$姓名 ALL

SELE 2

DISPLAY OFF

USE

SELE 1

USE

SET HEADINGS ON

SET TALK ON

RETURN

运行结果_________________________

5、SET TALK OFF

USE XSCJ

COPY TO CJ1 FOR RECNO()<4

COPY TO CJ2 FOR RECNO()>7

USE CJ1

APPEND BLANK

APPEND FROM CJ2

COUNT TO N

?N

USE

SET TALK ON

RETURN

运行结果_________________________

6、SET TALK OFF

SET HEADINGS OFF

USE XSDA

DELETE FOR YEAR(出生日期)<1980 ALL PACK

GOTO 3

DISP学号，姓名

USE

SET HEADINGS ON

SET TALK ON

RETURN

运行结果_________________________

7、SET TALK OFF

CLEAR

FOR I=1 TO 8 STEP 2

L=INT((I+1)/2)

FOR J=1 TO 5

@L,L+J SAY “*”

ENDFOR

ENDFOR

SET TALK ON

RETURN

运行结果_________________________

五、完善程序题(请在下列程序的“____”处，填上正确的内容使其完整正确。每小题3分，共21分)

1、显示信息一班的英语、数学和计算机导论每门课程的平均分。

SET TALK OFF

USE XSCJ

AVERAGE 英语，数学，计算机导论 FOR__________TO C1，C2，C3

？C1，C2，C3

USE

SET TALK ON

RETURN

2、假设在XSCJ数据库中已增加了一个字段：“平均分(N，5，1)”，请将学生的

三门课程的平均分填入该字段中

SET TALK OFF

USE XSCJ

REPLACE ALL__________________

USE

SET TALK ON

RETURN

3、显示英语成绩前三名的同学的学号，姓名和英语成绩

SET TALK OFF

USE XSCJ

SORT TO YY ON 英语/D

USE YY

DISP 学号，姓名，英语______________________

USE

SET TALK ON

RETURN

4、统计数学成绩不及格的学生占总人数的百分比

SET TALK OFF

USE XSCJ

COUNT TO C

COUNT TO C1 FOR 数学<60

_______________________

？C1

USE

SET TALK ON

RETURN

5、显示入学分数超过700分的学生的姓名及英语，数学，计算机导论三门课的

成绩。

SET TALK OFF

USE XSDA

SELECT 2

USE XSCJ ALLAS CJ

INDEX ON 学号 TO XH

SELECT 1

SET RELATION TO 学号INTO CJ

___________________________

DO WHILE.NOT.EOF()

SELECT 2

DISPLAY OFF FIELDS 姓名，英语，数学，计算机导论

SELECT 1

CONTINUE

ENDDO

USE

SET TALK ON

RETURN

6、从键盘输入某学生的学号，在XSDA库中快速查找该学生的有关资料。

SET TALK OFF

USE XSDA

INDEX ON 学号 TO XH

YN=“Y”

DO WHILE YN=“Y”

ACCEPT“请输入要查询的学号：”TO H

SEEK H

IF _________________________________________

DISPLAY

ELSE

？“查无此人!”

ENDIF

WALIT“继续查找吗？(Y/N)”TO YN

YN=UPPER(YN)

ENDDO

USE

SET TALK ON

RETURN

7、编写程序显示下面的图形

*

***

*****

*******

*********

SET TALK OFF

CLEAR

FOR I=1 TO 5

M=1

DO WHILE M<6-I

@I，M SAY ““

M=M+1

ENDDO

N=1

DO WHILE____________

@I,N+M-1 SAY “*”

N=N+1

ENDDO

ENDFOR

SET TALK ON

RETURN

六、改错题(以下每小题都有一个错误，在题后空白处写出有错误语句的行号及改正后的程序全行，每小题3分，共12分)

1、显示籍贯是北京市学生信息

(1)SET TALK OFF

(2)SET HEADLNGS OFF

(3)USE XSDA

(4)INDEX ON 学号 TO XH

(5)SEEK“北京市”

(6)IF.NOT.EOF()

(7)DO WHILE LEFT(籍贯，6)= =“北京市“

(8)DISP

(9)SKIP

(10)ENDDO

(11)ELSE

(12)?“无该籍贯的同学”

(13)ENDIF

(14)USE

(15)SET HEADINGS ON

(16)SET TALK ON

(17)RETURN

错误行________________________________________________

改为________________________________________________

2、显示数据库XSDA中年龄最大的一名学生信息

(1)SET TALK OFF

(2)USE XSDA

(3)NL=出生日期

(4)R=1

(5)SKIP

(6)DO WHILE.NOT.EOF()

(7)IF 出生日期>NL

(8)NL=出生日期

(9)R=RECNO()

(10)ENDIF

(11)SKIP

(12)ENDDO

(13)GOTO R

(14)DISP

(15)USE

(16)SET TALK ON

(17)RETURN

错误行________________________________________________ 改为________________________________________________ 3、从数据库XSCJ中删除英语或数学不及格的学生的记录

(1)SET TALK OFF

(2)USE XSCJ

(3)DO WHILE.NOT.EOF()

(4)IF 英语<60.AND.数学<60

(5)DELETE

(6)PACK

(7)ENDIF

(8)SKIP

(9)ENDDO

(10)USE

(11)SET TALK ON

(12)RETURN

错误行________________________________________________ 改为________________________________________________ 4、求20+21+22+23+……+2n<=1000的最大的正整数N

(1)SET TALK OFF

(2)CLEAR

(3)S=1

(4)I=1

(5)N=1

(6)DO WHILE S<=1000

(7)I=I*2

(8)S=S+I

(9)N=N+1

(10)ENDDO

(11)？“N=”，N-1

(12)SET TALK ON

(13)RETURN

错误行________________________________________________ 改为________________________________________________