VFP历年等级考试笔试(面向过程)VFP历年等级考试笔试(面向过程).doc

学生.DBF 结构：学号 姓名 性别 出生年月 简历 奖学金 照片 C,6 C,8 L,1 D,8 M,4 N,6,2 G,4 记录: 记录号# 学号 姓名 性别 出生年月 简历 奖学金 照片 1 951001 王平 .F. 05/06/70 memo 50.00 gen 2 951003 李华 .F. 01/23/71 memo 25.00 gen 3 954006 张小强 .T. 07/21/70 memo 0.00 gen 4 953008 赵峰 .T. 11/05/72 memo 75.00 gen 5 954011 丁超 .T. 09/27/70 memo 0.00 gen 6 953013 罗浩 .T. 09/09/71 memo 50.00 gen （注：性别=.F.为女，性别=.T.为男，学号前三位为班级号） 课程.DBF 结构：课程号 课程名 学时数 C,4 C,20 N,3 记录: 记录号# 课程号 课程名 学时数 1 0001 高等数学 108 2 0002 英语 90 3 0003 计算机基础 68 4 0004 数据库应用 80 5 0005 工程制图 80 3、成绩.DBF 结构：学号 课程号 成绩 C,6 C,4 N,5,1 记录: 记录号# 学号 课程号 成绩 1 951001 0001 95.0 2 951003 0003 88.0 3 954006 0001 78.0 4 953008 0004 90.0 5 951001 0003 78.0 6 951003 0004 80.0 2006年春 试题1、（每空格3分，共12分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 从键盘输入一个数,说明它是奇数还是偶数。 【程序】 SET TALK OFF CLEA （1） ‘输入一个数=’ TO SH A=INT(SH) IF A=SH IF （2） （3） ELSE ? A,’是奇数!’ （4） ELSE ? ‘不是整数’ ENDIF SET TALK ON 【供选择的答案】 1、 A、ACCEPT B、INPUT C、WAIT D、STORE 2、 A、INT(A)/2=A/2 B、INT(A/2) C、MOD(A/2)=0 D、A%2=0 3、 A、? A+’是偶数!’ B、? STR(A)-’是偶数!’ C、? A+是偶数! D、? VAL(A)+’是偶数!’ 4、 A、ENDCASE B、OTHERWISE C、ENDIF D、ELSE 试题2、（每空格3分，共12分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 统计输出各班获奖学金人数。 【程序】 SET TALK OFF CLEA DB=’ 学生’ USE （5） INDEX ON 学号 TO X1 DO WHIL ! EOF() S=0 BJH=SUBSTR(学号,1,3) DO WHIL (6)