vfp程序改錯(cuò)--精選文檔

1、Visual Foxpro程序改錯(cuò)第1題(練習(xí)題所在文件夾:163)*題目：該程序完成口令檢驗(yàn)功能。輸入三次不正確退出。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。SET TALK OFFCLEARass1="AbCdEf"TT=1DO WHILE TT<410,20 SAY "請(qǐng)輸入口令:"SET CONSOLE OFFACCEPT TO assSET CONSOLE ON*FOUND*IF ass1=ass CLEAR ?"歡迎使用本系統(tǒng)!"*FOUND* LOOPELSE*FOUND* TT=TT-1 CLEA

2、R ?"口令錯(cuò)，按任意鍵再輸入一次！" WAIT" "ENDIFENDDORETURN答案： 1). IF UPPER(ass1)=UPPER(ass) 或 IF UPPER(ass1)=UPPER(ass) 2). EXIT 3). TT=TT+1 或 TT=1+TT第4題(練習(xí)題所在文件夾:500)*題目：ZHG.DBF是一個(gè)職工信息文件，其中包含編號(hào)(C 5)、姓名* (C 8)、性別(C 2)、政治面貌(C 4)、出生日期(D 8)等字* 段。性別用字符串"男"或"女"表示，政治面貌用字符串"*

3、黨員"、"團(tuán)員"或"群眾"表示。此文件已按政治面貌建立* 了索引，索引文件名是ZHG_ZHZH.IDX。* 程序功能是：顯示輸出所有政治面貌為"群眾"的女職工的* 姓名和出生日期（每行輸出一個(gè)職工的信息）在屏幕上*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。set talk offclear*FOUND*USE ZHGSEEK "群眾"*FOUND*DO WHILE !EOF()IF 性別="女"DISP 姓名,出生日期*FOUND*ENDDSKIPENDDOUSESET T

4、ALK ON答案： 1). USE ZHG INDEX ZHG_ZHZH 2). DO WHILE政治面貌="群眾" 或 DOWHILE政治面貌='群眾' 或 DOWHILE政治面貌=群眾 3). ENDIF第5題(練習(xí)題所在文件夾:105)*題目：在RSH.dbf 中，查找職工趙紅的工資，如果工資小于200元，* 則增加100元；如果工資大于等于200元且小于500元時(shí)，則增* 加50元；否則增加20元。最后顯示趙紅的姓名和工資。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。CLEARUSE RSH*FOUND*LOCATE FOR 姓名 =趙紅

5、DO CASE CASE 工資< 200 REPLACE 工資 WITH 工資+ 100 CASE 工資< 500 REPLACE 工資 WITH 工資+ 50 OTHERWISE REPLACE 工資 WITH 工資+ 20ENDCASE*FOUND*LIST 姓名,工資USE答案： 1). LOCATE FOR 姓名="趙紅" 或 LOCA FOR 姓名='趙紅' 或 LOCA FOR 姓名="趙紅" 或 LOCATE FOR 姓名=趙紅 或 LOCA FOR 姓名=趙紅 或 LOCATE FOR 姓名='趙紅&#

6、39; 2). DISP 姓名,工資 或 ?姓名,工資 或 DISPLAY 姓名,工資第6題(練習(xí)題所在文件夾:174)*題目：計(jì)算S=2+4+6+.+98+100的程序。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。store 0 to s,i*FOUND*do i<=99*FOUND*i=i+1 s=s+ienddo?"s=",s答案： 1). do while i<=99 或 do while i<100 或 dowhilei<=98 或 dowhilei<99 2). I=2+I 或 I=I+2 或 STORI+2TOI第7題

7、(練習(xí)題所在文件夾:520)*題目:猴子吃桃問(wèn)題：猴子第一天摘下若干個(gè)桃子，當(dāng)即吃了一半，* 還不過(guò)癮，又多吃了一個(gè)，第二天早上又將剩下的桃子吃掉* 一半，又多吃了一個(gè)。以后每天早上都吃了前一天剩下的一* 半零一個(gè)。到第10天早上想再吃時(shí)，見(jiàn)只剩下一個(gè)桃子了。* 求第一天共摘了多少。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。set talk offclearDAY=9*FOUND*X2=0DO WHILE DAY>0*FOUND*X1=(X2+1)/2X2=X1*FOUND*DAY=DAY+1ENDDO? "第一天摘下",X1,"個(gè)桃子&quo

