书签分享收藏举报版权申诉 / 10

立即下载

当前位置：首页 > 技术资料 > 其他杂项 > vfp程序填空题.xls

vfp程序填空题.xls

上传人：asd****56

文档编号：70345409

上传时间：2023-01-19

格式：XLS

页数：10

大小：149.50KB

( 4.5 )

《vfp程序填空题.xls》由会员分享，可在线阅读，更多相关《vfp程序填空题.xls（10页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、ProgramingInfoProIDProTypeLanguageID ProProblem ProLevel ProSourceProAnswerProExamCountProScoreRateTeaNameS ProShenheflag5500125 下面的程序是求100到5000中所有能被7和9整除的奇数之和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEARI=100S=0DO WHILE I=5000IF _S=S+IENDIF_ENDDO?SRETURN10073700 Teacher05500225 已知S1=1，S

2、2=1+2，S3=1+2+3，Sn=1+2+3+N，求S1，S2，S3，S1000中有多少个能被3或7整除的数。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEAI=1N=0DO WHILE I=1000s=0J=1DO WHILE _s=_j=J+1ENDDOIF INT(S/3)=S/3.OR.INT(S/7)=S/7N=N+1ENDIFI=I+1ENDDO?NSET TALK ONRETURN76200 Teacher05500325 已知S1=1，S2=1+2，S3=1+2+3，Sn=1+2+3+N，求S1，S2，S3，S20

3、00中有多少个能被3或7整除的数。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEAI=1N=0DO WHILE I=2000s=0J=1DO WHILE _s=S+Jj=J+1ENDDOIF INT(S/3)=S/3.OR.INT(S/7)=S/7_ENDIFI=I+1ENDDO?NSET TALK ONRETURN152300 Teacher05500425 求1000到10000以内能被4和9整除的整数的和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEAI=1000

4、S=0DO WHILE I=10000IF _S=S+IENDI_ENDD?SRETU137250000 Teacher05500525 求1000到20000以内能被4和7整除的整数的和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEAI=1000S=0DO WHILE I=20000IF _S=S+IENDI_ENDD?SRETU712950000 Teacher05500625 求1000到5000以内能被4和7整除的整数的和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OF

5、FCLEAI=1000S=0DO WHILE I=5000IF INT(I/4)=I/4.AND.INT(I/7)=I/7_ENDI_ENDD?SRETU42842800 Teacher05500725 求1000到8000以内能被3和7整除的整数的和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEAI=1000S=0DO WHILE _IF _s=s+iENDI_ENDD?SRETU149650200 Teacher05500825 求100到7000以内能被5和9整除的整数的个数。填空完成程序，然后运行程序得出正确结果。（答案填

6、程序运行结果，保留整数位）2 SET TALK OFFCLEAI=100S=0DO WHILE I=7000IF _S=S+1ENDI_ENDD?SRETU15300 Teacher05500925 求12000以内能同时被13和17整除的数的和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEARI=1S=0DO WHILE I12000 IF _ S=S+I ENDIF_ENDDO?SSET TALK ONRETURN32818500 Teacher05501025 求10000以内能同时被3和8整除的数的和。填空完成程序，然后运

7、行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEARI=1S=0DO WHILE I10000 IF _ s=s+i ENDIF_ENDDO?SSET TALK ONRETURN208166400 Teacher05501125 求30001以内能同时被3和5整除的数的个数。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEARI=1S=0DO WHILE I=20000 EXIT ENDIF_ENDDO?SSET TALK ONRETU142900 Teacher05501425 求15000以

8、内不能被7整除的数的个数。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEARI=1S=0DO WHILE.T.IF _I/7 _ ENDIF IF I=15000 EXIT ENDIFI=I+1ENDDO?SSET TALK ONRETU1285800 Teacher05501525 求30000以内不能被17整除的数的个数。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEARI=1S=0DO WHILE.T.IF _ S=S+1 ENDIF IF _ EXIT ENDIF

