VFP程序設計填空改錯試題及答案

1、題2 單表程序設計1 02題2 單表程序設計 *-*【程序設計】 *-*題目：設表 RSDA.DBF 結構為：學號（C，5） ，姓名（C，6） ， * 職稱（C，6）統(tǒng)計出 RSDA.DBF 表中職稱為"工程師"的 * 人數(shù)。 （利用 DO WHILEENDDO 循環(huán)語句實現(xiàn)） 。 * 將人數(shù)存入變量 Y 中 * 請按照題目要求，在下面編寫程序代碼。 *-SET TALK OFFSET LOGERRORS ON Y=-1*Program*use rsda store 0 to slocate for 職稱="工程師"do while not eof()

2、s=s+1 continueenddo?"共有工程師"+str(s,3)+"名"use Y=S* End *DO YZJ9 WITH Y SET TALK OFF RETURN *-*【程序設計】 *-*題目：有學生數(shù)據(jù)表 student.dbf，其中編號字段的值從 1 開始 * 連續(xù)排列。欲按編號的 1，4，7，10，.規(guī)律抽取學生 * 參加比賽，并將滿足條件的記錄保存到 st1.dbf 中，請編 * 程完成。 * （用 do while .endd 和 scatter、gather 語句完成） * 請按照題目要求，在下面編寫程序代碼。 *-SET T

3、ALK ONSET LOGERRORS ONclearsele 1use studentsele 2use st1 zap*Program*sele 1do while .not. eof()if mod(編號,3)=1scatter to arrysele 2appe blan gather from arryEndifsele 1skipendd* End *sele 2list close dataSET LOGERRORS OFFSET TALK OFF *-*【程序設計】 *-*題目：編程以物理連接方法求學生劉一各門功課的考試成績， * 已知數(shù)據(jù)表 STUDENT.DBF 和 STU

4、DY.DBF。新生成的數(shù)據(jù) * 表名為 SG.DBF。 * 請按照題目要求，在下面編寫程序代碼。 *-SET TALK ONSET LOGERRORS ON*Program*SELE 1USE STUDENTSELE 2USE STUDYSELE 1JOIN WITH STUDY TO SGFOR 學號=STUDY.學號 .AND. 姓名="劉一" FIELDS 學號,姓 名,STUDY.課程號,STUDY.成績 SELE 3 USE SG LIST* End *CLOSE DATASET LOGERRORS OFFSET TALK OFF*-*【程序設計】 *-*題目：計

5、算機等級考試數(shù)據(jù)表為 STUDENT.DBF,凡筆試和上機成績 * 均達到 80 分以上者,應在等級字段中填入"優(yōu)秀"字樣。 * 請用 DO WHILE .ENDDO 語句編寫。 * 請按照題目要求，在下面編寫程序代碼。 *-SET TALK ONSET LOGERRORS ONCLEAR*Program*USE STUDENTDO WHILE .NOT.EOF()IF 筆試>=80 .AND. 上機>=80REPL 等級 WITH "優(yōu)秀"ENDIFSKIPENDDLIST* End *CLOSE DATASET LOGERRORS OFF

6、SET TALK OFF*-*【程序設計】 *-*題目：根據(jù)已知工資表.dbf 的內(nèi)容,按性別匯總工資成績，存于匯 * 總.dbf 表中 * 請按照題目要求，在下面編寫程序代碼。*-SET TALK ON SET LOGERRORS ON clear *Program* use 工資表 inde on 性別 to sy total on 性別 to 匯總.dbf fields 工資 use 匯總 list * End * close data SET LOGERRORS OFF SET TALK OFF *-*【程序設計】 *-*題目：三個數(shù)據(jù)表分別為學生庫(STUDENT.DBF)、選課程庫

7、(XK.DBF) * 和課程庫(KC.DBF),將所有選必修課的記錄內(nèi)容生成新庫 * STUDENT1.DBF,新庫中包括學號、姓名、課程號、課程名稱、 * 課程類型字段。 * 請按照題目要求，在下面編寫程序代碼。 *- SET TALK ONSET LOGERRORS ONCLEAR*Program*SELE 1USE XKSELE 2USE KCJOIN WITH XK TO XK1FIELDSA.學號,課程號,課程名稱,課程類型 FOR 課程號=A.課程 號 .AND. 課程類型="選修 " SELE 3B.USE XK1 SELE 4 USE STUDENT JOI

8、N WITH XK1 TO STUDENT1 FIELDS 學號,姓名, C.課程號,C.課程名稱,C.課程類型 FOR 學號=C.學號 SELE 5 USE * End * CLOSE DATA SET LOGERRORS OFF SET TALK OFF *-*【程序設計】 *-*題目：編程判斷一個整數(shù) w 的各位數(shù)字平方之和能否 * 被 5 整除, 可以被 5 整除則返回 1,否則返回 0。 * 將結果存入變量 OUT 中，要求用 Do While 語句實現(xiàn)。 * 請按照題目要求，在下面編寫程序代碼。 *-SET TALK ONSET LOGERRORS ON? "輸入一個整數(shù)