8、t;SET TALK ON答案： 1). X2=1 2). X1=(X2+1)*2 3). DAY=DAY-1第8題(練習(xí)題所在文件夾:175)*題目：打開(kāi)XSDB.DBF數(shù)據(jù)表, 分別統(tǒng)計(jì)男、女生的人數(shù)。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。USE XSDBSTOR 0 TO B,GDO WHILE .NOT.EOF()*FOUND*IF 性別<>男 B=B+1*FOUND*ENDIFG=G+1 ENDIF SKIPENDDO?"男生人數(shù)是："+STR(B)?"女生人數(shù)是："+STR(G)答案： 1). IF 性別=&qu

9、ot;男" 或 IF 性別<>"女" 2). ELSE第9題(練習(xí)題所在文件夾:188)*題目：顯示XSDB.DBF中每個(gè)學(xué)生的姓名、計(jì)算機(jī)成績(jī)和等級(jí)；等* 級(jí)劃分如下：計(jì)算機(jī)成績(jī)大于等于90顯示"優(yōu)秀"；60到89* （包括 60和89）之間顯示"及格"；60分以下顯示"補(bǔ)考"。* 如顯示：張麗娜 90 優(yōu)秀 。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。USE XSDBDO WHIL .NOT. EOF()*FOUND* LIST 姓名,計(jì)算機(jī) DO CASE CASE 計(jì)算機(jī)

10、>=90 ?'優(yōu)秀' CASE 計(jì)算機(jī)>=60 ?'及格' OTHERWISE ?'補(bǔ)考' ENDCASE*FOUND* GO NEXTENDDOUSE答案： 1). ? 姓名,計(jì)算機(jī) 或DISPLAY姓名,計(jì)算機(jī) 2). SKIP 或 SKIP 1第10題(練習(xí)題所在文件夾:191)*題目：從鍵盤上輸入5個(gè)數(shù)，將其中奇數(shù)求和,偶數(shù)求積。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。S1=0*FOUND*S2=0FOR I=1 TO 5 INPUT "請(qǐng)輸入第"+STR(I,1)+ "數(shù)&quo

11、t; TO M*FOUND* IF INT(M/2)=0 S1=S1+M ELSE S2=S2*M ENDIFENDFOR? "奇數(shù)和是",S1? "偶數(shù)積是",S2答案： 1). S2=1 或 STOR 1 TO S2 2). IF MOD(M,2)<>0 或 IF MOD(M,2)#0 或 IF INT(M/2)<>M/2 或 IF INT(M/2)#M/2 或 IF M%2 <>0 或 IF M%2!=0 或 IF M%2#0第11題(練習(xí)題所在文件夾:182)*題目：在XSDB.DBF中查找學(xué)生徐秋實(shí)的記錄,

12、如果找到則將該記錄* 的系別、姓名,兩科科目名稱和對(duì)應(yīng)的成績(jī)顯示在屏幕上，否則* 顯示:"查無(wú)此人!"。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。USE XSDB*FOUND*FIND FOR 姓名="徐秋實(shí)"IF .NOT.FOUND()?"查無(wú)此人!"ELSE*FOUND*?系別,姓名, "計(jì)算機(jī)="+計(jì)算機(jī), "英語(yǔ)="+英語(yǔ)ENDIFUSERETURN答案： 1). LOCATE FOR姓名="徐秋實(shí)" 或 LOCATE AL LFOR姓名="

13、徐秋實(shí)" 2). ? 系別,姓名,"計(jì)算機(jī)="+STR(計(jì)算機(jī)),"英語(yǔ)="+STR(英語(yǔ)) 或 ?系別,姓名,"計(jì)算機(jī)=",計(jì)算機(jī), "英語(yǔ)=",英語(yǔ) 第13題(練習(xí)題所在文件夾:161)*題目：從鍵盤輸入一個(gè)表名，打開(kāi)該表文件，移動(dòng)記錄指針到* 文件頭，輸出當(dāng)前記錄號(hào)；在移動(dòng)記錄指針到文件尾，* 輸出當(dāng)前記錄號(hào)。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。SET TALK OFFACCEPT TO A*FOUND*FIND AGO TOP*FOUND*NEXT? RECNO( )GO BO