9、I=I+1ENDDO?SSET TALK ONRETU2823600 Teacher05501625 求40000以内不能被13整除的数的个数。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEARI=1S=0DO WHILE.T.IF _ S=S+1 ENDIF IF _ EXIT ENDIFI=I+1ENDDO?SSET TALK ONRETU3692400 Teacher05501725 求能被3整除且有一位数字为6的三位数的个数。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALk OF

10、FCLEAS=0X=100DO WHILE X999IF _A=INT(X/100)B=INT(X/10)-A*10C=X-A*100-B*10IF _S=S+1ENDIFENDIFX=X+1ENDDO?SRETU8400 Teacher05501825 求能被6整除且有一位数字为8的三位数的和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALk OFFCLEAS=0X=100DO WHILE X999IF _A=INT(X/100)B=INT(X/10)-A*10C=X-A*100-B*10IF _ENDIFENDIFX=X+1ENDDO?SRET

11、U3311400 Teacher05501925 求能被7整除且有一位数字为8的四位数的和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALk OFFCLEAS=0X=1000DO WHILE X9999IF MOD(_)=0A=INT(X/1000)B=INT(X/100)-A*10C=INT(X/10)%10D=INT(X%10)IF _ENDIFENDIFX=X+1ENDDO?SRETU283735200 Teacher05502025 求100,800中，个位数字与十位数字之和除以10所得的余数是百位数字的偶数的个数。填空完成程序，然后运行程

12、序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEAS=0X=100DO WHILE X=800A=INT(X/100)B=INT(X/10)-A*10C=X-A*100-B*10IF _S=S+1ENDIF_ENDDO?SRETURN3500 Teacher05502225 求在1，2，3，4，1000这1000个数中，任意选两个不同的数，它们的和能被6整除的数的总对数（注意：像1+5和5+1被认为是同一对数）。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEARN=0I=1DO WHILE I=1

13、000 J=1 DO WHILE JI IF MOD(I+J,6)=0 _ ENDIF J=J+1 ENDDO _ENDDO?NSET TALK ON RETURN8316700 Teacher05502325 求在1，2，3，4，2000这2000个数中，任意选两个不同的数，它们的和能被9整除的数的总对数（注意：像4+5和5+4被认为是同一对数）。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEARN=0I=1DO WHILE I=2000 J=1 DO WHILE JI IF MOD(I+J,9)=0 _ ENDIF J=J+1

14、ENDDO _ENDDO?NSET TALK ON RETURN22211100 Teacher05502425 求1到2000中所有能被5和7整除的奇数之和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEARI=1S=0DO WHILE I=2000IF _S=S+IENDIF_ENDDO?SRETURN2943500 Teacher05502525 求1到30000中所有能被11和13整除的偶数的个数。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEARI=1S=0DO

15、 WHILE I=30000IF _s=s+1ENDIF_ENDDO?SRETURN10400 Teacher05502625 求在1，2，3，80这80个数中，任意选两个不同的数，它们的和能被4和9整除的数的总对数（1+35和35+1认为是同一对数）。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEAN=0I=1DO WHILE I=80J=1DO WHILE _IF MOD(I+J,4)=0.AND.MOD(I+J,9)=0_ENDIFJ=J+1ENDDO_ENDDO?N SET TALK ONRETU8600 Teacher05

16、502725 已知S1=1，S2=1+2，S3=1+2+3，Sn=1+2+3+N，求S1，S2，S3，S1000中有多少个能被8或13整除的数。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEAI=1N=0DO WHILE I=1000s=0J=1DO WHILE _S=_j=J+1ENDDOIF INT(S/8)=S/8.OR.INT(S/13)=S/13N=N+1ENDIFI=I+1ENDDO?NSET TALK ONRETURN25900 Teacher05502825 已知S1=1，S2=1+2，S3=1+2+3，Sn=1+2

