考试网 >> IT认证 >> 等级 >> 等级动态 >> 全国计算机等级二级FOX上机编程题题型

全国计算机等级二级FOX上机编程题题型

发布时间：2006-07-25 12:00 点击：

分页:上一页 1 2 3 4 5 [6] 7 下一页

　　ENDDO

　　SELE 2

　　APPEND BLANK

　　REPLACE 单位编码 WITH DWCODE,笔试平均分 WITH BS1/N1,上机平均分 WITH ;

　　SJ1/N1,笔试最高分 WITH BSMAX, 上机最高分 WITH SJMAX

　　SELE 1

　　ENDDO

　　SELE 2

　　LIST

　　CLOSE DATABASE

　　SET TALK ON

　　SET SAFETY ON（资料来源：Http://www.eastedu.com.cn）

　　

　　

第十题：已有计算机等级考试数据库djks.dbf，包括：考号、姓名、笔试成绩、上机成绩和平均成绩等字段，其中考号的前两位是单位代码；另有单位数据库dw.dbf，包括：单位代码、单位名称、人数和总平均分等字段。请编写程序 PROG1.PRG，要求先在djks.dbf数据库中计算各位考生的平均成绩，并填入平均成绩字段中。然后按单位统计人数及总平均分，记入dw.dbf数据库的相应字段中，最后把dw.dbf所有记录复制到dw1.dbf文件中。（资料来源：Http://www.eastedu.com.cn）

　　参考答案：

　　SET TALK OFF

　　SELE 2

　　USE DW

　　SELE 1

　　USE DJKS

　　DO WHILE .NOT. EOF()

　　REPLACE 平均成绩 WITH (笔试成绩+上机成绩)/2

　　SKIP

　　ENDDO

　　SORT ON 考号 TO DJKS1

　　USE DJKS1

　　DO WHILE .NOT. EOF()

　　DW1=SUBSTR(考号,1,2)

　　STORE 0 TO PEOPLE,AV_SCOR

　　DO WHILE SUBSTR(考号,1,2)=DW1

　　AV_SCOR=AV_SCOR+平均成绩

　　PEOPLE=PEOPLE+1

　　SKIP

　　ENDDO

　　SELE 2

　　LOCA FOR 单位代码=DW1

　　REPL 人数 WITH PEOPLE,总平均分 WITH AV_SCOR/PEOPLE

　　SELE 1

　　ENDDO

　　SELE 2

　　COPY TO DW1

分页:上一页 1 2 3 4 5 [6] 7 下一页

版权申明:未经书面授权请勿转载本站信息!!作品版权归所属媒体与作者所有!!

发表评论：

匿名发表

用户名:

查看评论

您将承担一切因您的行为、言论而直接或间接导致的民事或刑事法律责任
留言板管理人员有权保留或删除其管辖留言中的任意内容
本站提醒：不要进行人身攻击。谢谢配合。