14、TTOM*FOUND*NEXT -1? RECNO( )USESET TALK ON答案： 1). USE(A) 或 USE&A 2). SKIP-1 3). SKIP 或 SKIP 1第14題(練習(xí)題所在文件夾:162)*題目：從鍵盤輸入一個(gè)表文件名，打開(kāi)該表， 查找"姓名"是* "張東"的記錄，并顯示該記錄， 最后輸出"姓名"是"張* 東"的記錄個(gè)數(shù)。(設(shè)被打開(kāi)的表中有固定字段"姓名")*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。SET TALK OFFACCEPT TO

15、 AUSE &A*FOUND*N=1SCAN FOR 姓名= "張東"*FOUND* LIST N=N+1ENDSCAN*FOUND*? 記錄個(gè)數(shù)是,NUSESET TALK ON答案： 1). N=0 或 Store0ToN 2). DISPLAY 或 DISP 3). ? "記錄個(gè)數(shù)是",N 或 ? "記錄個(gè)數(shù)是",str(N) 第16題(練習(xí)題所在文件夾:92)*題目：求X =1+2+3+ +100，并同時(shí)求出 1到100 之間的奇數(shù)之和Y，* 而且顯示輸出這兩個(gè)和。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)

16、。CLEARSTORE 0 TO I , X , Y*FOUND*DO WHILE I<=100I = I+1X =X+IIF I/2 = INT(I/2)*FOUND* EXITENDIFY=Y+IENDDO?X,YRETURN答案： 1). DO WHILE I<100 或 DO WHILE I<=99 2). LOOP第17題(練習(xí)題所在文件夾:501)*題目:STUDENT.DBF是一個(gè)學(xué)生信息文件，包含學(xué)號(hào)(C 8)、* 姓名(C 8)、性別(C 2)、政治面貌(C 4)、班級(jí)(C 5)* 等字段；其中性別用字符串"男"或"女"

17、;表示，政治面貌* 用字符串"黨員"、"團(tuán)員"或"群眾"表示。* 程序的功能是：顯示輸出所有政治面貌為"群眾"的男生姓* 名和班級(jí)。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。set talk offclearUSE STUDENTLOCATE FOR 政治面貌="群眾"*FOUND*DO WHILE .not. FOUND()IF 性別="女"CONTINUE*FOUND*breakENDIF? 姓名,班級(jí)*FOUND*skipENDDOUSESET TALK

18、ON答案： 1). DO WHILE FOUND() 或DO WHIL .not.eof() 2). LOOP 3). CONTINUEx第19題(練習(xí)題所在文件夾:148)*題目：從鍵盤上輸入任意一串字符，判斷是否回文。* 例如：MUM、456654，MADAM。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。SET TALK OFFACCEPT "A=" TO AL=LEN(A)FLAG=1I=1*FOUND*DO WHILE FLAG=1 OR I<=INT(L/2)*FOUND*IF SUBS(A,I,1)<>SUBS(A,L-I,1)FL

19、AG=0ENDIFI=I+1ENDDO*FOUND*IF FLAG=0? "是回文"ELSE? "不是回文"ENDIFCANCEL答案： 1). DO WHILE FLAG=1 AND I<=INT(L/2) 2). IF SUBSTR(A,I,1)<>SUBSTR(A,L-I+1,1) 3). IF FLAG=1第20題(練習(xí)題所在文件夾:189)*題目：從鍵盤輸入一個(gè)數(shù)X，當(dāng)X大于0、Y的值為1；當(dāng)X等于0、Y的* 值為0；當(dāng)X小于0、Y的值為-1, 然后輸出Y的值。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。INPUT

20、 "輸入一個(gè)數(shù)X：" TO X*FOUND*IF X>0 IF X>0Y=1 ELSEY=0 ENDIFELSE Y=-1ENDIF*FOUND*?"Y=Y"答案： 1). IF X>=0 或 IF 0<=X 2). ? "Y=",Y 或? "Y="+STR(Y) 第22題(練習(xí)題所在文件夾:505)*題目:計(jì)算并顯示輸出數(shù)列1,-1/2, 1/4, -1/8, 1/16 的* 前10項(xiàng)之和。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。set talk offclearY=0ST

