vfp程序題(含結(jié)果)

1、一、程序改錯(cuò)題（在參考程序文件夾中從gc1gc7）1. 下面的程序是求3+9+27+81+243+.這樣的數(shù)之和. 若累加數(shù)大于500時(shí),則結(jié)束累加.程序中有一處錯(cuò)誤。改正后運(yùn)行程序，將程序執(zhí)行結(jié)果填入答案框內(nèi)。 SET TALK OFF CLEAR X=3 Y=0 DO WHILE .F. Y=Y+X IF Y500 EXIT ENDIF STORE 3*X TO X ENDDO ?Y SET TALK ON RETURN修改后的程序執(zhí)行結(jié)果為：10922. 已知S1=1,S2=1+2,S3=1+2+3,SN=1+2+N,下面的程序求S20到S80有多少數(shù)能被17或35整除。改正后運(yùn)行程序，

2、將程序執(zhí)行結(jié)果填入答案框內(nèi)。SET TALK OFF I=20 N=0 DO WHILE I=80 STORE 0 TO S J=1 DO WHILE J=25中止。程序中有錯(cuò)誤。改正后運(yùn)行程序，將程序執(zhí)行結(jié)果填入答案框內(nèi)。 SET TALK OFF CLEAR s=0 k=1 DO WHILE .T. s=s*k IF k=25 EXIT ENDIF k=k+4 ENDDO ?s RETURN修改后的程序執(zhí)行結(jié)果為：4. 下面的程序是求1到500的偶數(shù)立方和與奇數(shù)立方和之差。程序中有一處錯(cuò)。更正程序中的錯(cuò)誤,運(yùn)行更正后的程序,記錄運(yùn)行結(jié)果,將結(jié)果填入答題窗口內(nèi)。SET TALK OFF ST

3、ORE 0 TO I,S1,S2 DO WHILE I=500 I=I+1 IF MOD(I,2)=0 S1=S1+I*I*I ELSE S2=S2+I*I*I ENDIF ENDDO ? S1-S2 SET TALK ON RETURN修改后的程序執(zhí)行結(jié)果為：5. 程序求能被3整除且至少有一位數(shù)字為5的三位數(shù)的個(gè)數(shù)。程序中有一行有錯(cuò)誤。更正程序中的錯(cuò)誤，運(yùn)行更正后的程序，記錄運(yùn)行結(jié)果，將結(jié)果填入答題窗口。SET TALK OFF CLEAR S=0 X=100 DO WHILE X=999 IF MOD(X,3)0 A=INT(X/100) B=INT(X/10)-A*10 C=X-A*10

4、0-B*10 IF A=5 .OR. B=5 .OR. C=5 S=S+1 ENDIF ENDIF X=X+1 ENDDO ? S RETURN修改后的程序執(zhí)行結(jié)果為：856. 下面的程序是求在1,2,3,4,.,10這10個(gè)數(shù)中,任意選兩個(gè)不同的數(shù),求它們的和能被2整除的數(shù)的總對(duì)數(shù). (注意: 象3+5和5+3認(rèn)為是同一對(duì)數(shù)). 程序中有一處錯(cuò)誤。改正程序中的錯(cuò)誤后運(yùn)行程序，將程序執(zhí)行結(jié)果填入答案框內(nèi)。 SET TALK OFF CLEAR N=0 I=1 DO WHILE I=10 J=1 DO WHILE JI IF INT(I+J)/2)(I+J)/2 N=N+1 ENDIF J=J+

5、1 ENDDO I=I+1 ENDDO ?N SET TALK ON RETURN修改后的程序執(zhí)行結(jié)果為：207. 已知一個(gè)數(shù)列的前三個(gè)數(shù)是1,2,3,從第四個(gè)數(shù)起,每個(gè)數(shù)都是前三個(gè)數(shù)之和。下面的程序是求出該數(shù)列的第15個(gè)數(shù)。改正程序中的錯(cuò)誤后運(yùn)行程序，將程序執(zhí)行結(jié)果填入答案框內(nèi)。SET TALK OFF DIME A(15) A(1)=1 A(2)=2 A(3)=3 I=4 DO WHILE I=15 A(I)=A(I-1)+A(I-2)+A(I-3) I=I+1 ENDDO ? A(15) SET TALK ON RETURN修改后的程序執(zhí)行結(jié)果為：4841二、程序填空題（在參考程序文件夾