9、：w=39"OUT=-1w=39*Program*s=0do while w>0s=s+(w%10)*(w%10)w=int(w/10)Enddoif s%5=0out=1elseout=0endif? Out* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF*-*【程序設計】 *-*題目：編程求一個大于 10 的 n 位整數(shù)的后 n-1 位的數(shù)。 * 將結果存入變量 OUT 中，使用 Do While 語句實現(xiàn)。 * 請按照題目要求，在下面編寫程序代碼。 *-SET TALK ON SET LOGERRORS ON OUT=

10、-1 ? "輸入一個大于 10 的整數(shù)：w=8765" w=8765 *Program*n=0i=1do while(w>10)n=n+i*(w%10)w=int(w/10)i=i*10Enddo?nout=n* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF*-*【程序設計】 *-*題目：編程求對某一正數(shù)的值保留 2 位小數(shù)，并對第三位 * 進行四舍五入。 * 將結果存入變量 OUT 中。 * 請按照題目要求，在下面編寫程序代碼。 *-SET TALK ONSET LOGERRORS ONh=234.5367OUT

11、=-1*Program*i=0i=int(h*1000)%10)if i>=5out=int(h*100+1)/100elseout=int(h*100)/100endif? Out* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF*-*【程序設計】 *-*題目：編程找出一個大于給定整數(shù)且緊隨這個整數(shù)的素數(shù)。 * 將結果存入變量 OUT 中。 * 請按照題目要求，在下面編寫程序代碼。 *-SET TALK ONSET LOGERRORS ON? "給定的整數(shù)為 68"OUT=-1*Program*i=69do whi