21、ORE 1 TO I,C*FOUND*DO WHILE I<=10Y=Y+(-1)(C+1)/I*FOUND*I=-I*2C=C+1*FOUND*ENDIF? "數(shù)列前10項(xiàng)之和為:",YSET TALK ONRETURN答案： 1). DO WHILE C<=10 或 DO WHILE C<11 2). I=I*2 或 I=-I*(-2) 3). ENDD 或 ENDDO第23題(練習(xí)題所在文件夾:156)*題目：求1+5+9+13+97的和。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。SET TALK OFFS=0*FOUND*N=0DO

22、WHILE N<=97*FOUND*S=S+1N=N+4*FOUND*ENDWHILE? SSET TALK ON答案： 1). N=1 或 STOR 1 TO N 2). S=S+N 或 S=N+S 3). ENDDO 或 ENDD第24題(練習(xí)題所在文件夾:165)*題目：求1到10之間奇數(shù)的階乘和t=1!+3!+5!+9!*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。*FOUND*t=1P=1I=1*FOUND*Do while I>10 P=p*I*FOUND* If int(i/2)=i/2 T=t+p Endif I=I+1Enddo?"t=&quo

23、t;,t答案： 1). t=0 2). do while i<10 3). != 或 <> 或 #第25題(練習(xí)題所在文件夾:168)*題目：查找RSH.dbf 中女職工的最高工資，并顯示其姓名和工資。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。*FOUND*OPEN RSHMGZ = 0DO WHILE .NOT.EOF()*FOUND*IF 性別="女",MGZ<"工資" MGZ=工資 MXM=姓名ENDIF*FOUND*CONTENDDO?MXM,MGZUSE答案： 1). USERSH 2). IF 性別=&q

24、uot;女".and. MGZ<工資 3). SKIPx第26題(練習(xí)題所在文件夾:154)*題目：以下程序輸出如下圖所示的圖形。* !$!* !$!$!$* !$!$!* !$!$!$!$!$*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。SET TALK OFFI=4DO WHILE I<10*FOUND* IF INT(I/2)=I/2 I=I*2 ELSE I=I-1 ENDIF FOR J=1 TO I*FOUND* IF J/2=0 ? "!" ELSE ? "$"*FOUND* ENDDO ENDFOR ?EN

25、DDORETURN答案： 1). IF INT(I/2)<>I/2或 IF MOD(I,2)=1 或 IF I%2=1 2). IF J%2=1 或 IF mod(j,2)=1 3). ENDIF 或 ENDI第27題(練習(xí)題所在文件夾:190)*題目：計(jì)算出1到50以內(nèi)（包含50）能被2和3整除的數(shù)之和。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。STOR 0 TO X ,Y*FOUND*DO WHILE NOT EOF() X=X+1 DO CASE*FOUND* CASE MOD(X,2)=0 or MOD(X,3)=0 Y=Y+XCASE X<=50*FO

26、UND* X=X+1 CASE X>50 EXIT ENDCASEENDDO?Y答案： 1). DO WHILE .T. 2). and 3). LOOP第29題(練習(xí)題所在文件夾:196)*題目：分別統(tǒng)計(jì)化學(xué)系的男、女生總?cè)藬?shù)并顯示出來(lái)。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。USE XSDBSTOR 0 TO RS1,RS2*FOUND*FIND FOR 系別="化學(xué)"DO WHILE .NOT.EOF()*FOUND* IF 性別<>"男" RS1=RS1+1 ELSE RS2=RS2+1 ENDIF CONTEN

27、DDO? "男生人數(shù)=",RS1? "女生人數(shù)=",RS2USE答案： 1). LOCATE FOR系別="化學(xué)" 或 LOCATE ALL FOR系別="化學(xué)" 2). IF 性別="男" 或 IF 性別<>"女" 第30題(練習(xí)題所在文件夾:187)*題目：從鍵盤輸入十個(gè)非零整數(shù)，統(tǒng)計(jì)能被3整除的數(shù)的個(gè)數(shù)。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。STORE 0 TO I,A*FOUND*DO WHILE I<=10INPUT "

