USE XSDB
DO WHIL .NOT. EOF()
***********FOUND********** LIST 姓名,计算机 DO CASE
CASE 计算机>=90 ??'优秀' CASE 计算机>=60 ??'及格' OTHERWISE ??'补考' ENDCASE
***********FOUND********** GO NEXT ENDDO USE
SET TALK ON RETU 答案：
=======(答案1)======= ?姓名,计算机
=========或========= DISP姓名,计算机
=========或========= DISPLAY姓名,计算机
=======(答案2)======= SKIP
第2题 （5.0分） 题号:807
*------------------------------------------------------- *【程序改错】
*-------------------------------------------------------
*题目:首先把b所指字符串中的字符按逆序存放， 然后将a所指字符 * 串中的字符和b所指字符串中的字符， 按排列的顺序交叉合 * 并到c所指字符串中，过长的剩余字符接在c所指字符串的尾 * 部。
* 例如，当a所指字符串中的内容为\，b所指字符串 * 中的内容为\时，c所指字符串中的内容为\* ； 而当a所指字符串中的内容为\，b所指字符串 * 中的内容为\时，c所指字符串中的内容该为
* \。
*-------------------------------------------------------
*注意：不可以增加或删除程序行，也不可以更改程序的结构。 *------------------------------------------------------- set talk off clear
a=\b=\c=\
if len(a)>len(b) m=len(a) n=len(b)
for i=1 to m
***********FOUND**********
c=c+subs(a,i,1)+subs(b,n+i+1,1) endfor else
***********FOUND********** for i=1 to m
c=c+subs(a,i,1)+subs(b,n-i+1,1) endfor
***********FOUND********** endf ? c
SET TALK ON RETU 答案：
=======(答案1)=======
c= c + subs(a,i,1) + subs(b, n-i+1 ,1)
=======(答案2)======= for i=1 to n
=======(答案3)======= endif
=========或========= endi
第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分） 题号:722
*------------------------------------------------------- *【程序设计】
*-------------------------------------------------------
*题目：编程计算并输出给定整数n的所有因子之积 * （不包括1与自身）。
* 将结果存入变量OUT中。
* 请按照题目要求，在下面编写程序代码。
*------------------------------------------------------- SET TALK ON
SET LOGERRORS ON ? \输入一个整数：n=855\ n=855 OUT=-1
**********Program**********
********** End ********** DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF
答案：---------------------- store 1 to s for i=2 to n-1 if(n%i=0) s=s*i endif endfor ? \
out=s
----------------------
第2题 （5.0分） 题号:672
*------------------------------------------------------- *【程序设计】
*-------------------------------------------------------
*题目：从键盘输入三角形的边长，输入边长满足两边之和大于 * 第三边，且为正值。计算并输出三角形的面积S；若不满 * 足以上条件，显示输出\不能构成三角形\。 * 其中面积公式请参看(图1)。 * 将面积值存入变量AREA中。
* 请按照题目要求，在下面编写程序代码。
*------------------------------------------------------- SET TALK OFF
SET LOGERRORS ON INPUT TO A INPUT TO B INPUT TO C
? \三角形面积为\YZJ()
SET TALK ON RETURN
FUNCTION FUN(a,b,c) AREA=-1
**********Program**********
********** End ********** RETURN AREA
FUNCTION YZJ() USE IN
LOCAT FOR TIHAO=1 IF FOUND() A=N1