用vfp统计测验成绩，多学科，多班级

SET DEFAULT TO e:\vfp123
CLOSE TABLES
bjs=12
kms=2
DIMENSION km(10),mf(10)
km(1)="yw"
km(2)="sx"

mf(1)=70
mf(2)=100

SELECT b
USE wan3tj
GO top
SELECT a
USE wan3

FOR k=1 TO kms 
FOR i=1 TO bjs
*-----统计A类学生-----
    *-----统计A表数据-----
    aver &km(k) to pjf FOR fl="A" AND bj=i
    coun FOR &km(k)>=mf(k) and fl="A" AND bj=i to f1
    coun FOR &km(k)>=mf(k)*0.9 and fl="A" AND bj=i to f2
    f1=f1/5*100
    f2=f2/5*100
    *-----记录到B表-----
    SELECT b
    REPLACE bj WITH 1,tj1 WITH pjf,tj2 WITH f1,tj3 WITH f2,fl WITH "A",km with km(k)
    skip
    *?pjf,f1,f2
    SELECT a
endf
*--------统计B类学生----------
SELECT a
FOR i=1 TO bjs
    *-----统计A表数据-----
    aver &km(k) to pjf FOR fl="B" AND bj=i
    coun FOR &km(k)>=mf(k)*0.8 and fl="B" AND bj=i to f1
    coun FOR &km(k)>=mf(k)*0.6 and fl="B" AND bj=i to f2
    f1=f1/10*100
    f2=f2/10*100
    *-----记录到B表-----
    SELECT b
    REPLACE bj WITH 1,tj1 WITH pjf,tj2 WITH f1,tj3 WITH f2,fl WITH "B",km with km(k)
    skip
    *?pjf,f1,f2
    SELECT a
endf
endf
SELECT b
COPY TO test.xls TYPE xl5
CLOSE TABLES

?"Over"