vf求各班平均分
给大侠发一个表,求出各班各科的平均成绩,编一个程序,麻烦试下,发过来,谢了
12.rar
(2.68 KB)
考号:第一、二位是学校代码,第三、四位是班级代码
[ 本帖最后由 hnsmxyz1 于 2014-4-8 15:16 编辑 ]
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