6、中從tk1tk12）1. 下列的程序是求S=8!+9!+10!的程序.在下列程序中填上缺少的語(yǔ)句或 另外編寫程序，(程序名由考生自定）運(yùn)行程序，將結(jié)果填入答題窗口。 SET TALK OFF CLEAR S=0 I=8 DO WHILE I=10 STORE 1 TO T,J DO WHILE J=I T=T*J J=J+1 ENDDO _s=s+t I=I+1 ENDDO ?S SET TALK ON RETURN程序的執(zhí)行結(jié)果為：2. 設(shè)S=1+1/2+1/3+.+1/N，N為正整數(shù)。編程求使S不超過(guò)10的最大的N.(程序名由考生自定)。在下列程序中填上缺少的語(yǔ)句或另外編寫程序，運(yùn)行程序，

7、將結(jié)果填入答題窗口。set talk off clear s=0 i=1 do while s=10 s=s+1/i _ i=i+1enddo ? i-2 set talk on return程序的執(zhí)行結(jié)果為：123663. 輸出10,100中除以17的余數(shù)和除以5的商相等的整數(shù)的個(gè)數(shù)。SET TALK OFF N=0 FOR K=10 TO 100 IF _ k%17=int(k/5) ? K N=N+1 ENDIF ENDFOR ? N RETURN程序的執(zhí)行結(jié)果為：44. 統(tǒng)計(jì)區(qū)間1000，9999內(nèi)所有能被3整除，且千位數(shù)字與個(gè)位數(shù)字之和為8的整數(shù)的個(gè)數(shù)。Set talk off t=

8、0 I=1000 do while I500 EXIT ENDIF ENDIF NEXT ?S=,S RETURN程序的執(zhí)行結(jié)果為：5507. 程求S=1*3+2*4+3*5+.+198*200。在下列程序中填上缺少的語(yǔ)句或另外編寫程序，運(yùn)行程序，將結(jié)果填入答題窗口。SET TALK OFF S=0 N=1 DO WHILE N=198 _ s=s+n*(n+2) N=N+1 ENDDO ? S SET TALK ON RETURN程序的執(zhí)行結(jié)果為：8. 求出所有能被17整除且不含重復(fù)數(shù)字的三位數(shù)的和。(程序名由考生自定)。在下列程序中填上缺少的語(yǔ)句或另外編寫程序，運(yùn)行程序，將結(jié)果填入答題窗口

9、。set talk off i=100 store 0 to t do while i=999 a=int(i/100) b=int(i-a*100)/10) c=mod(i,10) if _i%17=0 and ab and bc and ca t=t+i endif i=i+1 enddo ?t return程序的執(zhí)行結(jié)果為：212679. 數(shù)列xi各元素的值是：x11，x212,x3123,.xn123.n。對(duì)數(shù)列求和：S=x1+x2+x3.，直到S3000止，求此時(shí)數(shù)列中最大的元素值。(程序名由考生自定)。在下列程序中填上缺少的語(yǔ)句或另外編寫程序，運(yùn)行程序，將結(jié)果填入答題窗口。SET

10、TALK OFF CLEAR s=0 p=0 i=1 DO WHILE .t. p=p+i S=S+P IF s3000 _ exit ENDIF i=i+1 enddo ? p RETURN程序的執(zhí)行結(jié)果為：35110. 求出100，500以內(nèi)同時(shí)滿足除以7余1，除以5余3,除以3余1的所有整數(shù)的個(gè)數(shù)。(程序名由考生自定)。在下列程序中填上缺少的語(yǔ)句或另外編寫程序，運(yùn)行程序，將結(jié)果填入答題窗口。Set talk off clear n=0 sum=0 for I=100 to 500 if _ i%7=1 and i%5=3 and i%3=1 n=n+1 endif endfor ? N

11、set talk on return程序的執(zhí)行結(jié)果為：411. 求200，600間奇數(shù)之和。(程序名由考生自定)。在下列程序中填上缺少的語(yǔ)句或另外編寫程序，運(yùn)行程序，將結(jié)果填入答題窗口。Set talk off s=0 for I=200 to 600 if _ i%2=0 loop endif s=s+I endfor ? S return程序的執(zhí)行結(jié)果為：8000012. 編程求區(qū)間5000，9999中所有素?cái)?shù)的個(gè)數(shù).(程序名由考生自定)。在下列程序中填上缺少的語(yǔ)句或另外編寫程序，運(yùn)行程序，將結(jié)果填入答題窗口.Set talk off I=9999 t=0 do while I=5000 j=2 do while j=為止的奇數(shù)N。程序執(zhí)行結(jié)果為：1112. 編寫程序，求在四位數(shù)的奇數(shù)中，所有各位數(shù)字之和是25的倍數(shù)的數(shù)的和。程序執(zhí)行結(jié)果為：13. 編寫程序，計(jì)算在0至50的范圍內(nèi)有多少個(gè)數(shù)，其每位數(shù)的乘積大于每位數(shù)的和。程序執(zhí)行結(jié)果為：2314. 編寫程序，統(tǒng)計(jì)200400之間的所有滿足三個(gè)數(shù)字之積為42，三個(gè)數(shù)字之和為12的數(shù)的個(gè)數(shù)。程序執(zhí)行結(jié)果為：415. 編寫程序，統(tǒng)計(jì)10009999之間的所有滿足以下條件的四位數(shù)的個(gè)數(shù)。該四位數(shù)是一個(gè)完全平方數(shù)，其第1位（千位）與第3位（十位）數(shù)字之和為10，第2位（百位