我想分学校统计一下学生的测试成绩，现在我想算出每个学校的语文和数学都超过60分的考生人数比率（即双格合格率），和语文和数学都超过90分的考生人数比率（双格优秀率），能帮我写一下代码吗。
字段：xxdm----学校代码
          xm----姓名
          yw----语文
          sx----数学

Create Cursor Tjb (Xxdm C(9),双格合格率 N(5,2),双格优秀率 N(5,2)) && 生成临时表结构
Select Xxdm,Count(*) From A1 Group By Xxdm Into Array Adm && 生成各学校总人数
Select * From A1 Into Cursor Temp1 && 对临时表进行操作
Local Akm[2]
Akm[1]=0 && 语文数学合格人数
Akm[2]=0 && 语文数学优秀人数
For lnI=1 To Alen(Adm,1)
    Scan For Alltrim(Xxdm)==Alltrim(Adm[lnI,1])
        If Yw>=60 And Sx>=60
            Akm[1]=Akm[1]+1
        EndIf 
        If Yw>=90 And Sx>=90
            Akm[2]=Akm[2]+1
        EndIf 
    EndScan
    Insert Into Tjb Values (Adm[lnI,1],Akm[1]*100/Adm[lnI,2],Akm[2]*100/Adm[lnI,2])
    Akm[1]=0
    Akm[2]=0
EndFor 
Select Tjb
Browse 

建议楼主学习一下帮助文件中的相关内容，用命令一条条写，也能完成统计工作。

收到的鲜花

• tlliqi 于 2014-11-05 20:13 送鲜花  20朵   附言：向你学习

向你学习

请问楼主，合格率里包括优秀率吗？然后，计算这两个率的分母是全部的人数还是每个学校自己的人数？

非常感谢