28、請(qǐng)輸入一個(gè)整數(shù):" TO N*FOUND* IF MOD(N/3)=0 A=A+1 ENDIF I=I+1ENDDO?A答案： 1). DO WHILE I<10 或 DO WHILE I<=9 2). IF MOD(N,3)=0 或 I N%3=0 或 IF INT(N/3)=N/3第31題(練習(xí)題所在文件夾:152)*題目：從鍵盤上輸入5個(gè)數(shù)，統(tǒng)計(jì)其中奇數(shù)的個(gè)數(shù)。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。SET TALK OFFA=0FOR J=1 TO 5*FOUND* ACCEPT "請(qǐng)輸入第"+STR(J,2)+ "數(shù)

29、" TO M*FOUND* IF INT(M/2)=M/2 A=A+1 ENDIFENDFOR*FOUND*?奇數(shù)個(gè)數(shù)是,ACANCEL答案： 1). INPUT "請(qǐng)輸入第"+STR(J,2)+ "數(shù)" TO M 2). IF INT(M/2)#M/2 或 IF INT(M/2)!=M/2 或 IF INT(M/2)<>M/2 3). ? "奇數(shù)個(gè)數(shù)是",A 或 ? '奇數(shù)個(gè)數(shù)是',str(A) 第32題(練習(xí)題所在文件夾:157)*題目：求2!+4!+6!+10!的和。*注意：不可以增加或刪除

30、程序行，也不可以更改程序的結(jié)構(gòu)。SET TALK OFFS=0*FOUND*T=0FOR N=2 TO 10*FOUND*T=T*(T-1)IF N%2=0*FOUND*S=S+NENDIFENDFOR? S答案： 1). T=1 2). T=T*N 或 T=N*T 3). S=S+T 或 S=T+S第33題(練習(xí)題所在文件夾:46)*題目:計(jì)算并在屏幕上顯示出"九九乘法表"，顯示格式如下*1×11*2×12 2×24*3×13 3×26 3×39* *9×19 9×872 9×981

31、*程序中共有2個(gè)錯(cuò)誤，請(qǐng)修改下面一條語(yǔ)句的錯(cuò)誤，并調(diào)試運(yùn)行。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。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<=X 或 DO WHILE X>=Y 2). ?第34題(練習(xí)題所在文件夾:153)*題目：表XSDA.DBF結(jié)構(gòu)為：學(xué)號(hào)（C，6

32、），姓名（C，6），* 性別（C，2），入學(xué)成績(jī)（N，6，2）。* 本程序?qū)崿F(xiàn)按學(xué)號(hào)查找記錄，直到輸入"#"為止。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。SET TALK OFFUSE XSDA*FOUND*ACCEPT "請(qǐng)輸入要查找的學(xué)號(hào)" ON XHDO WHILE XH!= "#"*FOUND* LOCATE FOR 學(xué)號(hào)="CJ" IF FOUND() ?學(xué)號(hào),姓名,入學(xué)成績(jī) ELSE ? "無(wú)此學(xué)號(hào)" ENDIF ACCEPT "請(qǐng)繼續(xù)輸入要查找的學(xué)號(hào)&qu

33、ot; TO XH*FOUND*ENDFOR?"謝謝使用本查找系統(tǒng)"USESET TALK ON答案： 1). ACCEPT "請(qǐng)輸入要查找的學(xué)號(hào)" TO XH 或 ACCEPT '請(qǐng)輸入要查找的學(xué)號(hào)' TO XH 或 ACCEPT 請(qǐng)輸入要查找的學(xué)號(hào) TO XH 2). LOCATE FOR 學(xué)號(hào)=XH 或 LOCA FOR 學(xué)號(hào)=XH 3). ENDDO第35題(練習(xí)題所在文件夾:166)*題目：計(jì)算出1-30以內(nèi)（包含30）能被5整除的數(shù)之和。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。CLEARSET TALK OFF

