题2 单表序设计1.docVIP

题2 单表程序设计 *------------------------------------------------------*【程序设计】 *------------------------------------------------------*题目：设表 RSDA.DBF 结构为：学号（C，5） ，姓名（C，6） ， * 职称（C，6）统计出 RSDA.DBF 表中职称为工程师的 * 人数。 （利用 DO WHILE……ENDDO 循环语句实现） 。 * 将人数存入变量 Y 中 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------ SET TALK OFF SET LOGERRORS ON Y=-1 **********Program********** use rsda store 0 to s locate for 职称=工程师 do while not eof() s=s+1 continue enddo ?共有工程师+str(s,3)+名 use Y=S ********** End ********** DO YZJ9 WITH Y SET TALK OFF RETURN *------------------------------------------------------* 【程序设计】 *------------------------------------------------------*题目：有学生数据表 student.dbf，其中编号字段的值从 1 开始 * 连续排列。欲按编号的 1，4，7，10，...规律抽取学生 * 参加比赛，并将满足条件的记录保存到 st1.dbf 中，请编 * 程完成。 * （用 do while ..endd 和 scatter、gather 语句完成） * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------ SET TALK ON SET LOGERRORS ON clear sele 1 use student sele 2 use st1 zap **********Program********** sele 1 do while .not. eof() if mod(编号,3)=1 scatter to arry sele 2 appe blan gather from arry Endif sele 1 skip endd ********** End ********** sele 2 list close data SET LOGERRORS OFF SET TALK OFF *------------------------------------------------------* 【程序设计】 *------------------------------------------------------*题目：编程以物理连接方法求学生刘一各门功课的考试成绩， * 已知数据表 STUDENT.DBF 和 STUDY.DBF。新生成的数据 * 表名为 SG.DBF。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------ SET TALK ON SET LOGERRORS ON **********Program********** SELE 1 USE STUDENT SELE 2 USE STUDY SELE 1 JOIN WITH STUDY TO SG FOR 学号=STUDY.学号 .AND. 姓名=刘一 FIELDS 学号,姓 名,STUDY.课程号,STUDY.成绩 SELE 3 USE SG LIST ********** End ********** CLOSE DATA SET LOGERRORS OFF SET TALK OFF *------------------------------------------------------*【程序设计】 *------------------------------------------------------*题目：计算机等级考试数据表为 STUDENT.DBF,凡笔试和上机成绩 * 均达到 80 分以上者,应在等级字段中填入优秀字样。 * 请用 DO WHILE ...E