[高等教育]东北农业大学2011-2012下学期Visual-Foxpro题库.doc

*题目：编程求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 i<14
?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
ENDFOR
?OUT
*【程序填空】
*-------------------------------------------------------
*下面程序的功能是：用循环程序计算S=10!+11！……20！,请将程序填写完整。
*-------------------------------------------------------
1)S=0 2)t=t*I 3)i=i+1
*【程序改错】
*-------------------------------------------------------

*题目：表XSDA.DBF结构为：学号（C，6），姓名（C，6），
* 性别（C，2），入学成绩（N，6，2）。本程序复制表
* XSDA的记录到表XS1中，在表XS1中查找入学成绩550分
* 以上的同学，将其删除并浏览XS1的内容。

*-------------------------------------------------------
*注意：不可以增加或删除程序行，也不可以更改程序的结构。
*-------------------------------------------------------

SET TALK OFF
USE XSDA
**********FOUND**********
COPY TO XS1
USE XS1
**********FOUND**********
LOCATE ALL FOR入学成绩>=550
DO WHILE FOUND()
DELETE
**********FOUND**********
CONTINUE
ENDDO
PACK
BROW
USE
SET TALK ON
-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：利用循环程序输出图形：

* 1
* 222
* 33333
* 4444444
*并将输出第三行存入变量S中
*请按照题目要求，在下面编写程序代码。

*-------------------------------------------------------

SET TALK OFF
SET LOGERRORS ON
S=""
**********Program**********
N=1
FOR N=1 TO 4
?SPACE(4-N)
FOR M=1 TO 2*N-1
??STR(N,1)
ENDFOR
ENDROR
SET TALK ON
S=”33333”
********** End **********