省二计算机VF题库求帮助一、程序改错题 设某学生成绩数据库文件data17.dbf有学号、姓名、物理、英语、数学、平均等字段，除学号和姓名两字段为字符型外，其它字段均为数值型。gc17.prg先计算出平均分，并替换所有记录平均字段的值，然后新建一个库文件xs1.dbf，再利用数组将平均分高于80分的10名学生的学号、姓名、平均添加到新库中。该程序有2处错误，请调试改正。调试中不得改变程序的结构，也不能增删语句.CLEARSET TALK OFFDIMENSION pj(10,3)USE data17
2019-04-18
省二计算机VF题库求帮助
一、程序改错题
设某学生成绩数据库文件data17.dbf有学号、姓名、物理、英语、数学、平均等字段，除学号和姓名两字
段为字符型外，其它字段均为数值型。gc17.prg先计算出平均分，并替换所有记录平均字段的值，
然后新建一个库文件xs1.dbf，再利用数组将平均分高于80分的10名学生的学号、姓名、
平均添加到新库中。该程序有2处错误，请调试改正。调试中不得改变程序的结构，也不能增删语句.
CLEAR
SET TALK OFF
DIMENSION pj(10,3)
USE data17.dbf
REPLACE aver WITH (phy+eng+math)/3
COPY TO ARRAY pj FOR aver > 80;
FIELDS number,name,aver
COPY STRUCTURE TO xs1 FIELDS number,name,aver
USE xs1
APPEND FROM ARRAY pj(10,3)
LIST
USE
SET TALK ON
RETURN
二、程序填空题
求S=1**2+（1**2+2**2）+（1**2+2**2+3**2）+…（1**2+2**2+3**2+…+10**2），
设计的程序名为tk17.PRG。请在该程序空白处，将其补充完整，以便得到正确答案，但不得增删原语句。
**tk17.PRG
SET TALK OFF
TOT=0
FOR N=1 TO 10
T=0
M=1
DO WHILE M T=(1)
M=M+1
ENDDO
TOT=TOT+T
ENDFOR
? 'S=',(2)
SET TALK ON
RETURN
优质解答
1.REPLACE ALL aver WITH (phy+eng+math)/3
2、T=T+M**2 "S="+STR(TOT)
1.REPLACE ALL aver WITH (phy+eng+math)/3
2、T=T+M**2 "S="+STR(TOT)