34、X=0*FOUND*Y=1DO WHILE .T. X=X+1 DO CASE CASE MOD(X,5)=0 Y=Y+X CASE X<=30*FOUND* EXIT CASE x>30*FOUND* LOOP ENDCASEENDDO?YSET TALK ON答案： 1). Y=0 或 STORE0TOY 2). LOOP 3). EXIT 或 Quit第37題(練習(xí)題所在文件夾:186)*題目：接收鍵盤輸入的任意5個(gè)整數(shù)(不超過(guò)3位數(shù)), 找出其中的最* 大數(shù)并顯示。程序中共有2個(gè)錯(cuò)誤。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。INPUT "請(qǐng)輸入第一

35、個(gè)數(shù):" TO XSTORE X TO MAN=5*FOUND*DO WHILE N>=5 INPUT "請(qǐng)輸入下一個(gè)數(shù):" TO X IF MA<X MA=X ENDIF N=N-1ENDDO*FOUND*?"最大數(shù)="+SUBS(MA,3)答案： 1). DO WHILE N>=2 或 DO WHIL N>1 2). ?"最大數(shù)="+STR(MA,3) 或第38題(練習(xí)題所在文件夾:151)*題目：本程序計(jì)算1!×3!×9!的乘積。*注意：不可以增加或刪除程序行，也不可以更改程

36、序的結(jié)構(gòu)。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<=M 或 DO WHILE M>=I 3). M=M*3第39題(練習(xí)題所在文件夾:180)*題目：用循環(huán)程序計(jì)算XSDB.DBF中法律系學(xué)生的計(jì)算機(jī)平均成績(jī)、* 英語(yǔ)平均成績(jī)和獎(jiǎng)學(xué)金總額。*注意：不可以增

37、加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。USE XSDBSTORE 0 TO JSJ,YY,JXJ,RSLOCA FOR 系別="法律"*FOUND*DO WHILE FIND() JSJ=JSJ+計(jì)算機(jī) YY=YY+英語(yǔ) JXJ=JXJ+獎(jiǎng)學(xué)金RS=RS+1CONTENDDO*FOUND*?JSJ,YY,JXJ答案： 1). do while FOUN() 或 do while .NOT.EOF() 或 do while !EOF() 或 do while NOT EOF() 或 do while FOUND() 2). ?JSJ/RS,YY/RS,JXJ第41題(練習(xí)題

38、所在文件夾:504)*題目:ZHG.DBF是一個(gè)職工信息文件，其中包含編號(hào)(C 5)、姓名* (C 8)、性別(C 1)、基本工資(N 8.2)等字段。其中的性* 別用代碼"M"表示男、"F"表示女。* 程序功能是：按基本工資由高到低的順序顯示輸出所有職* 工的姓名、性別和基本工資，每行輸出一個(gè)職工的信息，其* 中性別輸出漢字"男"或"女"。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。Set talk offClearUse ZHGINDEX ON 基本工資 To ZHG_GZ.IDXUSE ZHG I

39、NDEX ZHG_GZ*FOUND*GO TOPDO WHILE .NOT.BOF()? 姓名+" "*FOUND*? IF 性別<>"M" THEN "女"? " ",基本工資*FOUND*SKIPENDDOUSESET TALK ON答案： 1). GOBOTTOM 2). ? IIF(性別<>"M","女","男") 或 3). SKIP-1第42題(練習(xí)題所在文件夾:185)*題目：將200到300之間的所有能被3整除或被5

40、整除的數(shù)求和并統(tǒng)計(jì)個(gè)數(shù)。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。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,5)=0 .OR.

41、 MOD(I,3)=0 2). C=1+C 或 C=C+1 第43題(練習(xí)題所在文件夾:57)*題目：計(jì)算1!+3!+9!的結(jié)果并輸出。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。S=0*FOUND*M=0DO WHILE M<=9 STOR 1 TO I P=1*FOUND* DO WHILE I>M P=P*I I=I+1 ENDDO S=S+P*FOUND* M=M+3ENDDO? "1!+3!+9!=",S答案： 1). m=1 或 store1tom 2). dowhilei<=m 或 dowhilem>=i 3). M=M*3

42、 或 M=3*M第45題(練習(xí)題所在文件夾:173)*題目：統(tǒng)計(jì)RSH.dbf 中職稱是教授、副教授、講師和助教的人數(shù)。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。USE RSH*FOUND*STORE 1 TO A , B , C , DDO WHILE .NOT.EOF ( )DO CASE CASE 職稱 = "教授" A = A + 1 CASE 職稱 = "副教授" B = B + 1 CASE 職稱 = "講師" C = C + 1 CASE 職稱 = "助教" D = D + 1 ENDC