17、+3+N，求S1，S2，S3，S200中能被4和7整除的数的和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEAI=1N=0DO WHILE I=200s=0J=1DO WHILE _s=_j=J+1ENDDOIF INT(S/4)=S/4.AND.INT(S/7)=S/7N=N+SENDIFI=I+1ENDDO?NSET TALK ONRETURN8800400 Teacher05502925 已知S1=1，S2=1+2，S3=1+2+3，Sn=1+2+3+N，求S1，S2，S3，S2000中有多少个能被9或11整除的数。填空完成

18、程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEAI=1N=0DO WHILE Isqrt(x)return(.t.)endif6300 Teacher05503125 求出100，800范围内所有的除3余1的素数之和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 set talk offcleasum1=0for i=100 to 800 if _ sum1=sum1+i endifendfor?sum1retufunction su(x)for j=2 to sqrt(x)if _ return(.f.)e

19、ndifendforif jsqrt(x)return(.t.)endif2448800 Teacher05503225 计算4000，4500中各个数的因子（因子不包括这个数本身）之和，求出和的最大值。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 set talk offcleamax1=0for i=4000 to 4500 sum2=0 for j=1 to i-1 if i%j=0 _ endif endfor if max1sqrt(x)return(.t.)endif1029900 Teacher05503525 求2468640的因子中素数有多少个

20、。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 set talk offcleacount1=0 for i=2 to 2468640 if _ count1=_ endif endfor?count1 retu function su(x)for j=2 to sqrt(x)if x%j=0 return(.f.)endifendforif jsqrt(x)return(.t.)endif500 Teacher05503625 求1000,3000范围内满足这样条件的数的个数：这个数的所有因子之和（不包括这个数本身）能够被3整除。填空完成程序，然后运行程序得出

21、正确结果。（答案填程序运行结果，保留整数位）2 set talk offcleacount1=0for i=1000 to 3000 sum2=0 for j=1 to i-1 if i%j=0 _ endif endfor if _ count1=count1+1 endifendfor?count1retu59300 Teacher05503725 求1000,4000范围内满足这样条件的数的个数：这个数的所有因子之和（不包括这个数本身）能够被7整除。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 set talk offcleacount1=0for i=1

22、000 to 4000 sum2=0 for j=1 to i-1 if i%j=0 _ endif endfor if sum2%7=0 _ endifendfor?count1retu37400 Teacher05503825 求2000,3000范围内满足这样条件的数之和：这个数的所有因子之和（不包括这个数本身）能够被13整除。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 set talk offcleasum1=0for i=2000 to 3000 sum2=0 for j=1 to i-1 if i%j=0 _ endif endfor if _ s

23、um1=sum1+i endifendfor?sum1retu16460000 Teacher05503925 求1000,3000范围内满足这样条件的数之和：这个数的所有因子之和（不包括这个数本身）能够被17整除。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 set talk offcleasum1=0for i=1000 to 3000 sum2=0 for j=1 to i-1 if i%j=0 _ endif endfor if sum2%17=0 _ endifendfor?sum1retu24057300 Teacher05504025 求1000,

24、4000范围内满足这样条件的数的个数：这个数的所有因子之和（不包括这个数本身）能够同时被3和7整除。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 set talk offcleacount1=0for i=1000 to 4000 sum2=0 for j=1 to i-1 if _ sum2=sum2+j endif endfor if _ count1=count1+1 endifendfor?count1retu12800 Teacher05504125 求1000,4000范围内满足这样条件的数之和：这个数的所有因子之和（不包括这个数本身）能够同时被3和

25、7整除。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 set talk offcleasum1=0for i=1000 to 4000 sum2=0 for j=1 to i-1 if i%j=0 _ endif endfor if _ sum1=sum1+i endifendfor?sum1retu30899700 Teacher05504225 一只猴子一天从山上摘来一袋桃子，从这天开始，它每天都要把袋中的桃子平分为二堆，吃掉其中的一堆，然后再从剩下的桃中拿出一个解谗，等到第11天，它发现袋中只有一只桃可吃啦，问猴子总共摘了多少桃。填空完成程序，然后运行程序