12、le i>=68for k=2 to i-1if i%k=0exitendifendforif i=kexitendifi=i+1enddo?i out=I* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF*-*【程序設計】 *-*題目：編程當 n=10 時，計算如下表達式 a10 的值。 * a1=1,a2=1/(1+a1),a3=1/(1+a2), * .an=1/(1+a(n-1)。 * 將結果存入變量 OUT 中，要求用 For 循環(huán)語句實現(xiàn)。 * 請按照題目要求，在下面編寫程序代碼。 *-SET TALK ONSET LOGE

13、RRORS ONOUT=-1*Program*a=1for i=1 to 9a=1.0/(1+a)endforout=a? Out* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF*-*【程序設計】 *-*題目：編程求自然數(shù) 345 各位數(shù)字的積。 * (要求使用循環(huán)語句求解，使用 Do While 語句實現(xiàn)。) * 將結果存入變量 OUT 中。 * 請按照題目要求，在下面編寫程序代碼。 *- SET TALK ONSET LOGERRORS ONn=345OUT=-1*Program*s=1do while n>0d=n%10s=s*

14、dn=int(n/10)enddoout=s? Out* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF*-*【程序設計】 *-*題目：編程當 n=10 時，計算如下表達式 a10 的值。 * a1=1,a2=1/(1+a1),a3=1/(1+a2), * .an=1/(1+a(n-1)。 * 將結果存入變量 OUT 中，要求用 For 循環(huán)語句實現(xiàn)。 * 請按照題目要求，在下面編寫程序代碼。 *-SET TALK ONSET LOGERRORS ONOUT=-1*Program*a=1for i=1 to 9a=1.0/(1+a)endfo

15、rout=a? Out* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF*-*【程序設計】 *- *題目：編程求自然數(shù) 345 各位數(shù)字的積。 * (要求使用循環(huán)語句求解，使用 Do While 語句實現(xiàn)。) * 將結果存入變量 OUT 中。 * 請按照題目要求，在下面編寫程序代碼。 *-SET TALK ON SET LOGERRORS ON n=345 OUT=-1 *Program* s=1 do while n>0 d=n%10 s=s*d n=int(n/10) enddo out=s ? Out * End * DO YZJ

16、 WITH OUT SET LOGERRORS OFF SET TALK OFF *-*【程序設計】 *-*題目：編程將兩個兩位數(shù)的正整數(shù) a、b 合并形成一個整數(shù)放在 c 中。 * 合并的方式是：將 a 數(shù)的十位和個位數(shù)依次放在 c 數(shù)的百位和 * 個位上，b 數(shù)的十位和個位數(shù)依次放在 c 數(shù)的十位和千位上。 * 將 c 結果存入變量 OUT 中。 * 請按照題目要求，在下面編寫程序代碼。 *-SET TALK ONSET LOGERRORS ONa=45b=12OUT=-1*Program*c=int(a/10)*100+a%10+int(b/10)*10+b%10*1000out=c?

17、Out* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF*-*【程序設計】 *-*題目：編程判斷整數(shù) x 是否是同構數(shù)。若是同構數(shù)，結果返回 1； * 否則返回 0。(x 的值要求不大于 100) * 所謂“同構數(shù)”是指這樣的數(shù)，這個數(shù)出現(xiàn)在它的平方數(shù)的右邊。 * 例如：輸入整數(shù) 5，5 的平方數(shù)是 25，5 是 25 中右側(cè)的數(shù)，所以 5 是 * 同構數(shù)。 。 * 將結果存入變量 OUT 中。 * 請按照題目要求，在下面編寫程序代碼。 *-SET TALK ONSET LOGERRORS ON? "輸入整數(shù) x=25 進行判斷&q

18、uot; x=25OUT=-1*Program*k=x*xif k%10=x or k%100=xout=1elseout=0endif? Out* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF*-*【程序設計】 *-*題目：編程計算如下表達式的值： * y=1-1/31/5-1/71/9。 * 要求使用 for.endfor 語句來完成。 * 將結果存入變量 OUT 中。 * 請按照題目要求，在下面編寫程序代碼。 *- SET TALK ONSET LOGERRORS ONOUT=-1*Program*s=1for i=1 to 4s=s

19、+(-1)i/(2*i+1)endforout=s? Out* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF*-*【程序設計】 *-*題目：編程計算如下表達式的值： * y=1-1/2+1/4-1/6+1/8-1/10。 * 要求使用 for.endfor 語句來完成。 * 將結果存入變量 OUT 中。 * 請按照題目要求，在下面編寫程序代碼。 *- SET TALK ONSET LOGERRORS ONOUT=-1*Program*s=1for i=1 to 5s=s+(-1)i/(2*i)endfor out=s? Out* End *

20、DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OF*-*【程序設計】 *-*題目：編程求一分數(shù)序列 2/1,3/2,5/3,8/5,13/8, * 21/13的前 20 項之和,將結果存入變量 OUT 中, * 要求用 For 循環(huán)語句實現(xiàn)。 *-SET TALK ONSET LOGERRORS ONOUT=-1*Program*f1=1f2=1s=0for i=1 to 20f3=f1+f2f1=f2f2=f3s=s+f2/f1endfout=s? Out* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF

21、*-*【程序設計】 *-*題目：編程求 fibonacci 數(shù)列前 28 項的和。 * 已知數(shù)列的第一項值為 1，第二項值也為 1，從第三項開始， * 每一項均為其前面相鄰兩項的和。 * 將結果存入變量 OUT 中。 * 請按照題目要求，在下面編寫程序代碼。 *-SET TALK ON SET LOGERRORS ON OUT=-1 *Program* store 1 to f1,f2 k=f1+f2 for i=3 to 28 f=f1+f2 k=k+f f1=f2 f2=f endf out=k ? Out * End * DO YZJ WITH OUT SET LOGERRORS OFF

22、 SET TALK OFF *-*【程序設計】 *- *題目：已知變量 x 為正整數(shù)，編程求變量 x 的位數(shù)。 * (請用 do case.case.endcase 語句完成。) * 將結果存入變量 OUT 中。 * 請按照題目要求，在下面編寫程序代碼。 *-SET TALK ONSET LOGERRORS ONx=4764OUT=-1*Program*do casecase x>9999place=5case x>999place=4case x>99place=3case x>9place=2otheplace=1endcaseout=place? Out* End

23、 *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF*-*【程序設計】 *-*題目：編程求 sum=3+33+333+3333+33333 的值。 * 要求使用 for.endfor 語句來完成。 * 將結果存入變量 OUT 中。 * 請按照題目要求，在下面編寫程序代碼。 *-SET TALK ONSET LOGERRORS ONOUT=-1*Program*s=0t=0d=3for i=1 to 5t=t+ds=s+td=d*10endfout=s? Out* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK

24、OFF*-*【程序設計】 *-*題目：編程計算正整數(shù) num 的各位上的數(shù)字之和。 * 將結果存入變量 OUT 中，要求用 Do While 語句實現(xiàn)。 * 請按照題目要求，在下面編寫程序代碼。 *-SET TALK ONSET LOGERRORS ON?"輸入正整數(shù) num=434" num=434OUT=-1*Program*s=0do while num<>0s=s+num%10num=int(num/10)endd? Out* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF*-*【程序設計】 *-*題目

25、：編程求一個整數(shù)，它加上 100 后是一個完全平方數(shù)， * 再加上 168 又是一個完全平方數(shù)，請問該數(shù)是多少？。 * 將結果存入變量 OUT 中。 * 請按照題目要求，在下面編寫程序代碼。 *-SET TALK ONSET LOGERRORS ONOUT=-1*Program*i=1do while i<100000x=int(sqrt(i+100)y=int(sqrt(i+268)if x*x=i+100 and y*y=i+268exitEndifi=i+1enddoout=i? Out* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK

26、OFF*-*【程序設計】 *-*題目：編程求出 1*1+2*2+.+n*n<=1000 中滿足條件 * 的最大的 n，將結果存入變量 OUT 中。 * 要求用 Do While 語句實現(xiàn)。 *-SET TALK ONSET LOGERRORS ONOUT=-1*Program*s=0n=1do while s<=1000n=n+1s=s+n*nenddo? Out* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF*-*【程序設計】 *-*題目：編程計算并輸出給定整數(shù) n 的所有因子之積 * （不包括 1 與自身） 。 * 將結果存

27、入變量 OUT 中。 * 請按照題目要求，在下面編寫程序代碼。 *-SET TALK ONSET LOGERRORS ON? "輸入一個整數(shù)：n=855" n=855OUT=-1*Program*store 1 to sfor i=2 to n-1if(n%i=0)s=s*iendifendfor? "s=",sout=s* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF*-*【程序設計】 *-*題目：編程求一個大于 100 的 n 位整數(shù)的后 n-2 位的數(shù)。 * 將結果存入變量 OUT 中。 * 請

28、按照題目要求，在下面編寫程序代碼。 *-SET TALK ONSET LOGERRORS ONOUT=-1? "輸入一個大于 100 的整數(shù)：w=56789" w=56789*Program*n=0i=1do while(w>100)n=n+i*(w%10)w=int(w/10)i=i*10enddo?n* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF*-*【程序設計】 *-*題目：編程找出一個小于給定整數(shù)且緊隨這個整數(shù)的素數(shù)。 * 將結果存入變量 OUT 中。 * 請按照題目要求，在下面編寫程序代碼。 *-SET

29、 TALK ONSET LOGERRORS ON? "給定的整數(shù)為 71"OUT=-1*Program*i=69do while i<71for k=2 to i-1if i%k=0exitendifendforif i=kexitendifi=i-1enddo?iout=I* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF*-*【程序設計】 *-*題目：編程求對某一正數(shù)的值保留 3 位小數(shù)，并對第 4 位 * 進行四舍五入。 * 將結果存入變量 OUT 中。 * 請按照題目要求，在下面編寫程序代碼。 *-SET T

30、ALK ONSET LOGERRORS ON? "輸入一個正數(shù)：h=234.5367" h=234.5367OUT=-1*Program*i=0i=int(h*10000)%10)if i>=5out=int(h*1000+1)/1000elseout=int(h*1000)/1000Endif? Out* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF*-*【程序設計】 *-*題目：編程已知下列各項：a1=1,a2=1/(1+a1),a3=1/(1+a2), * .an=1/(1+a(n-1)。當 n=10 時，計

31、算如下表達式的值 * s=a1+a2+.+a10。 * 將結果存入變量 OUT 中。 * 請按照題目要求，在下面編寫程序代碼。 *-SET TALK ONSET LOGERRORS ONOUT=-1*Program*a=1s=1for i=1 to 9a=1.0/(1+a)s=s+aendforout=a? Out* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF*-*【程序設計】 *-*題目：編程已知下列各項：a1=1,a2=1/(1+a1),a3=1/(1+a2), * .an=1/(1+a(n-1)。當 n=10 時，計算如下表達式的值

32、 * s=a1-a2+a3-a4.-a10。 * 將結果存入變量 OUT 中。 * 請按照題目要求，在下面編寫程序代碼。 *-SET TALK ONSET LOGERRORS ONOUT=-1*Program*a=1s=1for i=1 to 9a=1.0/(1+a)s=s+a*(-1)iendforout=a? Out* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF*-*【程序設計】 *-*題目：編程求序列 s=2/1-3/2+5/3-8/5+13/8-21/13+34/21 的值。 * 要求使用 for.endfor 語句來完成。 *

33、將結果存入變量 OUT 中。 * 請按照題目要求，在下面編寫程序代碼。 *-SET TALK ONSET LOGERRORS ONOUT=-1*Program*f1=1f2=1s=0for i=1 to 7f3=f1+f2f1=f2f2=f3s=s+(-1)(i+1)*f2/f1endfout=s? Out* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF*-*【程序設計】 *-*題目：編程求 fibonacci 數(shù)列第 28 項的值。 * 已知數(shù)列的第一項值為 1，第二項值也為 1，從第三項開始， * 每一項均為其前面相鄰兩項的和。 * 將結果存入變量 OUT 中。 * 請按照題目要求，在下面編寫程序代碼。 *-SET TALK ONSET LOGERRORS ONOUT=-1*Program*store 1 to f1,f2f=f1+f2for i=3 to 27f1=f2f2=ff=f1+f2endfout=f? Out* End *DO YZJ