SELECT 班级,ROUND(AVG(语文),1) 语文均分,ROUND(AVG(数学),1) 数学均分,ROUND(AVG(英语),1) 英语均分,ROUND(AVG(总分),1) 总分均分 FROM 12 GROUP BY 班级 into dbf 各班各科的平均成绩表

程序代码：

增加一个t列 用于保存班级代号

repl all t with subs(str(考号,7,0),1,5)

select t as 班级,round(sum(语文)/count(t),1) as 语文平均,round(sum(数学)/count(t),1) as 数学平均,round(sum(英语)/count(t),1) as 英语平均 from 12 grou by t

Select Substr(Transform(考号),3,2) 班级,AVG(语文) 语文均分,AVG(数学) 数学均分,AVG(英语) 英语均分,AVG(总分) 总分均分 From CJ12 group by 1 Into Cursor bjavg
Browse 

程序代码：

Clear 
Close Databases 
Use cj12 In 0 Alias cj
=AFields(Akc)
Local Azdm[5,4]
Azdm[1,1]='班级'
Azdm[1,2]='C'
Azdm[1,3]=10
Azdm[1,4]=0
For lnI=2 To Alen(Akc,1)
    Azdm[lnI,1]=Akc[lnI,1]
    Azdm[lnI,2]='N'
    Azdm[lnI,3]=6
    Azdm[lnI,4]=1
EndFor 
* 各班各门课程平均分临时表结构
Create Cursor cAvg From Array Azdm
Calculate Min(Evaluate(Akc[1,1])),Max(Evaluate(Akc[1,1])) To Array Min_Max In cj
Min_Max[1]=Round(Val(Substr(Min_Max[1],3,2)),0)
Min_Max[2]=Round(Val(Substr(Min_Max[2],3,2)),0)
For lnk=Min_Max[1] To Min_Max[2]
    Append Blank In cAvg
    Replace (Azdm[1,1]) With Padl(lnk,2,'0') In cAvg
    For lnI=2 To Alen(Akc,1)
        Calculate Avg(Evaluate(Azdm[lnI,1])) To jAvg For Substr(Evaluate(Akc[1,1]),3,2)==Padl(lnk,2,'0') In cj
        Replace Record Reccount('cAvg') (Azdm[lnI,1]) With jAvg For Field(lnI)==Azdm[lnI,1] In cAvg
    EndFor 
EndFor 
Browse