VFP程序改错.docx

1、VFP程序改错*题目：表XSDA.DBF结构为：学号（C，6），姓名（C，6），性别（C，2），入学成绩（N，6，2）。本程序复制表XSDA的记录到表XS1中，在表XS1中查找入学成绩550分以上的同学，将其删除并浏览XS1的内容。SET TALK OFFUSE XSDA*FOUND*COPY STRUCTURE TO XSDAUSE XS1*FOUND*LOCATE ALL 入学成绩=550DO WHILE FOUND() DELETE*FOUND* LOOPENDDOPACKBROWUSESET TALK ON答案： 1). COPY TO XS1 2). LOCATE ALL FOR 入

2、学成绩=550 或 LOCATE ALL FOR 5501SELECT (A-1)FILENAME=ALIAS()*FOUND*SUM FIELD TO fnum*FOUND*SUM TO RECNUMCLEAR 6,6 SAY 在+STR(A-1),1)+区中已经打开了: + FILENAME 7,6 SAY 该数据库中的字段数是: + STR(FNUM,1) 8,6 SAY 该数据库中的记录数是: + STR(RECNUM,1)ENDIFCLOSE DATASET TALK ONRETURN答案： 1). SELECT0 2). storefcount()tofnum 或 FNUM=FCO

3、UNT() 3). count to recnum*题目:STUDENT.DBF是一个学生信息文件，包含学号(C 8)、姓名(C 8)、性别(C 2)、政治面目(C 4)、班级(C 5)等字段；其中性别用字符串男或女表示，政治面目用字符串党员、团员或群众表示。程序MODI1.PRG的功能是：显示输出所有政治面目为群众的男生姓名和班级。set talk offclearUSE STUDENTLOCATE FOR 政治面目=群众*FOUND*DO WHILE .not. FOUND()IF 性别=女CONTINUE*FOUND*break ENDIF? 姓名,班级*FOUND*skip ENDDO

4、USESET TALK ON答案： 1). DOWHILEFOUND() 2). LOOP 3). CONTINUE*题目:有结构相同的三个班学生数据库STD1.DBF、STD2.DBF、STD3.DBF。其中学号的前两位是学生所在班级号。一个统计数据库TJ.DBF，其结构包括七个字段：班级C(2)、男、女、党员、团员、群众、少数民族，后六个均为数值型字段N(3,0)。请编写统计程序MODI1.PRG，按班对学生数据进行的性别、政治面目和民族统计，并将统计结果存放到TJ.DBF中。（不得修改学生数据库）set talk offsele 1use std1sele 2use std2sele 3

5、use std3sele 4 use tjzapsele 1*FOUND*banji=学号 count all for 性别=男 to mancount all for 性别=女 to womancount all for 民族汉 to minzucount all for 政治面目=党员 to dangyuancount all for 政治面目=团员 to tuanyuancount all for 政治面目=群众 to quanzhongsele 4appe blan repl 班级 with banji,男 with man,女 with woman,党员 with dangyuan,

6、团员 with tuanyuan,群众 with quanzhong,少数民族 with minzusele 2banji=left(学号,2)count all for 性别=男 to mancount all for 性别=女 to womancount all for 民族汉 to minzucount all for 政治面目=党员 to dangyuancount all for 政治面目=团员 to tuanyuancount all for 政治面目=群众 to quanzhongsele 4appe blan repl 班级 with banji,男 with man,女 wi

7、th woman,党员 with dangyuan,团员 with tuanyuan,群众 with quanzhong,少数民族 with minzu*FOUND*sele 1 banji=left(学号,2)count all for 性别=男 to mancount all for 性别=女 to womancount all for 民族汉 to minzucount all for 政治面目=党员 to dangyuancount all for 政治面目=团员 to tuanyuancount all for 政治面目=群众 to quanzhongsele 4*FOUND*app

8、e repl 班级 with banji,男 with man,女 with woman,党员 with dangyuan,团员 with tuanyuan,群众 with quanzhong,少数民族 with minzuclose databaseset talk onreturn答案： 1).banji=left(学号,2)或 banji=subs(学号,1,2)或banji=01 2). sele3 或 selec 3). appeblank*题目：分别统计化学系的男、女生总人数并显示出来。USE XSDBSTOR 0 TO RS1,RS2*FOUND*FIND FOR 系别=化学DO