43、ASE*FOUND* NEXT 1ENDDOUSE? A,B,C,D答案： 1). STORE 0 TO A,B,C,D 2). SKIP 或 SKIP1第46題(練習(xí)題所在文件夾:195)*題目：輸入工資（以元為單位如：1568），計(jì)算出百元、伍十元、* 貳十元、拾元、伍元、貳元、壹元各多少?gòu)垼ㄒ髲垟?shù)最少），* 循環(huán)計(jì)算，當(dāng)輸入0時(shí)結(jié)束程序。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。GZ=1*FOUND*DO WHILE GZ=1INPUT "輸入工資：" TO GZY100=INT(GZ/100)Y50=INT(GZ-Y100*100)/50)Y20=I

44、NT(GZ-Y100*100-Y50*50)/20)Y10=INT(GZ-Y100*100-Y50*50-Y20*20)/10)Y5=INT(GZ-Y100*100-Y50*50-Y20*20-Y10*10)/5)Y2=INT(GZ-Y100*100-Y50*50-Y20*20-Y10*10-Y5*5)/2)*FOUND*Y1=GZ-Y100-Y50-Y20-Y10-Y5-Y2?Y100,Y50,Y20,Y10,Y5,Y2,Y1ENDDO答案： 1). DO WHILE GZ<>0 或 DO WHILE GZ>0 或 DO WHILE GZ#0 2). Y1=GZ-Y100*

45、100-Y50*50-Y20*20-Y10*10-Y5*5-Y2*2第47題(練習(xí)題所在文件夾:107)*題目：根據(jù)姓名查詢RSH.dbf中的職工情況，如果有則顯示該職工的* 工資和職稱，否則顯示"查無(wú)此人!"。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。USE RSHXM="趙紅"LOCATE FOR 姓名 = XM*FOUND*IF BOF()WAIT "查無(wú)此人! "ELSE*FOUND* ? "工資+職稱"ENDIFUSE答案： 1). IFEOF() 或 IF.NOT.FOUN() 或 IFE

46、OF()=.T. 或 IFNOTEOF()=.F. 或 IF!EOF()=.F. 或 IFEOF()<>.F. 或 IFNOTEOF<>.T. 或 IF!EOF()<>.T. 或 IFFOUN()=.F. 2). ?工資,職稱 或 ?STR(工資)+職稱 或 DISPLAYFIELD工資,職稱第50題(練習(xí)題所在文件夾:193)*題目：有一個(gè)字符串"ABC",將其插入3個(gè)數(shù)字轉(zhuǎn)換為:"A1B2C3"輸出。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。C1="ABC"C2="&qu

47、ot;FOR I=1 TO 3*FOUND*A=SUBS(C1,I)*FOUND*C2=C2+A+IENDFOR?C2答案： 1). A=SUBS(C1,I,1) 或 A=SUBSTR(C1,I,1) 或 STOR SUBS(C1,I,1) TO A 或 STOR SUBSTR(C1,I,1) TO A 2). C2=C2+A+STR(I,1) 或 STORC2+A+STR(I,1)TOC2第52題(練習(xí)題所在文件夾:39)*題目:將XSDB.DBF表中獎(jiǎng)學(xué)金超過(guò)60元的學(xué)生姓名和獎(jiǎng)學(xué)金顯示* 在屏幕上。*注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。USE XSDB*FOUND*IF

48、 獎(jiǎng)學(xué)金>"60"DO WHILE .NOT.EOF()*FOUND* ?"姓名="+姓名,"獎(jiǎng)學(xué)金="+獎(jiǎng)學(xué)金CONTENDDOUSE答案： 1). LOCATE FOR 獎(jiǎng)學(xué)金>60 或 LOCATE ALL FOR 獎(jiǎng)學(xué)金>60 或 LOCATE FOR 獎(jiǎng)學(xué)金>=61 或 LOCATE ALL FOR 獎(jiǎng)學(xué)金>=61 2). ?"姓名="+姓名,"獎(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)