题2 单表序设计1.doc

《题2 单表序设计1.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、题2单表程序设计*------------------------------------------------------*【程序设计】*------------------------------------------------------*题目：设表RSDA.DBF结构为：学号（C，5），姓名（C，6），*职称（C，6）统计出RSDA.DBF表中职称为"工程师"的*人数。（利用DOWHILE……ENDDO循环语句实现）。*将人数存入变量Y中*请按照题目要求，在下面编写程序代码。*-----------------------------------------

2、-------------SETTALKOFFSETLOGERRORSONY=-1**********Program**********usersdastore0toslocatefor职称="工程师"dowhilenoteof()s=s+1continueenddo?"共有工程师"+str(s,3)+"名"useY=S**********End**********DOYZJ9WITHYSETTALKOFFRETURN*------------------------------------------------------*【程序设计】*---------------

3、---------------------------------------*题目：有学生数据表student.dbf，其中编号字段的值从1开始*连续排列。欲按编号的1，4，7，10，...规律抽取学生*参加比赛，并将满足条件的记录保存到st1.dbf中，请编*程完成。*（用dowhile..endd和scatter、gather语句完成）*请按照题目要求，在下面编写程序代码。*------------------------------------------------------SETTALKONSETLOGERRORSONclearsele1usestudent

4、sele2usest1zap**********Program**********sele1dowhile.not.eof()ifmod(编号,3)=1scattertoarrysele2appeblangatherfromarryEndifsele1skipendd**********End**********sele2listclosedataSETLOGERRORSOFFSETTALKOFF*------------------------------------------------------*【程序设计】*--------------------------

5、----------------------------*题目：编程以物理连接方法求学生刘一各门功课的考试成绩，*已知数据表STUDENT.DBF和STUDY.DBF。新生成的数据*表名为SG.DBF。*请按照题目要求，在下面编写程序代码。*------------------------------------------------------SETTALKONSETLOGERRORSON**********Program**********SELE1USESTUDENTSELE2USESTUDYSELE1JOINWITHSTUDYTOSGFOR学号=STUDY.学号

6、.AND.姓名="刘一"FIELDS学号,姓名,STUDY.课程号,STUDY.成绩SELE3USESGLIST**********End**********CLOSEDATASETLOGERRORSOFFSETTALKOFF*------------------------------------------------------*【程序设计】*------------------------------------------------------*题目：计算机等级考试数据表为STUDENT.DBF,凡笔试和上机成绩*均达到80分以上者,应在等级字段中填入"优秀"

7、字样。*请用DOWHILE...ENDDO语句编写。*请按照题目要求，在下面编写程序代码。*------------------------------------------------------SETTALKONSETLOGERRORSONCLEAR**********Program**********USESTUDENTDOWHILE.NOT.EOF()IF笔试>=80.AND.上机>=80REPL等级WITH"优秀"ENDIFSKIPENDDLIST**********End**********CLOSEDATASE