东北农业大学2011-2012下学期Visual Foxpro题库.docVIP

*题目：编程求P=1-1/(2x2)+1/(3x3)-1/(4x4)+1/(5x5)。 * (要求使用循环语句求解) * 将结果存入变量OUT中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------- SET TALK ON SET LOGERRORS ON OUT=-1 **********Program********** p=0 m=1 i=0 do while m=5 p=p+((-1)^(m+1))/(m*m) m=m+1 enddo ?p=,p out=p 程序填空 *题目：通过循环程序输出图形： * * 1 * 321 * 54321 * 7654321 *------------------------------------------------------- SET TALK OFF FOR N=1 TO 4 ***********SPACE********** ? ***********SPACE********** FOR M=1 TO 8-2*N ?? ENDFOR FOR M=1 TO 2*N-1 ***********SPACE********** ?? STR(2*N-M,1) *【程序改错】 *------------------------------------------------------- *题目:求0-7这8个数字所能组成的奇数个数。 *------------------------------------------------------- *注意：不可以增加或删除程序行，也不可以更改程序的结构。 *------------------------------------------------------- set talk off clear sum=4 s=4 j=2 ***********FOUND********** do while j=8 if j=2 s=s*7 else s=s*8 endif ***********FOUND********** sum=sum+s ***********FOUND********** next j=j+1 endd 程序设计 *题目：在屏幕上纵向输出计算机等级考试。（要求用循环语句实现） * 并将第五行的字符输出到给定变量Y中 * 请按照题目要求，在下面编写程序代码。 S=计算机等级考试 i=1 do while i14 ?subs(s,i,2) i=i+2 enddo Y=级 *题目：以下程序的功能如(图1)。T=1+2+2^2+2^3+…….+2^n *------------------------------------------------------- SET TALK OFF ***********SPACE********** T=0 ***********SPACE********** INPUT TO N FOR I=0 TO N ***********SPACE********** T=T+2^I 【程序改错】 ***********FOUND********** if i!=k and K!=j and i!=j ? str(i,1)+str(j,1)+str(k,1) m=m+1 endif ***********FOUND********** endfor （3）？“互不相同且不重复的三位数有”m，“个” *------------------------------------------------------- *【程序设计】 *------------------------------------------------------- *题目：用循环程序求出1~15之间能被3整除的整数的阶乘和 * 存入变量OUT中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------- **********Program********** N=1 T=1 out=0 FOR N=1 TO 15 T=T*N IF N%3=0 OUT=OUT+T ENDIF