资源描述：
《vfp程序题(含结果).doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、一、程序改错题（在参考程序文件夹中从gc1—gc7）1.下面的程序是求3+9+27+81+243+...这样的数之和.若累加数大于500时,则结束累加.程序中有一处错误。改正后运行程序，将程序执行结果填入答案框内。SETTALKOFFCLEARX=3Y=0DOWHILE.F.Y=Y+XIFY>500EXITENDIFSTORE3*XTOXENDDO?YSETTALKONRETURN修改后的程序执行结果为：10922.已知S1=1,S2=1+2,S3=1+2+3,…,SN=1+2+…+N,下面的程序求S20到S80有多少数能被17或35整除。改正后运行程序，将程序执行结果填入答案框内。SE
2、TTALKOFFI=20N=0DOWHILEI<=80STORE0TOSJ=1DOWHILEJ<=IS=S+JJ=J+1ENDDOIFMOD(S,17)=0N=N+1ENDIFI=I+1ENDDO?NSETTALKONRETURN修改后的程序执行结果为：123.计算S=1*5*9*13*...*k，直到累乘数k>=25中止。程序中有错误。改正后运行程序，将程序执行结果填入答案框内。SETTALKOFFCLEARs=0k=1DOWHILE.T.s=s*kIFk>=25EXITENDIFk=k+4ENDDO?sRETURN修改后的程序执行结果为：4.下面的程序是求1到500的偶数立方和与奇数
3、立方和之差。程序中有一处错。更正程序中的错误,运行更正后的程序,记录运行结果,将结果填入答题窗口内。SETTALKOFFSTORE0TOI,S1,S2DOWHILEI<=500I=I+1IFMOD(I,2)=0S1=S1+I*I*IELSES2=S2+I*I*IENDIFENDDO?S1-S2SETTALKONRETURN修改后的程序执行结果为：5.程序求能被3整除且至少有一位数字为5的三位数的个数。程序中有一行有错误。更正程序中的错误，运行更正后的程序，记录运行结果，将结果填入答题窗口。SETTALKOFFCLEARS=0X=100DOWHILEX<=999IFMOD(X,3)<>0A
4、=INT(X/100)B=INT(X/10)-A*10C=X-A*100-B*10IFA=5.OR.B=5.OR.C=5S=S+1ENDIFENDIFX=X+1ENDDO?SRETURN修改后的程序执行结果为：856.下面的程序是求在1,2,3,4,...,10这10个数中,任意选两个不同的数,求它们的和能被2整除的数的总对数.(注意:象3+5和5+3认为是同一对数).程序中有一处错误。改正程序中的错误后运行程序，将程序执行结果填入答案框内。SETTALKOFFCLEARN=0I=1DOWHILEI<=10J=1DOWHILEJ(I+J)/2N=N+1
5、ENDIFJ=J+1ENDDOI=I+1ENDDO?NSETTALKONRETURN修改后的程序执行结果为：207.已知一个数列的前三个数是1,2,3,从第四个数起,每个数都是前三个数之和。下面的程序是求出该数列的第15个数。改正程序中的错误后运行程序，将程序执行结果填入答案框内。SETTALKOFFDIMEA(15)A(1)=1A(2)=2A(3)=3I=4DOWHILEI=15A(I)=A(I-1)+A(I-2)+A(I-3)I=I+1ENDDO?A(15)SETTALKONRETURN修改后的程序执行结果为：4841二、程序填空题（在参考程序文件夹中从tk1—tk12）1.下列的程
6、序是求S=8!+9!+10!的程序.在下列程序中填上缺少的语句或另外编写程序，(程序名由考生自定）运行程序，将结果填入答题窗口。SETTALKOFFCLEARS=0I=8DOWHILEI<=10STORE1TOT,JDOWHILEJ<=IT=T*JJ=J+1ENDDO_________s=s+tI=I+1ENDDO?SSETTALKONRETURN程序的执行结果为：2.设S=1+1/2+1/3+...+1/N，N为正整数。编程求使S不超过10的最大的N.(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。settalkoffclears=0i=1
7、dowhiles<=10s=s+1/i________i=i+1enddo?i-2settalkonreturn程序的执行结果为：123663.输出[10,100]中除以17的余数和除以5的商相等的整数的个数。SETTALKOFFN=0FORK=10TO100IF________k%17=int(k/5)?KN=N+1ENDIFENDFOR?NRETURN程序的执行结果为：44.统计区间[1000，9999]内所有能被3整除，且千位