26、得出正确结果。（答案填程序运行结果，保留整数位）2 set talk offcleardays=11 dime ts(days)ts(days)=_ for i=days-1 to 1 step-1 _ endfor?ts(1)retu307000 Teacher05504325 在111，999范围内存在满足这样条件的数：该数是一个素数，又是一个回文数，而且该数除7余3。求这样的数的个数。回文数指这个数顺着和倒着是同一个数，如：121，232，都是回文数。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 set talk offcleacount1=0for i=

27、111 to 999 a=i%10 c=int(i/100)if _ count1=_ endifendfor?count1retufunction su(x)for j=2 to sqrt(x)if x%j=0 return(.f.)endifendforif jsqrt(x)return(.t.)endif200 Teacher05504425 在222，999范围内存在满足这样条件的数：该数是一个素数，又是一个回文数，而且该数除7余2。求这样的数之和。回文数指这个数顺着和倒着是同一个数，如：121，232，都是回文数。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数

28、位）2 set talk offcleasum1=0for i=222 to 999 a=i%10 c=int(i/100)if _ sum1=_ endifendfor?sum1retufunction su(x)for j=2 to sqrt(x)if x%j=0 return(.f.)endifendforif jsqrt(x)return(.t.)endif129200 Teacher05504525 求在1000，2000范围内，最大的除7余3的素数是多少。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 set talk offcleacj=1for i

29、=2000 to 1000 step-1 if _ exit endifendfor?iretufunction su(x)for j=2 to sqrt(x)if x%j=0 return(.f.)endifendforif jx return(.t.)endif194900 Teacher05504625 求在1000，2000范围内，最大的除7余6的素数是多少。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 set talk offcleacj=1for i=2000 to 1000 step-1 if _ exit endifendfor?iretufun

30、ction su(x)for j=2 to sqrt(x)if x%j=0 return(.f.)endifendforif jx return(.t.)endif198700 Teacher05504725 在1000，4000范围内，求所有的的除7余2，除5余3，除3余1的素数的和是多少。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 set talk offcleasum1=0for i=1000 to 4000 if _ sum1=_ endifendfor?sum1retufunction su(x)for j=2 to sqrt(x)if x%j=0

31、return(.f.)endifendforif jsqrt(x)return(.t.)endif2083400 Teacher05504825 在1000，5000范围内，求所有的的除7余6，除5余4，除3余2的素数的个数。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 set talk offcleacount1=0for i=1000 to 5000 if _ count1=_ endifendfor?count1retufunction su(x)for j=2 to sqrt(x)if x%j=0 return(.f.)endifendforif jsq

32、rt(x)return(.t.)endif1100 Teacher05504925 下列程序求三位数中，个位数字与十位数字之积除以3所得的余数是百位数字的奇数之和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEAS=0X=100DO WHILE X=999A=INT(X/100)B=INT(X/10)-A*10C=X-A*100-B*10IF _S=S+XENDIF_ENDDO?SRETURN358800 Teacher05505025 下面程序是求1到200之间的所有除23余11的奇数之积再加上所有偶数之和的结果是多少。填空完成程

33、序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEAP=0S=1FOR I=1 TO 200IF MOD(I,2)0 IF I%23=11 _ ENDIFELSE_ENDIENDF?_RETU187641105500 Teacher05505125 下面程序是计算小于或等于5000的所有正偶数的积和正奇数的和,并显示正奇数的和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEARS1=1S2=0FOR I=1 TO 5000IF INT(I/2)=I/2_ELSE_ENDIFENDFOR

34、?S2RETURN625000000 Teacher05505225 下面程序是计算小于或等于40的所有正奇数的积，正偶数的和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEARS1=1S2=0FOR I=1 TO 40IF _S1=S1*IELSE_ENDIFENDFOR?S2RETURN42000 Teacher05505325 下面程序是求1到40之间所有奇数的平方和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEARS=0X=1DO WHILE X10000时的最

