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

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

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

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

　　

　　参考答案：

　　SET TALK OFF

　　USE SHJ

　　DO WHILE .NOT. EOF()

　　STORE N TO NJ2

　　NJ2=2*NJ2-1

　　JC=1

　　S1=0

　　NJ1=1

　　NJ3=1

　　DO WHILE NJ1<=NJ2

　　jc=jc*nj1

　　if mod(nj1,2)=1

　　IF MOD(NJ3,2)=1

　　S1=S1+(1/jc)

　　ELSE

　　S1=S1-(1/JC)

　　ENDIF

　　NJ3=NJ3+1

　　endif

　　NJ1=NJ1+1

　　ENDDO

　　REPLACE S WITH S1

　　SKIP

　　ENDDO

　　COPY TO SHJ1

　　CLOSE DATABASE

　　SET TALK ON

　　

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

　　

　　第九题：有计算机等级考试成绩数据库cj.dbf，包括考号、笔试成绩和上机成绩等字段，其中考号的前两位是单位编码；还有统计数据库tj.dbf，包括单位编码、笔试平均分、上机平均分、笔试最高分、上机最高分等字段。请编写程序 PROG1.PRG，其功能是：按单位进行各项统计，结果存于统计数据库tj.dbf的相应字段中。（资料来源：Http://www.eastedu.com.cn）

　　参考答案：

　　SET TALK OFF

　　SET SAFETY OFF

　　CLOSE DATABASE

　　CLEAR

　　SELE 2

　　USE TJ

　　ZAP

　　SELE 1

　　USE CJ

　　SORT ON 考号 TO CJ1

　　USE CJ1

　　DO WHILE .NOT. EOF()

　　STORE 0 TO BS1,SJ1,BSMAX,SJMAX

　　DWCODE=SUBSTR(考号,1,2)

　　N1=0

　　BSMAX=笔试成绩

　　SJMAX=上机成绩

　　DO WHILE 考号=DWCODE

　　IF 上机成绩>SJMAX

　　SJMAX=上机成绩

　　ENDIF

　　IF 笔试成绩>BSMAX

　　BSMAX=笔试成绩

　　ENDIF

　　BS1=BS1+笔试成绩

　　SJ1=SJ1+上机成绩

　　N1=N1+1

　　SKIP

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

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

发表评论：

匿名发表

用户名:

查看评论

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