考试成绩分析求助

熊文来

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



补充内容 (2020-12-30 18:46):
已完成，感谢大家的帮助！

jiangxiaoyun

花点钱找代工吧，这么多事儿花时间不少。

zopey

理解如下：

1、班级的平均分、优秀率、及格率                                                                          
    计算公式为【班级总分/班级人数、班级优秀人数/班级人数、班级及格人数/班级人数】

2、年级的平均分、优秀率、及格率
    【年级平均分、优秀率、及格率是在两个校区中同一个年级各班  班级的平均分、优秀率、及格率的平均值】      

onlycxb

zopey

按班级 统计各科成绩



成绩统计分析.zip (260.22 KB, 下载次数: 126)

2018-10-31 15:08 上传

点击文件名下载附件

zopey

       If rst1("年级") >= 1 And rst1("年级") <= 5 Then
          If rst1("语文") >= 90 Then
             dic("语文优秀" & str1) = dic("语文优秀" & str1) + 1
          ElseIf rst1("语文") >= 60 Then
             dic("语文及格" & str1) = dic("语文及格" & str1) + 1
          End If
         
          If rst1("数学") >= 90 Then
             dic("数学优秀" & str1) = dic("数学优秀" & str1) + 1
          ElseIf rst1("数学") >= 60 Then
             dic("数学及格" & str1) = dic("数学及格" & str1) + 1
          End If
         
          If rst1("英语") >= 90 Then
             dic("英语优秀" & str1) = dic("英语优秀" & str1) + 1
          ElseIf rst1("英语") >= 60 Then
             dic("英语及格" & str1) = dic("英语及格" & str1) + 1
          End If
         
       ElseIf rst1("年级") = 6 Then
          str2 = rst1("班级") Mod 2
          If (rst1("语文") >= 85 And str2 = 1) And (rst1("语文") >= 80 And str2 = 0) Then
             dic("语文优秀" & str1) = dic("语文优秀" & str1) + 1
          ElseIf rst1("语文") >= 60 Then
             dic("语文及格" & str1) = dic("语文及格" & str1) + 1
          End If
         
          If (rst1("数学") >= 90 And str2 = 1) And (rst1("数学") >= 80 And str2 = 0) Then
             dic("数学优秀" & str1) = dic("数学优秀" & str1) + 1
          ElseIf rst1("数学") >= 60 Then
             dic("数学及格" & str1) = dic("数学及格" & str1) + 1
          End If
         
          If (rst1("英语") >= 27 And str2 = 1) And (rst1("英语") >= 24 And str2 = 0) Then
             dic("英语优秀" & str1) = dic("英语优秀" & str1) + 1
          ElseIf rst1("英语") >= 18 Then
             dic("英语及格" & str1) = dic("英语及格" & str1) + 1
          End If
       End If

zopey

发现 3处逻辑错误， 第2个 and  应该为 or：
If (rst1("语文") >= 85 And str2 = 1) And (rst1("语文") >= 80 And str2 = 0) Then
If (rst1("数学") >= 90 And str2 = 1) And (rst1("数学") >= 80 And str2 = 0) Then
If (rst1("英语") >= 27 And str2 = 1) And (rst1("英语") >= 24 And str2 = 0) Then

6楼 附件 已编辑修改后 重新上传。

熊文来

onlycxb 发表于 2018-10-31 12:33

这是你设计好的系统吗？

熊文来

zopey 发表于 2018-10-31 11:48
理解如下：

1、班级的平均分、优秀率、及格率                                                        ...

是的  您理解的事正确的