35、小和数S。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEASTORE 0 TO S,IDO WHILE.T.I=I+1IF INT(I/23)=_S=S+IENDIFIF S10000_ENDIFENDDO?SSET TALK ONRETURN1000500 Teacher0Page 1ProgramingInfo5505525 下列程序的功能是：计算2000至10000之间的奇数之和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEAx=1999s=0DO WHILE.T

36、.x=x+1DO CASE CASE x10000 EXIT CASE MOD(x,2)=_ LOOP OTHERWISE _ENDCASEENDDO?sRETURN2400000000 Teacher05505625 下列程序的功能是：计算2000至9000之间的奇数之和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEAx=1999s=0DO WHILE.T.x=x+1DO CASECASE x9000EXITCASE _=0LOOPOTHERWISE_ENDCASEENDDO?sRETURN1925000000 Teacher0

37、5505725 下列程序的功能是：计算1至7000之间的偶数之和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEAx=0s=0DO WHILE.T.x=x+1DO CASE CASE _ EXIT CASE _ LOOP OTHERWISE S=S+XENDCASEENDDO?SRETURN1225350000 Teacher05505825 下列程序的功能是：计算1至4000之间的偶数之和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEAx=0s=0DO WHILE.T

38、.x=x+1DO CASE CASE x4000 EXIT CASE MOD(x,2)_ LOOP OTHERWISE _ENDCASEENDDO?sRETURN400200000 Teacher05505925 下列程序的功能是求500到1000之间的所有奇数的平方和并显示结果。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEARSum=0 x=500DO WHILE x=1000IF _Sum=_ENDIF_ENDDO?SumRETU14583325000 Teacher05506025 下列程序的功能是求6到180之间的所有奇数

39、的平方和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEARSum=0 x=6DO WHILE _IF _sum=sum+x2ENDIF_ENDDO?SumRETU97193500 Teacher05506125 下列程序的功能是求6到280之间的所有奇数的平方和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEARSum=0 x=6DO WHILE _IF _Sum=_ENDIFx=x+1ENDDO?Sumretu365858500 Teacher05506225 下列程

40、序的功能是求6到156之间的所有奇数的平方和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEARSum=0 x=6DO WHILE x=156IF _Sum=_ENDIFX=X+1ENDDO?Sumreturn63267500 Teacher05506325 下列程序的功能是求7到256之间的所有奇数的平方和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEARSUM=0 x=7DO WHILE x=256SUM=_X=_ENDDO?SUMRETU279612500 Tea

41、cher05506425 下列程序求三位数中，个位数字与十位数字之积除以4所得的余数是十位数字的奇数和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEAS=0X=100DO WHILE X10000EXITENDIFENDDO?SSET TALK ONRETU36804700 Teacher05506625 下面程序求1!+3!+5!+(2K+1)!，要求在其和大于20000时中止程序运行。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEAI=0S=0DO WHILE.T.

42、I=I+1IF I/2=_LOOPENDIFJ=1SUB=1DO WHILE J20000EXITENDIFENDDO?SSET TALK ONRETU36804700 Teacher05506725 下面程序是求1到5000之间的所有奇数之积和所有偶数之和，并显示所有偶数之和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEAP=0S=1FOR I=1 TO 5000IF MOD(I,2)0_ELSE_ENDIENDF?PRETU625250000 Teacher05506825 下面程序是求1到8000之间的所有奇数之积和所有偶数

43、之和，并显示所有偶数之和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEAP=0S=1FOR I=1 TO 8000IF MOD(I,2)0_ELSE_ENDIENDF?PRETU1600400000 Teacher05506925 下面程序是计算小于或等于17的所有正奇数的积和正偶数的和,并显示符合条件的正奇数的积。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEARS1=1S2=0FOR I=1 TO 17IF INT(I/2)I/2_ELSE_ENDIFENDFOR?

