vfp程序改错

VisualFoxpro程序改错〖第1题〗(练习题所在文件夹:163)*题目：该程序完成口令检验功能。输入三次不正确退出。*注意：不可以增加或删除程序行，也不可以更改程序的结构。SETTALKOFFCLEARass1=AbCdEfTT=1DOWHILETT4@10,20SAY请输入口令:SETCONSOLEOFFACCEPTTOassSETCONSOLEON**********FOUND**********IFass1=assCLEAR?欢迎使用本系统!**********FOUND**********LOOPELSE**********FOUND**********TT=TT-1CLEAR?口令错，按任意键再输入一次！WAITENDIFENDDORETURN答案：1).IFUPPER(ass1)==UPPER(ass)或IFUPPER(ass1)==UPPER(ass)2).EXIT3).TT=TT+1或TT=1+TT〖第4题〗(练习题所在文件夹:500)*题目：ZHG.DBF是一个职工信息文件，其中包含编号(C5)、姓名*(C8)、性别(C2)、政治面貌(C4)、出生日期(D8)等字*段。性别用字符串男或女表示，政治面貌用字符串*党员、团员或群众表示。此文件已按政治面貌建立*了索引，索引文件名是ZHG_ZHZH.IDX。*群众的女职工的*姓名和出生日期（每行输出一个职工的信息）在屏幕上*注意：不可以增加或删除程序行，也不可以更改程序的结构。settalkoffclear***********FOUND**********USEZHGSEEK群众***********FOUND**********DOWHILE!EOF()IF性别=女DISP姓名,出生日期***********FOUND**********ENDDSKIPENDDOUSESETTALKON答案：1).USEZHGINDEXZHG_ZHZH2).DOWHILE政治面貌=群众或DOWHILE政治面貌='群众'或DOWHILE政治面貌=[群众]3).ENDIF〖第5题〗(练习题所在文件夹:105)*题目：在RSH.dbf中，查找职工赵红的工资，如果工资小于200元，*则增加100元；如果工资大于等于200元且小于500元时，则增*加50元；否则增加20元。最后显示赵红的姓名和工资。*注意：不可以增加或删除程序行，也不可以更改程序的结构。CLEARUSERSH***********FOUND**********LOCATEFOR姓名=赵红DOCASECASE工资200REPLACE工资WITH工资+100CASE工资500REPLACE工资WITH工资+50OTHERWISEREPLACE工资WITH工资+20ENDCASE***********FOUND**********LIST姓名,工资USE答案：1).LOCATEFOR姓名=赵红或LOCAFOR姓名='赵红'或LOCAFOR姓名=赵红或LOCATEFOR姓名=[赵红]或LOCAFOR姓名=[赵红]或LOCATEFOR姓名='赵红'2).DISP姓名,工资或?姓名,工资或DISPLAY姓名,工资〖第6题〗(练习题所在文件夹:174)*题目：计算S=2+4+6+...+98+100的程序。*注意：不可以增加或删除程序行，也不可以更改程序的结构。store0tos,i***********FOUND**********doi=99***********FOUND**********i=i+1s=s+ienddo?s=,s答案：1).dowhilei=99或dowhilei100或dowhilei=98或dowhilei992).I=2+I或I=I+2或STORI+2TOI〖第7题〗(练习题所在文件夹:520)*题目:猴子吃桃问题：猴子第一天摘下若干个桃子，当即吃了一半，*还不过瘾，又多吃了一个，第二天早上又将剩下的桃子吃掉*一半，又多吃了一个。以后每天早上都吃了前一天剩下的一*半零一个。到第10天早上想再吃时，见只剩下一个桃子了。*求第一天共摘了多少。*注意：不可以增加或删除程序行，也不可以更改程序的结构。settalkoffclearDAY=9***********FOUND**********X2=0DOWHILEDAY0***********FOUND**********X1=(X2+1)/2X2=X1***********FOUND**********DAY=DAY+1ENDDO?第一天摘下,X1,个桃子SETTALKON答案：1).X2=12).X1=(X2+1)*23).DAY=DAY-1〖第8题〗(练习题所在文件夹:175)*题目：打开XSDB.DBF数据表,分别统计男、女生的人数。*注意：不可以增加或删除程序行，也不可以更改程序的结构。USEXSDBSTOR0TOB,GDOWHILE.NOT.EOF()***********FOUND**********IF性别男B=B+1***********FOUND**********ENDIFG=G+1ENDIFSKIPENDDO?男生人数是：+STR(B)?女生人数是：+STR(G)答案：1).IF性别=男或IF性别女2).ELSE〖第9题〗(练习题所在文件夹:188)*题目：显示XSDB.DBF中每个学生的姓名、计算机成绩和等级；等*级划分如下：计算机成绩大于等于90显示优秀；60到89*（包括60和89）之间显示及格；60分以下显示补考。*如显示：张丽娜90优秀。*注意：不可以增加或删除程序行，也不可以更改程序的结构。USEXSDBDOWHIL.NOT.EOF()***********FOUND**********LIST姓名,计算机DOCASECASE计算机=90??'优秀'CASE计算机=60??'及格'OTHERWISE??'补考'ENDCASE***********FOUND**********GONEXTENDDOUSE答案：1).?姓名,计算机或DISPLAY姓名,计算机2).SKIP或SKIP1〖第10题〗(练习题所在文件夹:191)*题目：从键盘上输入5个数，将其中奇数求和,偶数求积。*注意：不可以增加或删除程序行，也不可以更改程序的结构。S1=0***********FOUND**********S2=0FORI=1TO5INPUT请输入第+STR(I,1)+数TOM***********FOUND**********IFINT(M/2)=0S1=S1+MELSES2=S2*MENDIFENDFOR?奇数和是,S1?偶数积是,S2答案：1).S2=1或STOR1TOS22).IFMOD(M,2)0或IFMOD(M,2)#0或IFINT(M/2)M/2或IFINT(M/2)#M/2或IFM%20或IFM%2!=0或IFM%2#0〖第11题〗(练习题所在文件夹:182)*题目：在XSDB.DBF中查找学生徐秋实的记录,如果找到则将该记录*的系别、姓名,两科科目名称和对应的成绩显示在屏幕上，否则*显示:查无此人!。*注意：不可以增加或删除程序行，也不可以更改程序的结构。USEXSDB***********FOUND**********FINDFOR姓名=徐秋实IF.NOT.FOUND()?查无此人!ELSE***********FOUND**********?系别,姓名,计算机=+计算机,英语=+英语ENDIFUSERETURN答案：1).LOCATEFOR姓名=徐秋实或LOCATEALLFOR姓名=徐秋实2).?系别,姓名,计算机=+STR(计算机),英语=+STR(英语)或?系别,姓名,计算机=,计算机,英语=,英语〖第13题〗(练习题所在文件夹:161)*题目：从键盘输入一个表名，打开该表文件，移动记录指针到*文件头，输出当前记录号；在移动记录指针到文件尾，*输出当前记录号。*注意：不可以增加或删除程序行，也不可以更改程序的结构。SETTALKOFFACCEPTTOA**********FOUND**********FINDAGOTOP**********FOUND**********NEXT?RECNO()GOBOTTOM**********FOUND**********NEXT-1?RECNO()USESETTALKON答案：1).USE(A)或USE&A2).SKIP-13).SKIP或SKIP1〖第14题〗(练习题所在文件夹:162)*题目：从键盘输入一个表文件名，打开该表，查找姓名是*张东的记录，并显示该记录，最后输出姓名是张*东的记录个数。(设被打开的表中有固定字段姓名)*注意：不可以增加或删除程序行，也不可以更改程序的结构。SETTALKOFFACCEPTTOAUSE&A**********FOUND**********N=1SCANFOR姓名=张东**********FOUND**********LISTN=N+1ENDSCAN**********FOUND**********?记录个数是,NUSESETTALKON答案：1).N=0或Store0ToN2).DISPLAY或DISP3).?记录个数是,N或?记录个数是,str(N)〖第16题〗(练习题所在文件夹:92)*题目：求X=1+2+3+…+100，并同时求出1到100之间的奇数之和Y，*而且显示输出这两个和。*注意：不可以增加或删除程序行，也不可以更改程序的结构。CLEARSTORE0TOI,X,Y***********FOUND**********DOWHILEI=100I=I+1X=X+IIFI/2=INT(I/2)***********FOUND**********EXITENDIFY=Y+IENDDO?X,YRETURN答案：1).DOWHILEI100或DOWHILEI=992).LOOP〖第17题〗(练习题所在文件夹:501)*题目:STUDENT.DBF是一个学生信息文件，包含学号(C8)、*姓名(C8)、性别(C2)、政治面貌(C4)、班级(C5)*等字段；其中性别用字符串男或女表示，政治面貌*用字符串党员、团员或群众表示。*群众的男生姓*名和班级。*注意：不可以增加或删除程序行，也不可以更改程序的结构。settalkoffclearUSESTUDENTLOCATEFOR政治面貌=群众***********FOUND**********DOWHILE.not.FOUND()IF性别=女CONTINUE***********FOUND**********breakENDIF?姓名,班级***********FOUND**********skipENDDOUSESETTALKON答案：1).DOWHILEFOUND()或DOWHIL.not.eof()2).LOOP3).CONTINUEx〖第19题〗(练习题所在文件夹:148)*题目：从键盘上输入任意一串字符，判断是否回文。*例如：MUM、456654，MADAM。*注意：不可以增加或删除程序行，也不可以更改程序的结构。SETTALKOFFACCEPTA=TOAL=LEN(A)FLAG=1I=1**********FOUND**********DOWHILEFLAG=1ORI=INT(L/2)**********FOUND**********IFSUBS(A,I,1)SUBS(A,L-I,1)FLAG=0ENDIFI=I+1ENDDO**********FOUND**********IFFLAG=0?是回文ELSE?不是回文ENDIFCANCEL答案：1).DOWHILEFLAG=1ANDI=INT(L/2)2).IFSUBSTR(A,I,1)SUBSTR(A,L-I+1,1)3).IFFLAG=1〖第20题〗(练习题所在文件夹:189)*题目：从键盘输入一个数X，当X大于0、Y的值为1；当X等于0、Y的*值为0；当X