VFP专升本真题和答案 - 图文

use 学生成绩

set relation to 学号 into c

set relation to 课程号 into b ___________ do while .not. eof()

disp off 学号,C.姓名,c.性别,c.系别,b.课程名,成绩 skip enddo close all

56.根据所给数据表生成新表“总成绩.DBF”，此表中应包括学号、姓名、成绩三个字段。其中“成绩”字段的值为该学生各科的总成绩。 SET TALK OFF CLEAR SELECT B

USE 学生成绩

INDEX ON 学号 TO XH

_____________________________ TEMP SELECT B USE TEMP SELECT A USE 学生

JOIN WITH B TO 总成绩 FOR 学号=B->学号 FIELDS 学号，姓名，B->成绩 USE 总成绩 LIST CLOSE

57.计算由键盘输入小于10的自然数的阶乘。 SET TALK OFF CLEAR

DO WHILE .T.

INPUT \请输入小于10的自然数\ IF N<0 .OR. N>=10 .OR. INT(N)!=N ? \输入的数值不符合要求\ LOOP ENDIF EXIT ENDDO S=1

FOR I=1 TO N

__________________

-5-

ENDFOR ? S

58.根据所给数据表查询英语成绩超过90分的学生的学号、姓名、课程名和成绩信息。

SET TALK OFF CLEAR

SELECT 学生，学号，姓名，课程名，成绩 FROM 学生，课程，学生成绩； ______________________________________________________________

.AND. 学生成绩.课程号=课程.课程号 .AND. 成绩>90 .AND. 课程名=\英语\ CLOSE ALL

59.求1到50之间的所有奇数的立方和。 SET TALK OFF CLEAR S=0 X=1

DO WHILE X<=50 S=S+X**3

____________________ ENDDO ? S

60.设计显示学生各科成绩的表单CJB.SCX，执行界面如图1所示。改表单的数据环境已正确设置。为了正确显示学生的各种信息，其中“姓名”文本框的_________________________属性应正确设置为“学生.姓名”。

-6-

61.上一题（60题）中表单中的按钮“下一条”的功能是在表单中显示下一条记录。其Click事件代码如下： SKIP IF EOF()

GO BOTTOM ENDIF

____________________________________________________

七、程序改错题（每小题3分，共12分）

62.由数据表“学生.DBF”按出生日期进行降序排列，生成新表“NEW.DBF”，新表中包括有学号、姓名、出生日期三个字段。 (1) SET TALK OFF (2) CLEAR (3) USE 学生

(4) SORT TO 出生日期/D ON NEW; (5) FIELDS 学号，姓名，出生日期 (6) USE NEW (7) LIST

(8) CLOSE ALL

错误的行是：_______________________________________________ 改为：______________________________________________________

63.根据数据表“学生成绩.DBF”求出所有学生的英语（课程号为101）平均成绩。 (1) SET TALK OFF (2) CLEAR

(3) USE 学生成绩 (4) A=0 (5) N=0

(6) LOCATE FOR 课程号=\(7) DO WHILE .NOT. EOF() (8) N=N+1 (9) A=A+成绩 (10) SKIP (11)ENDDO

(12)? \平均英语成绩\(13)USE

错误的行是：_______________________________________________ 改为：______________________________________________________

-7-

64.为数据表“学生.DBF”增加一个字段“籍贯 (C(16))”，并显示修改后的结构。 (1) SET TALK OFF (2) CLEAR

(3) ALTER TABLE 学生 ADD 籍贯 C(16) (4) USE 学生 (5) LIST (6) USE

错误的行是：_______________________________________________ 改为：______________________________________________________

65.先从字符串S中找出某个指定字符（本例为空格），再以此字符为界拆分成两个字符串，并分成两行显示。 (1) SET TALK OFF (2) CLEAR

(3) STORE \(4) N=AT(S,\(5) B=Left(S,N-1)

(6) C=PIGHT(S,LEN(S)-N) (7) ? B (8) ? C

错误的行是：_______________________________________________ 改为：______________________________________________________

参考答案 41.(.PRG) 42.(查询) 43.(Autosize) 44.(188.00) 45.(回车) 46.9 6 3 47.85 48.25 49.10

50.080003 101 95 51.王小丽 女 52.程丽媛 女 53.王小丽

54.REPLACE 学时 WITH 55.ADDITIVE

56.TOTAL ON 学号 TO

-8-