| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3627 人关注过本帖
标题:vf求各班平均分
只看楼主 加入收藏
hnsmxyz1
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2014-4-8
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:10 
vf求各班平均分
给大侠发一个表,求出各班各科的平均成绩,编一个程序,麻烦试下,发过来,谢了
12.rar (2.68 KB)

考号:第一、二位是学校代码,第三、四位是班级代码

[ 本帖最后由 hnsmxyz1 于 2014-4-8 15:16 编辑 ]
搜索更多相关主题的帖子: 学校 
2014-04-08 10:28
wp231957
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:神界
等 级:贵宾
威 望:423
帖 子:13688
专家分:53332
注 册:2012-10-18
收藏
得分:6 
咋能看出来谁和谁是一个班级的呢

DO IT YOURSELF !
2014-04-08 10:50
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
表中没有班级
2014-04-08 10:52
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:6 
SELECT 班级,ROUND(AVG(语文),1) 语文均分,ROUND(AVG(数学),1) 数学均分,ROUND(AVG(英语),1) 英语均分,ROUND(AVG(总分),1) 总分均分 FROM 12 GROUP BY 班级 into dbf 各班各科的平均成绩表
2014-04-08 10:55
wp231957
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:神界
等 级:贵宾
威 望:423
帖 子:13688
专家分:53332
注 册:2012-10-18
收藏
得分:0 
程序代码:
增加一个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

DO IT YOURSELF !
2014-04-08 11:02
taifu945
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:80
帖 子:1545
专家分:3298
注 册:2012-7-6
收藏
得分:0 
楼主,班级标记在哪里?
2014-04-08 14:24
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:8 
Select Substr(Transform(考号),3,2) 班级,AVG(语文) 语文均分,AVG(数学) 数学均分,AVG(英语) 英语均分,AVG(总分) 总分均分 From CJ12 group by 1 Into Cursor bjavg
Browse 


图片附件: 游客没有浏览图片的权限,请 登录注册

坚守VFP最后的阵地
2014-04-08 15:37
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
VFP6.0代码

程序代码:
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 

坚守VFP最后的阵地
2014-04-08 21:17
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
练练手,请TonyDend版主指正

坚守VFP最后的阵地
2014-04-08 21:19
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
楼主老师布置完作业,按时下班了。

坚守VFP最后的阵地
2014-04-08 21:24
快速回复:vf求各班平均分
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.057074 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved