欢迎来到天天文库
浏览记录
ID:11917101
大小:25.79 KB
页数:44页
时间:2018-07-14
《vfp程序设计填空改错试题及答案资料》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、题2单表程序设计102题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语句完成)*请按照题目要求,在下面编写程序代码。*------------------------------------------------------SETTALKONSETLOGERRORSONclearsele1usestude
4、ntsele2usest1zap**********Program**********sele1dowhile.not.eof()ifmod(编号,3)=1scattertoarrysele2appeblangatherfromarryEndifsele1skipendd**********End**********sele2listclosedataSETLOGERRORSOFFSETTALKOFF*------------------------------------------------------*【程序设计】*---------------------------
5、---------------------------*题目:编程以物理连接方法求学生刘一各门功课的考试成绩,*已知数据表STUDENT.DBF和STUDY.DBF。新生成的数据*表名为SG.DBF。*请按照题目要求,在下面编写程序代码。*------------------------------------------------------SETTALKONSETLOGERRORSON**********Program**********SELE1USESTUDENTSELE2USESTUDYSELE1JOINWITHSTUDYTOSGFOR学号=STUDY.学号.AND
6、.姓名="刘一"FIELDS学号,姓名,STUDY.课程号,STUDY.成绩SELE3USESGLIST**********End**********CLOSEDATASETLOGERRORSOFFSETTALKOFF*------------------------------------------------------*【程序设计】*------------------------------------------------------*题目:计算机等级考试数据表为STUDENT.DBF,凡笔试和上机成绩*均达到80分以上者,应在等级字段中填入"优秀"字样。*请用D
7、OWHILE...ENDDO语句编写。*请按照题目要求,在下面编写程序代码。*------------------------------------------------------SETTALKONSETLOGERRORSONCLEAR**********Program**********USESTUDENTDOWHILE.NOT.EOF()IF笔试>=80.AND.上机>=80REPL等级WITH"优秀"ENDIFSKIPENDDLIST**********End**********
此文档下载收益归作者所有