高校问答朋友搬家送什么鲜花:请问这个难题怎么做?
来源：百度文库 编辑：高校问答 时间：2024/05/03 02:11:01
文件夹已建立项目25test1，在该项目中已有数据表“STDATA.DBF”和“STCJ.DBF”。下面的程序设计都应在项目中完成。
一、 编写程序（文件名：abc1.prg）(50分)
项目25TEST1.PJX中的数据表文件“STDATA.DBF”和“STCJ.DBF”的数据如下图所示。
STDATA
学号 姓名 院系名 平均分
X05010 黄灿 化学科学学院
X05001 程雨 经济学院
X05002 李大成 制造学院
X05004 谢晓晓 生命科学院
X05003 胡军 计算机学院
X05005 罗南彬 电子信息学院
STCJ
学号 成绩1 成绩2 成绩3 成绩4
X05010 65 73 78 80
X05001 77 78 80 65
X05002 91 80 77 88
X05004 56 70 63 75
X05003 75 81 69 83
X05005 90 79 80 78
编程实现：
1． 计算每个学生的平均分，正确填入“平均分”字段
2． 按平均分进行由高到低的显示前三名同学的纪录。
3． 显示界面如下：
*****************************排位如下***************************
学号 姓名 院系 名次
X05002 李大成 制造学院 1
X05005 罗南彬 电子信息学院 2
X05003 胡军 计算机学院 3
二、
一、 编写程序（文件名：abc1.prg）(50分)
项目25TEST1.PJX中的数据表文件“STDATA.DBF”和“STCJ.DBF”的数据如下图所示。
STDATA
学号 姓名 院系名 平均分
X05010 黄灿 化学科学学院
X05001 程雨 经济学院
X05002 李大成 制造学院
X05004 谢晓晓 生命科学院
X05003 胡军 计算机学院
X05005 罗南彬 电子信息学院
STCJ
学号 成绩1 成绩2 成绩3 成绩4
X05010 65 73 78 80
X05001 77 78 80 65
X05002 91 80 77 88
X05004 56 70 63 75
X05003 75 81 69 83
X05005 90 79 80 78
编程实现：
1． 计算每个学生的平均分，正确填入“平均分”字段
2． 按平均分进行由高到低的显示前三名同学的纪录。
3． 显示界面如下：
*****************************排位如下***************************
学号 姓名 院系 名次
X05002 李大成 制造学院 1
X05005 罗南彬 电子信息学院 2
X05003 胡军 计算机学院 3
二、
下列程序没有调试过，不过因改没有什么问题！有问题可以提出来！
set talk off
clear
sele 1
use stcj
index on 学号 to xh
set index to xh *这条命令可以不要
sele 2
use stdata
set relation to 学号 into a
replace all 平均分 with (a.成绩1+a.成绩2+a.成绩3+a.成绩4)/4
index on 100-平均分 to pjf *按成绩降序排列
set index to pjf *这条命令可以不要
@1,1 say "**************" *显示位置可以自己调试
@1,20 say "排位如下"
@1,30 say "*************"
?
@1,1 say "学号 姓名 院系 名次"
?
i=1
for i=1 to 3
go i
a=学号
b=姓名
c=院系名
？a," ",b ," ",c," ",i
next
set talk on
给你现成的程序？？？那要等好久！！！
不知道要怎么告诉你!