2015年笔试样题和答案.docVIP

笔试样题 一、程序填空题（每题12分，共36分。将答案填写在相应的下划线处） 1． 计算并输出9的阶乘。 SET TALK OFF JC=1 N=1 DO WHILE N=9 JC=JC*N N=N+1 ENDDO ? 9!= , JC SET TALK ON RETURN 2． 计算并输出1+3+5+……+99。 SET TALK OFF X=0 Y=0 DO WHILE X100 X=X+1 IF INT(X/2)=X/2 loop ELSE Y=Y+X ENDIF ENDDO ?Y SET TALK ON RETURN 3． 由键盘输入要查找记录的学号，到XS.DBF数据表中查找该记录，找到后输出该记录的姓名及计算机的成绩，否则输出“学号输入错误！”。 SET TALK OFF use XS ACCEPT 请输入学号 TO NUM LOCATE FOR 学号=NUM IF NOT eof() DISPLAY 姓名,计算机 ELSE ?学号输入错误! ENDIF USE SET TALK ON RETURN 二、阅读程序题（每题8分，共32分。将答案填写在相应的下划线处） 1． 以下程序当分别输入数字2，3，8，-1时，运行结果是 5，3，-8，-3 。 SET TALK OFF CLEAR INPUT 请输入数值: TO X DO CASE CASE X0 F=2*X-1 CASE X3 F=2*X+1 CASE X8 F=X OTHERWISE F=-X ENDCASE ? F SET TALK ON RETURN 2． 以下程序的运行结果是 1 1 2 3 5 。 SET TALK OFF DIMENSION F(5) STORE 1 TO F(1),F(2) I=3 DO WHILE I=5 F(I)=F(I-1)+F(I-2) I=I+1 ENDDO ? FOR I=1 TO 5 ??F(I) ENDFOR SET TALK ON RETURN 3． 以下程序的运行结果是 x=2 。 SET TALK OFF PUBLIC X X=2 DO PP1 ?X=,X SET TALK ON RETURN *过程PP1 PROCEDURE PP1 PRIVATE X X=1 X=X*4+1 ENDPROC 4． 以下程序的功能是 统计数据库XSXK中数据表XS的男女生人数 。 SET TALK OFF CLEAR OPEN DATABASE XSXK USE XS IN 0 SELE XS STORE 0 TO M,W SCAN IF 性别=男 M=M+1 ELSE W=W+1 ENDIF ENDSCAN ?男生人数：,M ?女生人数：,W CLOSE DATABASE SET TALK ON RETURN 三、程序设计题（每题16分，共32分） 1． 从键盘输入一个正整数N，计算并输出S=1+2+……+N的值。 参考答案： input 输入一个正整数N： to n s=0 for i=1 to n s=s+i endfor ?s=,s 2． 已知数据表XSCJ.DBF和TJ.DBF，其结构和内容如下表所示，编写程序实现如下功能： （1）填充XSCJ.DBF表中的“合成成绩”字段（合成成绩=笔试成绩*40%+机试成绩*60%）； （2）XSCJ.DBF表中合成成绩在85分以上（含85分）为“优秀”、60分至85分（含60分）为“合格”、60分以下为“不合格”，根据表XSCJ.DBF中的数据分别统计各专业优秀、合格和不合格人数，并填充到表TJ.DBF的相应字段中。 表XSCJ.DBF 准考证号 （C） 专业代号 （C） 姓名 （C） 笔试成绩 （N） 机试成绩 （N） 合成成绩 （N） 2008001 1002 王丽 75 84 2008002 1001 马庆泉 88 65 2008003 1002 李珊珊 55 67 ┋ ┋ ┋ ┋ ┋ 表TJ.DBF 专业代号 （C） 专业名称 （C） 优秀人数 （N） 合格人数 （N） 不合格人数 （N） 1001 计算机 1002 网络工程 2001