湘潭大学visual foxpro课程考试备考习题29(3)

LIST N=N+1 ENDSCAN

**********FOUND********** ? 记录个数是,N USE

SET TALK ON RETU 答案：

=======(答案1)======= N=0

=========或========= Store 0 To N

=======(答案2)======= DISPLAY

=========或========= DISP

=======(答案3)======= ? \记录个数是\

=========或========= ? \记录个数是\=========或========= ? [记录个数是],N

=========或========= ? [记录个数是],str(N)

=========或========= ? '记录个数是',N

=========或========= ? '记录个数是',str(N)

第2题 （5.0分） 题号:831

*------------------------------------------------------- *【程序改错】

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

*题目:现有数据库文件XS.DBF，包括：学号C(6)，姓名C(8)，计算 * 机N(5,1)，高等数学N(5,1)，英语N(5,1)。数据库文件

* JXJ.DBF，结构为：学号C(6)，平均分N(5,1)，奖学金C(4)

* 。编写MODI1.PRG程序，计算每名学生的平均分和奖学金，并 * 将计算结果存入JXJ.DBF文件的相应字段中。要求JXJ.DBF文

* 件中各记录按学号升序排序。奖学金的计算方法是：超过全 * 班平均分10%为\一等\，超过全班平均分5%为\二等\，其他为 * \无\。

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

*注意：不可以增加或删除程序行，也不可以更改程序的结构。 *------------------------------------------------------- SET TALK OFF SET SAFETY OFF SELE 2 USE JXJ ZAP

INDEX ON 学号 TO jxj SELE 1 USE XS

INDEX ON 学号 TO xs SET RELA TO 学号 INTO b ***********FOUND********** DO WHILE EOF() SELE 2

***********FOUND********** APPE SELE 1

REPL b->学号 WITH 学号,b->平均分 WITH (计算机+高等数学+英语)/3 ***********FOUND********** CONT ENDDO SELE 2

AVER 平均分 TO a

REPL ALL 奖学金 WITH \一等\平均分>(a*1.1)

REPL ALL 奖学金 WITH \二等\平均分>(a*1.05) .and. 平均分<=(a*1.1) REPL ALL 奖学金 WITH \无\平均分<=(a*1.05) CLOSE DATABASE SET SAFETY ON SET TALK ON RETURN

答案：

=======(答案1)======= do while .not. EOF()

=======(答案2)======= APPE BLANK

=======(答案3)======= SKIP

第3题 （5.0分） 题号:829

*------------------------------------------------------- *【程序改错】

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

*题目:已有两个数据库文件ZC.DBF和ZG.DBF。给定程序MODI1.PRG * 的功能是：将ZC.DBF和ZG.DBF两个数据库文件的相应记录连 * 在一起存入新数据库文件JJ.DBF中，对该数据库文件按职称 * 分类汇总实发工资和奖金，再将汇总后的结果复制到ABC.DBF * 数据库文件中，并使该文件只包含职称、奖金和实发工资三 * 个字段。

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

*注意：不可以增加或删除程序行，也不可以更改程序的结构。 *------------------------------------------------------- SET TALK OFF SET SAFETY OFF SELECT 1 USE ZG SELECT 2 USE ZC

***********FOUND********** JOIN WITH A TO JJ USE JJ

***********FOUND********** INDEX ON 职工号 TO ZCHZ

TOTAL ON 职称 TO DDD FIELDS 实发工资,奖金 USE DDD

***********FOUND**********

COPY TO ABC FOR 职称,奖金,实发工资 USE ABC LIST

CLOSE DATABASE SET TALK ON RETURN

答案：

=======(答案1)=======

JOIN WITH A TO JJ FOR 职工号=A->职工号 =========或=========

JOIN WITH ZG TO JJ FOR 职工号=ZG->职工号 =========或=========

JOIN WITH A TO JJ FOR 职工号==A

=======(答案2)======= INDE ON 职称 TO ZCHZ

=======(答案3)=======

COPY TO ABC FIEL 职称,奖金,实发工资 =========或=========

COPY FIEL 职称,奖金,实发工资 TO ABC

━━━━━━━━━━━━━━━━ 七、程序设计 共2题 （共计10分） ━━━━━━━━━━━━━━━━

第1题 （5.0分） 题号:733

*------------------------------------------------------- *【程序设计】

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

*题目：编程找出一组数中最大值和最小值，并将最大值和最小值 * 之和存入变量OUT中。

* 请按照题目要求，在下面编写程序代码。

*------------------------------------------------------- SET TALK ON

SET LOGERRORS ON dime array(10) array(1)=10 array(2)=3 array(3)=6 array(4)=96 array(5)=4 array(6)=23 array(7)=35 array(8)=67 array(9)=12 array(10)=88 OUT=-1

**********Program**********

********** End ********** DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF

答案：---------------------- store array(1) to max,min for i=1 to 10 if array(i)>max max=array(i) endif

if array(i)

out=max+min ? out

----------------------

第2题 （5.0分） 题号:738

*------------------------------------------------------- *【程序设计】

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

*题目：编程求P=1-1/(2×2)+1/(3×3)-1/(4×4)+1/(5×5)。

* 将结果存入变量OUT中，要求用Do While语句实现。

*------------------------------------------------------- SET TALK ON

SET LOGERRORS ON OUT=-1

**********Program**********

********** End ********** DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF

答案：---------------------- P=0 M=1