如何求分数段

qjf051ws

我想将表中的成绩按班求分数段,请教高手,如何解决,最好是做出个例子(用窗体),让我参考
如 一班  不合格   XX人
              60分--79分    XX人
              80分--89分    XX人
              90分--99分    XX人
               满分    XX人
   二班的类似

[ 本帖最后由 qjf051ws 于 2009-1-15 20:02 编辑 ]

Henry D. Sy

Public Function getClass(Result As Integer) As String
    Dim str As String
    Select Case Result
    Case Is > 99
        str = "A"
    Case Is > 89
        str = "B"
    Case Is > 79
        str = "C"
    Case Else
        str = "D"
    End Select
    getClass = str
End Function

假设你要计算数学分等级的人数
SELECT 成绩.班别, getClass([数学]) AS 等级, Count(成绩.数学) AS （数学）人数
FROM 成绩
GROUP BY 成绩.班别, getClass([数学])
ORDER BY 成绩.班别 DESC;

qjf051ws

真的感谢版主Henry D. Sy,这是我见过的最热心,反应最快的版主了,我的基础比较差,不太清楚上面的代码放在什么位置,最好有人能用我的文件制成实例就好了,再次谢版主[:28]

baijun

这版主,确实牛B,好,祝新春愉快

Henry D. Sy

原帖由 qjf051ws 于 2009-1-15 20:50 发表
真的感谢版主Henry D. Sy,这是我见过的最热心,反应最快的版主了,我的基础比较差,不太清楚上面的代码放在什么位置,最好有人能用我的文件制成实例就好了,再次谢版主[:28]

qjf051ws

多谢版主,我明白了,我感动到不知道说什么了