VFP程序改錯(cuò).doc

程序改錯(cuò)*題目：表XSDA.DBF結(jié)構(gòu)為：學(xué)號(hào)（C，6），姓名（C，6），性別（C，2），入學(xué)成績(jī)（N，6，2）。本程序復(fù)制表XSDA的記錄到表XS1中，在表XS1中查找入學(xué)成績(jī)550分以上的同學(xué)，將其刪除并瀏覽XS1的內(nèi)容。SET TALK OFFUSE XSDA*FOUND*COPY STRUCTURE TO XSDAUSE XS1*FOUND*LOCATE ALL 入學(xué)成績(jī)=550DO WHILE FOUND()DELETE*FOUND* LOOPENDDOPACKBROWUSESET TALK ON答案： 1). COPY TO XS1 2). LOCATE ALL FOR 入學(xué)成績(jī)=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)+區(qū)中已經(jīng)打開(kāi)了: + FILENAME 7,6 SAY 該數(shù)據(jù)庫(kù)中的字段數(shù)是: + STR(FNUM,1) 8,6 SAY 該數(shù)據(jù)庫(kù)中的記錄數(shù)是: + STR(RECNUM,1)ENDIFCLOSE DATASET TALK ONRETURN答案： 1). SELECT0 2). storefcount()tofnum 或 FNUM=FCOUNT() 3). count to recnum*題目:STUDENT.DBF是一個(gè)學(xué)生信息文件，包含學(xué)號(hào)(C 8)、姓名(C 8)、性別(C 2)、政治面目(C 4)、班級(jí)(C 5)等字段；其中性別用字符串男或女表示，政治面目用字符串黨員、團(tuán)員或群眾表示。程序MODI1.PRG的功能是：顯示輸出所有政治面目為群眾的男生姓名和班級(jí)。set talk offclearUSE STUDENTLOCATE FOR 政治面目=群眾*FOUND*DO WHILE .not. FOUND()IF 性別=女CONTINUE*FOUND*break ENDIF? 姓名,班級(jí)*FOUND*skip ENDDOUSESET TALK ON答案： 1). DOWHILEFOUND() 2). LOOP 3). CONTINUE*題目:有結(jié)構(gòu)相同的三個(gè)班學(xué)生數(shù)據(jù)庫(kù)STD1.DBF、STD2.DBF、STD3.DBF。其中學(xué)號(hào)的前兩位是學(xué)生所在班級(jí)號(hào)。一個(gè)統(tǒng)計(jì)數(shù)據(jù)庫(kù)TJ.DBF，其結(jié)構(gòu)包括七個(gè)字段：班級(jí)C(2)、男、女、黨員、團(tuán)員、群眾、少數(shù)民族，后六個(gè)均為數(shù)值型字段N(3,0)。請(qǐng)編寫(xiě)統(tǒng)計(jì)程序MODI1.PRG，按班對(duì)學(xué)生數(shù)據(jù)進(jìn)行的性別、政治面目和民族統(tǒng)計(jì)，并將統(tǒng)計(jì)結(jié)果存放到TJ.DBF中。（不得修改學(xué)生數(shù)據(jù)庫(kù)）set talk offsele 1use std1sele 2use std2sele 3use std3sele 4 use tjzapsele 1*FOUND*banji=學(xué)號(hào) count all for 性別=男 to mancount all for 性別=女 to womancount all for 民族漢 to minzucount all for 政治面目=黨員 to dangyuancount all for 政治面目=團(tuán)員 to tuanyuancount all for 政治面目=群眾 to quanzhongsele 4appe blan repl 班級(jí) with banji,男 with man,女 with woman,黨員 with dangyuan,團(tuán)員 with tuanyuan,群眾 with quanzhong,少數(shù)民族 with minzusele 2banji=left(學(xué)號(hào),2)count all for 性別=男 to mancount all for 性別=女 to womancount all for 民族漢 to minzucount all for 政治面目=黨員 to dangyuancount all for 政治面目=團(tuán)員 to tuanyuancount all for 政治面目=群眾 to quanzhongsele 4appe blan repl 班級(jí) with banji,男 with man,女 with woman,黨員 with dangyuan,團(tuán)員 with tuanyuan,群眾 with quanzhong,少數(shù)民族 with minzu*FOUND*sele 1 banji=left(學(xué)號(hào),2)count all for 性別=男 to mancount all for 性別=女 to womancount all for 民族漢 to minzucount all for 政治面目=黨員 to dangyuancount all for 政治面目=團(tuán)員 to tuanyuancount all for 政治面目=群眾 to quanzhongsele 4*FOUND*appe repl 班級(jí) with banji,男 with man,女 with woman,黨員 with dangyuan,團(tuán)員 with tuanyuan,群眾 with quanzhong,少數(shù)民族 with minzuclose databaseset talk onreturn答案： 1).banji=left(學(xué)號(hào),2)或 banji=subs(學(xué)號(hào),1,2)或banji=01 2). sele3 或 selec 3). appeblank*題目：分別統(tǒng)計(jì)化學(xué)系的男、女生總?cè)藬?shù)并顯示出來(lái)。USE XSDBSTOR 0 TO RS1,RS2*FOUND*FIND FOR 系別=化學(xué)DO WHILE .NOT.EOF()*FOUND* IF 性別男 RS1=RS1+1 ELSE RS2=RS2+1 ENDIF CONTENDDO? 男生人數(shù)=,RS1? 女生人數(shù)=,RS2USE答案： 1).LOCATEFOR系別=化學(xué) 或 LOCATEALLFOR系別=化學(xué)或 LOCATEFOR系別=化學(xué) 或 LOCATEALLFOR系別=化學(xué) 2). IF 性別=男 或 IF 性別女 或 IF 性別#女 或 IF 性別=男 或 IF 性別女 或 IF 性別#女*題目:有如下數(shù)據(jù)庫(kù)文件： ZY.DBF：職員號(hào)N(3,0)，姓名C(6)，性別C(2)，職務(wù)C(10)；DD.DBF：訂單號(hào)N(3,0)，客戶(hù)號(hào)N(3,0)，職員號(hào)N(3,0)，簽訂日期D(8)，金額N(6,2)。給定程序MODI1.PRG的功能是：根據(jù)客戶(hù)號(hào)查詢(xún)?cè)摽蛻?hù)的有關(guān)訂單信息，結(jié)果按訂單金額降序排序，并顯示這些定單的總金額。修改并調(diào)試該程序，使之正確運(yùn)行。SET TALK OFFSET SAFETY OFFSELECT 1USE zyINDEX ON 職員號(hào) TO zyiSELECT 2USE ddINDEX ON -金額 TO ddi*FOUND* SET RELATION ON -金額 TO ADO WHILE .T.CLEARKH=202? 請(qǐng)輸入客戶(hù)號(hào)： , kh?LOCATE FOR 客戶(hù)號(hào)=kh*FOUND*IF .NOT.EOF()? 沒(méi)有該客戶(hù)!ELSE? 訂單號(hào)+ 職 員+SPACE(5)+簽訂日期+ 金 額?s=0DO WHILE !EOF()? STR(訂單號(hào),3)+SPACE(5)+A-姓名+SPACE(5)+DTOC(簽訂日期)+ +STR(金額,6,2)*FOUND*s=金額CONTINUEENDDO? 總金額為:+STR(s,8,2)ENDIF?WAIT 繼續(xù)查詢(xún)嗎(Y/N)? TO pIF !UPPER(p)=YEXITENDIFENDDOCLOSE DATASET SAFETY ONSET TALK ON答案： 1).SETRELATO職員號(hào)INTOA 或 SETRELATO職員號(hào)INTOzy 2).IFEOF()或IF.NOT.FOUND() 3).s=s+金額 或 s=金額+s 或 STORs+金額TOs 或 STOR金額+sTOs*題目：在XSDB.DBF中查找學(xué)生徐秋實(shí)的記錄, 如果找到則將該記錄的系別、姓名,兩科科目名稱(chēng)和對(duì)應(yīng)的成績(jī)顯示在屏幕上，否則顯示:查無(wú)此人!。USE XSDB*FOUND*FIND FOR 姓名=徐秋實(shí)IF .NOT.FOUND()?查無(wú)此人!ELSE*FOUND*?系別,姓名, 計(jì)算機(jī)=+計(jì)算機(jī), 英語(yǔ)=+英語(yǔ)ENDIFUSERETURN答案： 1). LOCATEFOR姓名=徐秋實(shí) 或 LOCATEALLFOR姓名=徐秋實(shí) 或 LOCATEFOR姓名=徐秋實(shí) 或 LOCATEALLFOR姓名=徐秋實(shí)2).?系別,姓名,計(jì)算機(jī)=+STR(計(jì)算機(jī)),英語(yǔ)=+STR(英語(yǔ)) 或 ?系別,姓名,計(jì)算機(jī)=,計(jì)算機(jī), 英語(yǔ)=,英語(yǔ) 或?系別,姓名,計(jì)算機(jī)=+STR(計(jì)算機(jī),3),英語(yǔ)=+STR(英語(yǔ),3) 或 ?系別,姓名,計(jì)算機(jī)=+STR(計(jì)算機(jī)),英語(yǔ)=+STR(英語(yǔ)) 或 ?系別,姓名,計(jì)算機(jī)=,計(jì)算機(jī), 英語(yǔ)=,英語(yǔ) 或 ?系別,姓名,計(jì)算機(jī)=+STR(計(jì)算機(jī),3),英語(yǔ)=+STR(英語(yǔ),3)*題目:STUDENT.DBF是一個(gè)學(xué)生信息文件，其中包含學(xué)號(hào)(C 8)、姓名(C 8)等字段，而且已按學(xué)號(hào)建立了索引，索引文件名是STUDENT.IDX；文件SCORE.DBF是成績(jī)文件，其中包含學(xué)號(hào)(C 8)、課程名(C 20)、成績(jī)(N 5.1)等字段，而且已按課程名建立了索引，索引文件名是SCORE1.IDX。程序MODI1.PRG的功能是：顯示輸出選修數(shù)據(jù)結(jié)構(gòu)課程的學(xué)生姓名和成績(jī)，每個(gè)成績(jī)輸出一行，包括學(xué)生的姓名和成績(jī)；set talk offclearSELECT 3USE STUDENT INDEX STUDENTSELECT 4USE SCORE INDEX SCORE1SEEK 數(shù)據(jù)結(jié)構(gòu)*FOUND*DO WHILE !EOF()SELECT STUDENT*FOUND*SEEK 學(xué)號(hào)? 姓名+：SELECT SCORE? 成績(jī)*FOUND*next 1 &ENDDOCLOSE DATASET TALK ON答案：1).DOWHILE課程名=數(shù)據(jù)結(jié)構(gòu)2).SEEKSCORE-學(xué)號(hào) 或 SCORE.學(xué)號(hào)或 D-學(xué)號(hào) 或 D.學(xué)號(hào)3). skip*題目：將200到300之間的所有能被3整除或被5整除的數(shù)求和并統(tǒng)計(jì)個(gè)數(shù)。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整除的數(shù)之和=+STR(S,6)?200到300之間的所有能被3整除或被5整除的數(shù)的個(gè)數(shù)=+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=1+C 或 C=C+1 或 STORC+1TOC*題目：打開(kāi)XSDB.DBF數(shù)據(jù)表, 分別統(tǒng)計(jì)男、女生的人數(shù)。USE XSDBSTOR 0 TO B,G DO WHILE .NOT.EOF()*FOUND*IF 性別男 B=B+1*FOUND*ENDIFG=G+1 ENDIF SKIPENDDO?男生人數(shù)是：+STR(B)?女生人數(shù)是：+STR(G)答案： 1). IF 性別=男 或 IF 性別女 或 IF 性別#女 或 IF 性別=男 或 IF 性別女 或 IF 性別#女 2). ELSE*題目：該程序完成口令檢驗(yàn)功能。輸入三次不正確退出。SET TALK OFF CLEARass1=AbCdEfTT=1DO WHILE TT410,20 SAY 請(qǐng)輸入口令:SET CONSOLE OFFACCEPT TO assSET CONSOLE ON*FOUND*IF ass1=ass CLEAR ?歡迎使用本系統(tǒng)!*FOUND* LOOPELSE *FOUND* TT=TT-1 CLEAR ?口令錯(cuò)，按任意鍵再輸入一次！ WAIT ENDIFENDDORETURN答案： 1). IF UPPER(ass1)=UPPER(ass) 或 IF UPPER(ass1)=UPPER(ass) 2). EXIT 3).TT=TT+1 或 TT=1+TT*題目：打印由數(shù)字組成的圖形,要求第一行空10個(gè)空格打印5個(gè)1,第二行空11個(gè)空格打印5個(gè)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)*題目：從鍵盤(pán)上輸入5個(gè)數(shù)，將其中奇數(shù)求和,偶數(shù)求積。S1=0*FOUND*S2=0FOR I=1 TO 5INPUT 請(qǐng)輸入第+STR(I,1)+ 數(shù) TO M*FOUND*IF INT(M/2)=0S1=S1+MELSE S2=S2*M ENDIFENDFOR? 奇數(shù)和是,S1或?奇數(shù)和是,S1? 偶數(shù)積是,S2或?偶數(shù)積是,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*題目:現(xiàn)已有兩個(gè)數(shù)據(jù)庫(kù)文件ZG.DBF和DW.DBF。給定程序MODI.PRG的功能是：顯示兩個(gè)數(shù)據(jù)庫(kù)文件中職工號(hào)一樣的相應(yīng)記錄的相關(guān)信息。SET TALK OFFSET SAFETY OFFCLEARSELECT 1USE DWSELECT 2USE ZG*FOUND*INDEX ON 職工號(hào) INTO ZGH SELE 1*FOUND*SET RELATION ON 職工號(hào) INTO BLOCATE FOR 職工號(hào)=B-職工號(hào)DO WHILE FOUND()DISPLAY 職工號(hào),姓名,B-基本工資,單位,性質(zhì)*FOUND*SKIP ENDDOCLOSE DATABASERETURN案：1). INDEON職工號(hào)TOZGH 或 INDETOZGHON職工號(hào)2). SETRELATO職工號(hào)INTOB 或 SETRELATO職工號(hào)INTOZG3). CONT*題目:將s所指字符串中出現(xiàn)的、t1所指子串全部替換成t2所指子字符串，所形成的新串放在s所指的字符串中。在此處，要求t1和t2所指字符串的長(zhǎng)度相同。例如，當(dāng)s所指字符串中的內(nèi)容為：abcdabfab， t1所指子串中的內(nèi)容為：ab，t2所指子串中的內(nèi)容為： 99時(shí)，結(jié)果，在w所指的數(shù)組中的內(nèi)容應(yīng)為：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) 或 dowhilei職工號(hào) 或 JOINWITHZGTOJJFOR職工號(hào)=ZG-職工號(hào) 或 JOINWITHATOJJFOR職工號(hào)=A 2). INDEON職稱(chēng)TOZCHZ 3). COPYTOABCFIEL職稱(chēng),獎(jiǎng)金,實(shí)發(fā)工資 或 COPYFIEL職稱(chēng),獎(jiǎng)金,實(shí)發(fā)工資TOABC*題目:已有數(shù)據(jù)庫(kù)djks.dbf。包括：考號(hào)、姓名、筆試成績(jī)、上機(jī)成績(jī)和平均成績(jī)等字段，但各成績(jī)字段為空；另有成績(jī)數(shù)據(jù)庫(kù)cj.dbf，包括：考號(hào)、考場(chǎng)編號(hào)、筆試成績(jī)和上機(jī)成績(jī)等字段，考生的考試成績(jī)已錄入其中。請(qǐng)編寫(xiě)程序 MODI1.PRG，要求把考生的考試成績(jī)填寫(xiě)到數(shù)據(jù)庫(kù)djks.dbf中，然后再計(jì)算筆試和上機(jī)成績(jī)的平均成績(jī)，填入各記錄的平均成績(jī)字段中。最后生成一個(gè)與djks.dbf結(jié)構(gòu)完全相同的不及格數(shù)據(jù)庫(kù)bjg.dbf，把平均成績(jī)不及格的考生記錄移入不及格庫(kù)。SET TALK OFFSET DELETED OFFCLEARSELE BUSE CJSELE AUSE DJKS*FOUND* INDEX TO 考號(hào) ON DJKS UPDATE ON 考號(hào) FROM B REPLACE 筆試成績(jī) WITH B-筆試成績(jī),上機(jī)成績(jī) WITH B-上機(jī)成績(jī) RANDOMGO TOP*FOUND* REPLACE 平均成績(jī) WITH (筆試成績(jī)+上機(jī)成績(jī))/2 *FOUND* COPY TO BJG FOR 平均成績(jī)=60 LISTUSE BJGLISTCLOSE DATABASESET TALK ON答案： 1).INDEXON考號(hào)TODJKS 2). REPLACEALL平均成績(jī)WITH(筆試成績(jī)+上機(jī)成績(jī))/23).COPYTOBJGFOR平均成績(jī)60*題目：本程序計(jì)算1!3!9!的乘積。SET TALK OFFM=1*FOUND*S=0DO WHILE M=9I=1P=1*FOUND*DO WHILE M=9P=P*II=I+1ENDDOS=S*P*FOUND*M=M+3ENDDO? 1!3!9!=,SSET TALK ONRETURN答案： 1).S=1 2).DO WHILE I=I 3). M=M*3*題目:將XSDB.DBF表中獎(jiǎng)學(xué)金超過(guò)60元的學(xué)生姓名和獎(jiǎng)學(xué)金顯示在屏幕上。USE XSDB*FOUND*IF 獎(jiǎng)學(xué)金60 DO WHILE .NOT.EOF()*FOUND* ?姓名=+姓名,獎(jiǎng)學(xué)金=+獎(jiǎng)學(xué)金 CONTENDDOUSE答案：1). LOCATE FOR獎(jiǎng)學(xué)金602).?姓名=+姓名,獎(jiǎng)學(xué)金=+STR(獎(jiǎng)學(xué)金,4,1) 或 ?姓名=+姓名,獎(jiǎng)學(xué)金=+STR(獎(jiǎng)學(xué)金) 或 ?姓名=+姓名,獎(jiǎng)學(xué)金=+STR(獎(jiǎng)學(xué)金,4,1) 或 ?姓名=+姓名,獎(jiǎng)學(xué)金=+STR(獎(jiǎng)學(xué)金)*題目:計(jì)算并在屏幕上顯示出九九乘法表，顯示格式如下*111*212 224*313 326 339* *919 9872 9981*程序中共有2個(gè)錯(cuò)誤，請(qǐng)修改下面一條語(yǔ)句的錯(cuò)誤，并調(diào)試運(yùn)行。X=1DO WHILE X=9Y=1*FOUND*DO WHILE Y=9?STR(X,1)+STR(Y,1)+=+STR(X*Y,2)+ Y=Y+1ENDDO*FOUND*dispX=X+1ENDDO答案： 1).DO WHILE Y=Y 2).?*題目:809*?=800*?+9*?+1 其中?代表的兩位數(shù),8*?的結(jié)果為兩位數(shù)，9*?的結(jié)果為3位數(shù)。求?代表的兩位數(shù)，及809*?后的結(jié)果。set talk offclearA=800+9*FOUND* FOR I=10 TO 100 *FOUND* B=I/A+1 IF B 1000 .AND. B10000 .AND. 8*I=100? ?代表的兩位數(shù)是,I? 809*?后的結(jié)果是：,809*IENDIF*FOUND*ENDD SET TALK ON答案： 1). FORI=10TO99 2). B=I*A+1 3). ENDF*題目:有計(jì)算機(jī)等級(jí)考試成績(jī)數(shù)據(jù)庫(kù)cj.dbf，包括考號(hào)、筆試成績(jī)和上機(jī)成績(jī)等字段，其中考號(hào)的前兩位是單位編碼；還有統(tǒng)計(jì)數(shù)據(jù)庫(kù)tj.dbf，包括單位編碼、筆試平均分、上機(jī)平均分、筆試最高分、上機(jī)最高分等字段。請(qǐng)編寫(xiě)程序 MODI1.PRG，其功能是：按單位進(jìn)行各項(xiàng)統(tǒng)計(jì)，結(jié)果存于統(tǒng)計(jì)數(shù)據(jù)庫(kù)tj.dbf的相應(yīng)字段中。 SET TALK OFFSET SAFETY OFFCLOSE DATABASECLEARSELE 2USE TJZAPSELE 1USE CJSORT ON 考號(hào) TO CJ1USE CJ1DO WHILE .NOT. EOF()STORE 0 TO BS1,SJ1,BSMAX,SJMAXDWCODE=SUBSTR(考號(hào),1,2)N1=0BSMAX=筆試成績(jī)SJMAX=上機(jī)成績(jī)DO WHILE 考號(hào)=DWCODE*FOUND*IF 上機(jī)成績(jī)BSMAXBSMAX=筆試成績(jī)ENDIFBS1=BS1+筆試成績(jī)SJ1=SJ1+上機(jī)成績(jī)N1=N1+1*FOUND*go 1 ENDDOSELE 2*FOUND*APPEND REPLACE 單位編碼 WITH DWCODE,筆試平均分 WITH BS1/N1,上機(jī)平均分 WITH SJ1/N1,筆試最高分 WITH BSMAX, 上機(jī)最高分 WITH SJMAXSELE 1ENDDOSELE 2LISTCLOSE DATABASESET TALK ONSET SAFETY ON答案： 1). IF上機(jī)成績(jī)SJMAX 2). SKIP 3). APPENDBLANK*題目：程序輸入兩個(gè)任意整數(shù)，求最小公倍數(shù)，并顯示輸出。SET TALK OFFINPUT X= TO XINPUT Y= TO YMAX=XIF YX MAX=Y*FOUND*ENDFORA=MAXDO WHILE A=1 ?SUBS(S,L,1)*FOUND* L=L+1ENDD答案： 1).L=LEN(S) 或 STOR LEN(S) TO L 2). L=L-1 或 STORL-1TOL*題目：鍵盤(pán)輸入X值時(shí),求其相應(yīng)的Y值* -1 (X0)SET TALK OFF*FOUND*ACCEPT 請(qǐng)輸入一個(gè)數(shù)： TO X*FOUND*DO WHILECASE X0Y=1ENDCASE? YSET TALK OFF答案： 1). INPUT 2). DO CASE 3). OTHERWISE 或 case x0*題目:分別統(tǒng)計(jì)字符串中大寫(xiě)字母和小寫(xiě)字母的個(gè)數(shù)。例如, 給字符串 s 輸入：AAaaBBb123CCccccd，則應(yīng)輸出結(jié)果：upper = 6, lower = 8。set talk offclears=AAaaBBb123CCccccdstor 0 to l,u*FOUND*for i=0 to len(s)-1 if isup(subs(s,i,1)u=u+1endiif islow( subs(s,i,1)*FOUND*i=i+1 endi*FOUND*enddo ? upper=,u,lower=,lSET TALK ON答案： 1). fori=1tolen(s) 2). l=l+1 3). endfor*題目:有如下數(shù)據(jù)庫(kù)文件： ZY.DBF：職員號(hào)N(3,0)，姓名C(6)，性別C(2)，職務(wù)C(10)；KH.DBF：客戶(hù)號(hào)N(3,0)，客戶(hù)名C(30)，地址C(30)，電話C(13)； DD.DBF：訂單號(hào)N(3,0)，客戶(hù)號(hào)N(3,0)，職員號(hào)N(3,0)，簽訂日期D(8)，金額N(6,2)。給定程序MODI1.PRG的功能是：根據(jù)職員姓名查詢(xún)?cè)撀殕T簽訂的有關(guān)訂單信息。修改并調(diào)試該程序，使之正確運(yùn)行。SET TALK OFFSET SAFETY OFFSELECT 1USE zySELECT 2USE khINDEX ON 客戶(hù)號(hào) TO khiSELECT 3USE ddSET RELATION TO 客戶(hù)號(hào) INTO BINDEX ON 職員號(hào) TO ddiDO WHILE .T.CLEARXM=王武?請(qǐng)輸入職員姓名： ,XMSELECT 1LOCATE FOR 姓名=xmIF EOF()? 沒(méi)有該職員!ELSE? 訂單號(hào)+ 客戶(hù)名+SPACE(25)+ 簽訂日期+ 金 額?*FOUND*n=1? 職員號(hào):,職員號(hào)zyh=職員號(hào)SELECT 3SEEK zyh*FOUND* DO WHILE !EOF()? STR(訂單號(hào),3)+SPACE(5)+KH-客戶(hù)名+ +DTOC(簽訂日期)+ +STR(金額,6,2)n=n+1*FOUND*CONTENDDO? 共+STR(n,2)+張訂單ENDIF?WAIT 繼續(xù)查詢(xún)嗎(Y/N)? TO pIF !UPPER(p)=YEXITENDIFENDDOCLOSE DATASET SAFETY ONSET TALK ON答案： 1). N=0 或 N=1-1 或 STORE 0 TO N 2). DOWHIL.NOT.EOF().AND.職員號(hào)=zyh 或 DOWHIL職員號(hào)=zyh.AND.NOT.EOF() 或 DOWHIL職員號(hào)=zyh 3). SKIP 或 SKIP 1 或 SKIP +1*題目:識(shí)別用戶(hù)密碼，保護(hù)系統(tǒng)不被非授權(quán)用戶(hù)使用。該程序給用戶(hù)三次輸入密碼的機(jī)會(huì)（要求輸入的密碼不顯示在屏幕上），超過(guò)三次，系統(tǒng)退出。用戶(hù)密碼保存在P1DB數(shù)據(jù)庫(kù)中set talk offset exact oncleark=0do while k=1n=n-1enddoendifk=k+1enddoif k=3 15,10 say 對(duì)不起,您不能使用本系統(tǒng)n=80000 do while n=1n=n-1enddoendifset talk on return答案： 1). setconsoleoff 2). setconsoleon 3). if.not.eof() 或 if!eof()*題目:有1、2、3、4個(gè)數(shù)字，能組成多少個(gè)互不相同且無(wú)重復(fù)數(shù)字的三位數(shù)？都是多少？ set talk of