| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
跟大牛学C++学算法数据结构
共有 779 人关注过本帖
标题:考试成绩分析
只看楼主 加入收藏
xiongwenlai
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2018-11-3
结帖率:100%
  问题点数:0  回复次数:8   
考试成绩分析

每次考完试都要做成绩分析处理。我再论坛里看到了一些作品,但是我才疏学浅,很多地方看不懂,而且每所学校的要求各不相同,我也不懂得如何更改,之前发过一个文件,但是领导看了后觉得麻烦,所以把我之前的版面更改了,没办法 我只能发到这里,请求有时间的大侠帮忙处理三个表格问题。在此先谢过走过路过的朋友啦!附上文件里的要求,主要是三率表里的要求比较复杂。

1、计算本班的平均分、优秀率、及格率 就得到年级的平均分、优秀率、及格率                                                                                
【年级平均分、优秀率、及格率是在本年级所有班级计算后再取平均数,在两个校区中同一个年级各班数据的平均值,而不是分开取平均值】,【也不是直接由年级总分/年级人数、年级优秀人数/年级人数、年级及格人数/年级人数】                                                                                
2、所有涉及到【差值】都是为班级的数据-年级的数据                                                                                
3、排名:所有排名都是依据【差值】进行排名(在各年级中排名,在两个校区同年级所有班级中排名,而不是分开校区排名)        
【注意:1-4年级在两个校区同年级所有班级中排名
        5年级和6年级分奇数班和偶数班,那么排名是在两个校区同年级中的奇数班或者偶数班中排名】                                                               
4、积分:班级数+1-排名        (在各年级中排名)                                                                        
【注意:1-4年级在两个校区同年级所有班级数+1-排名
        5年级和6年级分奇数班和偶数班,那么积分也是在两个校区同年级中所有奇数班班数+1-排名或者所有偶数班班数+1-排名】                                                                                
6、1-5年级语文、数学、英语优秀分都为>=90,及格分都为>=60                                                                                
   6年级语文:奇数班优秀分>=85、偶数班>=80、奇数班和偶数班及格分都为>=60;                                                                                
   6年级数学:奇数班优秀分>=90、偶数班>=80、奇数班和偶数班及格分都为>=60;                                                                                
   6年级英语:奇数班优秀分>=27、偶数班>=24、奇数班和偶数班及格分都为>=18;
在此,谢谢各位看到过帖子,帮忙的朋友。
附件: 您没有浏览附件的权限,请 登录注册
2018-11-03 12:02
xiongwenlai
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2018-11-3
  得分:0 
走过路过的兄弟姐妹 不知道你们有没有在处理我这文件了?期待你们的好消息。
2018-11-04 20:22
xyxcc177
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:23
帖 子:164
专家分:1085
注 册:2017-7-8
  得分:0 
闲了看看,你的要求不少
2018-11-05 11:59
xiongwenlai
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2018-11-3
  得分:0 
回复 3楼 xyxcc177
朋友 可以帮忙做吗?谢谢!
2018-11-05 19:00
wengjl
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:67
帖 子:1532
专家分:2745
注 册:2007-4-27
  得分:0 
可以用VFP做吗?还是一定要EXCEL来解决?

只求每天有一丁点儿的进步就可以了
2018-11-10 11:13
xiongwenlai
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2018-11-3
  得分:0 
回复 5楼 wengjl
可以啊。你看怎么方便就怎么做。谢谢!期待您的成品。我的QQ305845432  我的邮箱305845432@qq.com 你可以加我QQ  方便联系。谢谢!
2018-11-12 11:13
xyxcc177
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:23
帖 子:164
专家分:1085
注 册:2017-7-8
  得分:0 

只统计了平均分优秀率和及格率,没有时间了
附件: 您没有浏览附件的权限,请 登录注册
2018-11-17 18:43
xiongwenlai
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2018-11-3
  得分:0 
回复 7楼 xyxcc177
谢谢大侠的帮忙 你QQ 多少呢? 加你可以吗?
2018-12-08 20:02
icecool
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:20
帖 子:1203
专家分:1309
注 册:2005-3-14
  得分:0 


你做试了一下主表的各种排序,点一下按钮完成各科的正反排序。
排序前得把表复制一份改名,前面加上“复件”,如:复件成绩分析纵向10-31.xls
(因本身是打开的,VBA读取不了)

代码如下:
程序代码:


Function paixu(kemu, lie, xu)
    Dim dbAddr
    dbAddr = ThisWorkbook.Path & "\" & "复件" & ThisWorkbook.Name

    Dim Conn As ADODB.Connection  '连接
    Set Conn = New ADODB.Connection

    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    connstrxls = "DBQ=" & dbAddr & ";DefaultDir=;DRIVER={Microsoft Excel Driver (*.xls)};"
    Conn.Open connstrxls
SQL = "select 姓名 from [起点成绩$] order by " & kemu & " " & xu
rs.Open SQL, Conn
i = 2
Do While Not rs.EOF
   Range(lie & i) = rs("姓名")
   i = i + 1
   rs.MoveNext
Loop

End Function

Private Sub command1_Click()
   Call paixu("语文", "j", "desc")
End Sub

Private Sub command2_Click()
 Call paixu("数学", "k", "desc")

End Sub

Private Sub command4_Click()
   Call paixu("语文", "n", "asc")
End Sub

Private Sub command6_Click()
 Call paixu("总分", "q", "asc")
End Sub

Private Sub CommandButton1_Click()
 Call paixu("总分", "m", "desc")
End Sub

Private Sub CommandButton2_Click()
 Call paixu("数学", "o", "asc")
End Sub

附件: 您没有浏览附件的权限,请 登录注册

loading...
2018-12-14 11:47







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

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