9、 WHILE .NOT.EOF()*FOUND* IF 性别男 RS1=RS1+1 ELSE RS2=RS2+1 ENDIF CONTENDDO? 男生人数=,RS1? 女生人数=,RS2USE答案： 1).LOCATEFOR系别=化学 或 LOCATEALLFOR系别=化学或 LOCATEFOR系别=化学 或 LOCATEALLFOR系别=化学 2). IF 性别=男 或 IF 性别女 或 IF 性别#女 或 IF 性别=男 或 IF 性别女 或 IF 性别#女*题目:有如下数据库文件： ZY.DBF：职员号N(3,0)，姓名C(6)，性别C(2)，职务C(10)；DD.DBF：订单号N(3

10、,0)，客户号N(3,0)，职员号N(3,0)，签订日期D(8)，金额N(6,2)。给定程序MODI1.PRG的功能是：根据客户号查询该客户的有关订单信息，结果按订单金额降序排序，并显示这些定单的总金额。修改并调试该程序，使之正确运行。SET TALK OFFSET SAFETY OFFSELECT 1USE zyINDEX ON 职员号 TO zyiSELECT 2USE ddINDEX ON -金额 TO ddi*FOUND* SET RELATION ON -金额 TO ADO WHILE .T.CLEARKH=202? 请输入客户号： , kh?LOCATE FOR 客户号=kh*FO

11、UND*IF .NOT.EOF()? 没有该客户!ELSE? 订单号+ 职 员+SPACE(5)+签订日期+ 金 额?s=0DO WHILE !EOF()? STR(订单号,3)+SPACE(5)+A-姓名+SPACE(5)+DTOC(签订日期)+ +STR(金额,6,2)*FOUND*s=金额CONTINUEENDDO? 总金额为:+STR(s,8,2)ENDIF?WAIT 继续查询吗(Y/N)? TO pIF !UPPER(p)=YEXITENDIFENDDOCLOSE DATASET SAFETY ONSET TALK ON答案： 1).SETRELATO职员号INTOA 或 SETRE

12、LATO职员号INTOzy 2).IFEOF()或IF.NOT.FOUND() 3).s=s+金额 或 s=金额+s 或 STORs+金额TOs 或 STOR金额+sTOs*题目：在XSDB.DBF中查找学生徐秋实的记录, 如果找到则将该记录的系别、姓名,两科科目名称和对应的成绩显示在屏幕上，否则显示:查无此人!。USE XSDB*FOUND*FIND FOR 姓名=徐秋实IF .NOT.FOUND()?查无此人!ELSE*FOUND*?系别,姓名, 计算机=+计算机, 英语=+英语ENDIFUSERETURN答案： 1). LOCATEFOR姓名=徐秋实 或 LOCATEALLFOR姓名=徐

13、秋实 或 LOCATEFOR姓名=徐秋实 或 LOCATEALLFOR姓名=徐秋实2).?系别,姓名,计算机=+STR(计算机),英语=+STR(英语) 或 ?系别,姓名,计算机=,计算机, 英语=,英语 或?系别,姓名,计算机=+STR(计算机,3),英语=+STR(英语,3) 或 ?系别,姓名,计算机=+STR(计算机),英语=+STR(英语) 或 ?系别,姓名,计算机=,计算机, 英语=,英语 或 ?系别,姓名,计算机=+STR(计算机,3),英语=+STR(英语,3)*题目:STUDENT.DBF是一个学生信息文件，其中包含学号(C 8)、姓名(C 8)等字段，而且已按学号建立了索引，

14、索引文件名是STUDENT.IDX；文件SCORE.DBF是成绩文件，其中包含学号(C 8)、课程名(C 20)、成绩(N 5.1)等字段，而且已按课程名建立了索引，索引文件名是SCORE1.IDX。程序MODI1.PRG的功能是：显示输出选修数据结构课程的学生姓名和成绩，每个成绩输出一行，包括学生的姓名和成绩；set talk offclearSELECT 3USE STUDENT INDEX STUDENTSELECT 4USE SCORE INDEX SCORE1SEEK 数据结构*FOUND*DO WHILE !EOF()SELECT STUDENT*FOUND*SEEK 学号? 姓名

15、+：SELECT SCORE? 成绩*FOUND*next 1 &ENDDOCLOSE DATASET TALK ON答案：1).DOWHILE课程名=数据结构2).SEEKSCORE-学号 或 SCORE.学号或 D-学号 或 D.学号3). skip*题目：将200到300之间的所有能被3整除或被5整除的数求和并统计个数。STORE 0 TO S,CI=200DO WHILE I=300*FOUND* IF INT(I/3)=INT(I/5)S=S+I*FOUND* C=C+I ENDIF I=I+1ENDDO?200到300之间的所有能被3整除或被5整除的数之和=+STR(S,6)?20

16、0到300之间的所有能被3整除或被5整除的数的个数=+STR(C,6)答案：1).IF INT(I/3)=I/3.OR.INT(I/5)=I/5 或 IF MOD(I,3)=0.OR.MOD(I,5)=0 或 IF INT(I/5)=I/5.OR. INT(I/3)=I/3 或 IF MOD(I,5)=0.OR.MOD(I,3)=0 或 IF INT(I/3)=I/3 OR INT(I/5)=I/5 或 IF MOD(I,3)=0 OR MOD(I,5)=0 或 IF INT(I/5)=I/5 OR INT(I/3)=I/3 或 IF MOD(I,5)=0 OR MOD(I,3)=02). C

17、=1+C 或 C=C+1 或 STORC+1TOC*题目：打开XSDB.DBF数据表, 分别统计男、女生的人数。USE XSDBSTOR 0 TO B,G DO WHILE .NOT.EOF()*FOUND*IF 性别男 B=B+1*FOUND*ENDIFG=G+1 ENDIF SKIPENDDO?男生人数是：+STR(B)?女生人数是：+STR(G)答案： 1). IF 性别=男 或 IF 性别女 或 IF 性别#女 或 IF 性别=男 或 IF 性别女 或 IF 性别#女 2). ELSE*题目：该程序完成口令检验功能。输入三次不正确退出。SET TALK OFF CLEARass1=Ab

18、CdEfTT=1DO WHILE TT410,20 SAY 请输入口令:SET CONSOLE OFFACCEPT TO assSET CONSOLE ON*FOUND*IF ass1=ass CLEAR ?欢迎使用本系统!*FOUND* LOOPELSE *FOUND* TT=TT-1 CLEAR ?口令错，按任意键再输入一次！ WAIT ENDIFENDDORETURN答案： 1). IF UPPER(ass1)=UPPER(ass) 或 IF UPPER(ass1)=UPPER(ass) 2). EXIT 3).TT=TT+1 或 TT=1+TT*题目：打印由数字组成的图形,要求第一行空

19、10个空格打印5个1,第二行空11个空格打印5个2,图形如下：* 11111* 22222 * 33333* 44444* 55555CLEAFOR I=1 TO 5*FOUND* ?SPAC(9-I) FOR J=1 TO 5*FOUND* ?STR(J,1) ENDFORENDFOR答案：1).?SPAC(9+I) 或 ?SPACE(9+I)2).?STR(I,1)*题目：从键盘上输入5个数，将其中奇数求和,偶数求积。S1=0*FOUND*S2=0FOR I=1 TO 5 INPUT 请输入第+STR(I,1)+ 数 TO M*FOUND* IF INT(M/2)=0 S1=S1+M EL

20、SE S2=S2*M ENDIFENDFOR? 奇数和是,S1或?奇数和是,S1? 偶数积是,S2或?偶数积是,S2答案：1). S2=1 或 STOR 1 TO S22).IF MOD(M,2)0 或 IF MOD(M,2)#0 或 IF INT(M/2)M/2 或 IF INT(M/2)#M/2*题目:现已有两个数据库文件ZG.DBF和DW.DBF。给定程序MODI.PRG的功能是：显示两个数据库文件中职工号一样的相应记录的相关信息。SET TALK OFFSET SAFETY OFFCLEARSELECT 1USE DWSELECT 2USE ZG*FOUND*INDEX ON 职工号

21、INTO ZGH SELE 1*FOUND*SET RELATION ON 职工号 INTO BLOCATE FOR 职工号=B-职工号DO WHILE FOUND()DISPLAY 职工号,姓名,B-基本工资,单位,性质*FOUND*SKIP ENDDOCLOSE DATABASERETURN案：1). INDEON职工号TOZGH 或 INDETOZGHON职工号2). SETRELATO职工号INTOB 或 SETRELATO职工号INTOZG3). CONT*题目:将s所指字符串中出现的、t1所指子串全部替换成t2所指子字符串，所形成的新串放在s所指的字符串中。在此处，要求t1和t2所

22、指字符串的长度相同。例如，当s所指字符串中的内容为：abcdabfab， t1所指子串中的内容为：ab，t2所指子串中的内容为： 99时，结果，在w所指的数组中的内容应为：99cd99f99。set talk offclears=abcdabfabt1=abt2=99p=i=1*FOUND*do while i=len(s)-3if t1=subs(s,i,2)*FOUND*s=stuff(s,i,2,t1)endif*FOUND*skip endd? s=,s答案： 1). dowhilei=len(s)-1 或 dowhilei=len(s) 或 dowhileilen(s) 2). s=stuff(s,i,2,t2) 3). i=i+1 或 i=1+i*题目:已有数据库stuck.dbf，包括商品号、商品名、单价和数量等字段。请考生编写程序modi1.PRG，其功能是给该数据库增加一个总额(N, 10.2)字段，并填入数据，