44、S1RETURN3445942500 Teacher05507025 下面程序是计算小于或等于10000的所有正偶数的积和正奇数的和,并显示正奇数的和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 SET TALK OFFCLEARS1=1S2=0FOR I=1 TO 10000IF _S1=S1*IELSE_ENDIFENDFOR?S2RETURN2500000000 Teacher05507125 (A,B)满足条件A是素数，B是素数，A+B的和也是一个素数，又777BA=2。求这样的（A，B）有多少组。填空完成程序，然后运行程序得出正确结果。（答案填程序运

45、行结果，保留整数位）2 set talk offcleacount1=0for a=2 to 777 for b=a+1 to 777 if _ count1=_ endif endforendfor?count1retufunction su(x)for j=2 to sqrt(x)if x%j=0 return(.f.)endifendforif jsqrt(x)return(.t.)endif3000 Teacher05507225 (A,B)满足条件A是素数，B是素数，A+B的和也是一个素数，又777BA=2。求这样的（A，B）中所有A的和是多少。填空完成程序，然后运行程序得出正确结果

46、。（答案填程序运行结果，保留整数位）2 set talk offcleasum1=0for a=2 to 777 for b=a+1 to 777 if _ sum1=_ endif endforendfor?sum1retufunction su(x)for j=2 to sqrt(x)if x%j=0 return(.f.)endifendforif jsqrt(x)return(.t.)endif6000 Teacher05507325 (A,B)满足条件A是素数，B是素数，A+B的和也是一个素数，又777BA=2。求这样的（A，B）中所有B的和是多少。填空完成程序，然后运行程序得出正确

47、结果。（答案填程序运行结果，保留整数位）2 set talk offcleasum1=0for a=2 to 777 for b=a+1 to 777 if _ sum1=_ endif endforendfor?sum1retufunction su(x)for j=2 to sqrt(x)if x%j=0 return(.f.)endifendforif jsqrt(x)return(.t.)endif788800 Teacher05507425 （x,y,z）满足方程：x2+y2+z2=2002(注：要求 z y x0),则（x,y,z）称为方程的一个解。求该方程的整数解的个数。填空完成

48、程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 set talk offcleacount1=0 for x=1 to 200 for y=x+1 to 200 for z=y+1 to 200 if _ _ endif endfor endfor endfor?count1 retu200 Teacher05507525 （x,y,z）满足方程：x2+y2+z2=2602(注：要求 z y x0),则（x,y,z）称为方程的一个解。求该方程的整数解的个数。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 set talk offcleacou

49、nt1=0 for x=1 to 260 for y=x+1 to 260 for z=y+1 to 260 if _ _ endif endfor endfor endfor?count1 retu600 Teacher05507625 50元的整币兑换成5元、2元和1元币值，要求三种币值均至少有一枚，编程求这样的换法有多少种。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 set talk offclea_for wy=1 to 10 for ey=1 to 25 for yy=1 to 50 if _ count1=count1+1 endif endfor

50、 endforendfor?count1retu10600 Teacher05507725 50元的整币兑换成5元、2元和1元币值，要求三种币值均至少有一枚，编程求这样的换法有多少种。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）2 set talk offclea_for wy=1 to 10 for ey=1 to 25 for yy=1 to 50 if _ count1=count1+1 endif endfor endforendfor?count1retu10600 Teacher05507825 A,B,C是三个小于或等于100的正整数，当满足1/A2

文档加载中……请稍候！
如果长时间未打开，您也可以点击刷新试试。

下载文档到电脑，查找使用更方便

15 金币

版权申诉 word格式文档无特别注明外均可编辑修改；预览文档经过压缩，下载后原文更清晰！ 立即下载

配套讲稿：: 如PPT文件的首页显示word图标，表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
特殊限制：: 部分文档作品中含有的国旗、国徽等图片，仅作为作品整体效果示例展示，禁止商用。设计者仅对作品中独创性部分享有著作权。
关键词：: vfp 程序填空

淘文阁 - 分享文档赚钱的网站所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。

限制150内

关于本文

本文标题：vfp程序填空题.xls
链接地址：https://www.taowenge.com/p-70345409.html