VFP程序改错答案.doc

程序改错1、 下列中有8大题，081班做前4题，082班做后四题。2、 程序改错题的要求是：原有语句不变，将正确语句用红色字体写在错误语句的右侧，在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。3、 交作业时，文件名类似为“公事管08212*”，发到相应的班级文件夹下的题号文件夹下。1、程序改错（5分）下列程序的功能是计算分数数列2/1，3/2，5/3，,m/n,m+n/m的前20项之和。要求：项目中有一个程序文件Pcode，将下列程序输入到其中并进行修改；在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。nSum=0m=2&数列中第一项的分子n=1&数列中第一项的分母FOR x=1 TO 20nSum=nSum+m/xny=mm=m+nn=yENDDO（endfor）WAIT WINDOWS 前20项之和为+STR(nSum,10,2)2、程序改错（5分）下列程序的功能是统计所有的“水仙花数”的个数， “水仙花数”是指一个三位数，其各位数字立方和等于该数本身，例如：153=13+53+33）。要求：项目中有一个程序文件Pcode，将下列程序输入到其中并进行修改；在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。nCount=10FOR n=100 TO 999 &n1=VAL(SUBS(STR(n,3),3,1)n2=VAL(SUBS(STR(n,3),2,1)n3=VAL(SUBS(STR(n,3),1,1)IF n=n13+n23+n33nCount=nCount+1ENDIFENDFORWAIT WINDOWS “水仙花数”的个数为，+nCount 3、程序改错（5分）下列程序的功能是统计一个字符串中包括多少个汉字（假设这些汉字均属于GB2312字符集），其基本算法是从字符串中依次取一个字符，如果其ASCII码值大于127，则为一个汉字内码的第一个字节。要求：项目中有一个程序文件Pcode，将下列程序输入到其中并进行修改；在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。 cString=微软(Microsoft)公司开发的视窗(Windows)操作系统 &赋初值nCount=0DO WHILE LEN(cString)！=0IF ASC(LEFT(cString,1)127nCount=nCount+1cString=SUBSTR(cString,3)ELSEcString=SUBSTR(cString,12)ENDIFENDDOWAIT WINDOWS 汉字个数为+STR(nCount)4、程序改错（5分）下列程序用于计算数列1，1/2，1/3，1/4，1/5，1/n之和，当某一数列项的值小于0.01时停止计算。要求：项目中有一个程序文件Pcode，将下列程序输入到其中并进行修改；在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。SET DECIMAL TO 2n=1nSum=0DO WHILE .T.IF 1/n0n=MOD(nNumber,2)&余数nNumber=INT(nNumber/2)cResult=STR(n,1)+cResultENDDOELSEcResult=0ENDIFWAIT WINDOWS 二进制数表示为+ STR(cResult)8、程序改错（5分）下列程序的功能用于计算1100之间的质数的个数(注：质数是指只能被1和自身整除的自然数)。要求： 项目中有一个程序文件Pcode，将下列程序输入到其中并进行修改； 在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。nCount=0FOR m=1 TO 100bzs=.T.FOR n=2 TO 9IF MOD(m,n)=0 AND m#nbzs=.F. &不是质数LOOPexit