求助，问别人要的一个高考分数分段的程序，这些代码什么意思，需要怎么用啊 - VFP论坛

qq957221564

等　级：新手上路
帖　子：3
专家分：0
注　册：2016-11-7
结帖率：0

楼主

问题点数：0 回复次数：5

求助，问别人要的一个高考分数分段的程序，这些代码什么意思，需要怎么用啊

USE gk2016yj
set dele on
SET TALK OFF
zsl=18723
    km='zkcj'
    INDE ON -&km TO in1
*1/6
    sl=zsl/6
    GO TOP
    SKIP sl-1
    zz1=&km
    COUN FOR &km>zz1 TO x1
    COUN FOR &km>=zz1 TO x2
    xx=IIF(sl-x1<x2-sl,x1,x2)
    ?km+SPAC(2)+STR(xx,5)+'人:  '
        IF xx=x1
            COUN FOR &km>zz1 TO a
        ELSE
            COUN FOR &km>=zz1 TO a
        ENDIF
        go top
        skip a-1
        jzf=&km
        ??STR(jzf,3)+SPAC(2)
*2/6
    sl=2*zsl/6
    GO TOP
    SKIP sl-1
    zz1=&km
    COUN FOR &km>zz1 TO x1
    COUN FOR &km>=zz1 TO x2
    xx=IIF(sl-x1<x2-sl,x1,x2)
    ?km+SPAC(2)+STR(xx,5)+'人:  '
        IF xx=x1
            COUN FOR &km>zz1 TO a
        ELSE
            COUN FOR &km>=zz1 TO a
        ENDIF
        go top
        skip a-1
        jzf=&km
        ??STR(jzf,3)+SPAC(2)
*3/6
    sl=3*zsl/6
    GO TOP
    SKIP sl-1
    zz1=&km
    COUN FOR &km>zz1 TO x1
    COUN FOR &km>=zz1 TO x2
    xx=IIF(sl-x1<x2-sl,x1,x2)
    ?km+SPAC(2)+STR(xx,5)+'人:  '
        IF xx=x1
            COUN FOR &km>zz1 TO a
        ELSE
            COUN FOR &km>=zz1 TO a
        ENDIF
        go top
        skip a-1
        jzf=&km
        ??STR(jzf,3)+SPAC(2)
*4/6
    sl=4*zsl/6
    GO TOP
    SKIP sl-1
    zz1=&km
    COUN FOR &km>zz1 TO x1
    COUN FOR &km>=zz1 TO x2
    xx=IIF(sl-x1<x2-sl,x1,x2)
    ?km+SPAC(2)+STR(xx,5)+'人:  '
        IF xx=x1
            COUN FOR &km>zz1 TO a
        ELSE
            COUN FOR &km>=zz1 TO a
        ENDIF
        go top
        skip a-1
        jzf=&km
        ??STR(jzf,3)+SPAC(2)
*5/6
    sl=5*zsl/6
    GO TOP
    SKIP sl-1
    zz1=&km
    COUN FOR &km>zz1 TO x1
    COUN FOR &km>=zz1 TO x2
    xx=IIF(sl-x1<x2-sl,x1,x2)
    ?km+SPAC(2)+STR(xx,5)+'人:  '
        IF xx=x1
            COUN FOR &km>zz1 TO a
        ELSE
            COUN FOR &km>=zz1 TO a
        ENDIF
        go top
        skip a-1
        jzf=&km
        ??STR(jzf,3)+SPAC(2)
*6/6
    sl=zsl
    GO TOP
    SKIP sl-1
    zz1=&km
    COUN FOR &km>zz1 TO x1
    COUN FOR &km>=zz1 TO x2
    xx=IIF(sl-x1<x2-sl,x1,x2)
    ?km+SPAC(2)+STR(xx,5)+'人:  '
        IF xx=x1
            COUN FOR &km>zz1 TO a
        ELSE
            COUN FOR &km>=zz1 TO a
        ENDIF
        go top
        skip a-1
        jzf=&km
        ??STR(jzf,3)+SPAC(2)
*1+1/3
    sl=zsl*(1+1/3)
    GO TOP
    SKIP sl-1
    zz1=&km
    COUN FOR &km>zz1 TO x1
    COUN FOR &km>=zz1 TO x2
    xx=IIF(sl-x1<x2-sl,x1,x2)
    ?km+SPAC(2)+STR(xx,5)+'人:  '
        IF xx=x1
            COUN FOR &km>zz1 TO a
        ELSE
            COUN FOR &km>=zz1 TO a
        ENDIF
        go top
        skip a-1
        jzf=&km
        ??STR(jzf,3)+SPAC(2)
*1+2/3
    sl=zsl*(1+2/3)
    GO TOP
    SKIP sl-1
    zz1=&km
    COUN FOR &km>zz1 TO x1
    COUN FOR &km>=zz1 TO x2
    xx=IIF(sl-x1<x2-sl,x1,x2)
    ?km+SPAC(2)+STR(xx,5)+'人:  '
        IF xx=x1
            COUN FOR &km>zz1 TO a
        ELSE
            COUN FOR &km>=zz1 TO a
        ENDIF
        go top
        skip a-1
        jzf=&km
        ??STR(jzf,3)+SPAC(2)
*2
    sl=2*zsl
    GO TOP
    SKIP sl-1
    zz1=&km
    COUN FOR &km>zz1 TO x1
    COUN FOR &km>=zz1 TO x2
    xx=IIF(sl-x1<x2-sl,x1,x2)
    ?km+SPAC(2)+STR(xx,5)+'人:  '
        IF xx=x1
            COUN FOR &km>zz1 TO a
        ELSE
            COUN FOR &km>=zz1 TO a
        ENDIF
        go top
        skip a-1
        jzf=&km
        ??STR(jzf,3)+SPAC(2)
retu

搜索更多相关主题的帖子: 高考分数　

2016-12-07 14:23

cxzbzgz

来　自：云南楚雄
等　级：贵宾
威　望：24
帖　子：298
专家分：808
注　册：2012-6-15

第 3 楼

得分:0

回复 2楼 schtg

假如你的数据库表名是CJK.DBF,总分字段名为ZF，可以用如下两条命令解决你的问题

SELECT *,PADL(CEILING(zf/10)*10-9,3)+"--"+PADL(CEILING(zf/10)*10,3) fsd FROM cjk INTO CURSOR tmp WHERE zf<>0
SELECT fsd,cnt(*) rs FROM tmp GROUP BY fsd ORDER BY fsd DESC

学习交流VFP,QQ:248561326。

2016-12-08 08:39

schtg

来　自：Usa
等　级：贵宾
威　望：67
帖　子：1735
专家分：3329
注　册：2012-2-29

第 5 楼

得分:0

@cxzbzgz：谢谢！

2016-12-08 19:32