| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 | 
登录
注册
用户控制面板
搜索
道具
风格
短消息
论坛展区
帮助
编程论坛 → 数据库技术 → 『 VFP论坛 』 → 统计分数线上线求助：统计出按照分数段各科及总分各班各部上线人数。
我的收件箱(0)
欢迎加入我们，一同切磋技术
用户名：   
 
密　码：  
共有 4004 人关注过本帖
标题：统计分数线上线求助：统计出按照分数段各科及总分各班各部上线人数。
取消只看楼主 加入收藏
分号
Rank: 1
等　级：新手上路
帖　子：156
专家分：0
注　册：2006-12-4
结帖率：77.78%
楼主
收藏
 已结贴√  问题点数：20 回复次数：9 
统计分数线上线求助：统计出按照分数段各科及总分各班各部上线人数。
统计分数线上线求助：统计出按照分数段各科及总分各班各部上线人数。

数据.rar (173.77 KB)


原来使用的方法太麻烦，求简洁方法。

我原来使用的是，先算出 各班各科1,2,本上线，然后算部门上线。汇总。
程序代码：
use 理科
qq="01"
@12,5 SAY    "请输入班级:" get qq

read 
if qq="00"
DO 统计1部

 endif

bjmz=qq    

COUNT FOR 语文>=100 and bj=bjmz TO ywfsx1
COUNT FOR 语文>=88 AND 语文<100 and bj=bjmz TO ywfsx2
COUNT FOR 语文>=88 and bj=bjmz TO ywfsx

COUNT FOR 数学>=93 and bj=bjmz TO sxfsx1
COUNT FOR 数学>=60 AND 数学<93 and bj=bjmz TO sxfsx2
COUNT FOR 数学>=60 and bj=bjmz TO sxfsx

COUNT FOR 英语>=101 and bj=bjmz TO yyfsx1
COUNT FOR 英语>=66 AND 英语<101 and bj=bjmz TO yyfsx2
COUNT FOR 英语>=66 and bj=bjmz TO yyfsx

COUNT FOR 物理>=67 and bj=bjmz TO wlfsx1
COUNT FOR 物理>=38 AND 物理<67 and bj=bjmz TO wlfsx2
COUNT FOR 物理>=38 and bj=bjmz TO wlfsx

COUNT FOR 化学>=73 and bj=bjmz TO hxfsx1
COUNT FOR 化学>=48 AND 化学<73 and bj=bjmz TO hxfsx2
COUNT FOR 化学>=48 and bj=bjmz TO hxfsx

COUNT FOR 生物>=71 and bj=bjmz TO swfsx1
COUNT FOR 生物>=49 AND 生物<71 and bj=bjmz TO swfsx2
COUNT FOR 生物>=49 and bj=bjmz TO swfsx


COUNT FOR 总分>=487 and bj=bjmz TO zffsx1
COUNT FOR 总分>=359 AND 总分<487 and bj=bjmz TO zffsx2
COUNT FOR 总分>=359 and bj=bjmz TO zffsx

use fsx

repl 语文 with ywfsx for bj=bjmz
repl 语文1 with ywfsx1 for bj=bjmz
repl 语文2 with ywfsx2 for bj=bjmz


repl 数学 with sxfsx for bj=bjmz
repl 数学1 with sxfsx1 for bj=bjmz
repl 数学2 with sxfsx2 for bj=bjmz


repl 英语 with yyfsx for bj=bjmz
repl 英语1 with yyfsx1 for bj=bjmz
repl 英语2 with yyfsx2 for bj=bjmz


repl 物理 with wlfsx for bj=bjmz
repl 物理1 with wlfsx1 for bj=bjmz
repl 物理2 with wlfsx2 for bj=bjmz


repl 化学 with hxfsx for bj=bjmz
repl 化学1 with hxfsx1 for bj=bjmz
repl 化学2 with hxfsx2 for bj=bjmz


repl 生物 with swfsx for bj=bjmz
repl 生物1 with swfsx1 for bj=bjmz
repl 生物2 with swfsx2 for bj=bjmz


repl 总分 with zffsx for bj=bjmz
repl 总分1 with zffsx1 for bj=bjmz
repl 总分2 with zffsx2 for bj=bjmz

do 上线入库
搜索更多相关主题的帖子: with　总分　FOR　COUNT　and　
2020-01-19 17:08
分号
Rank: 1
等　级：新手上路
帖　子：156
专家分：0
注　册：2006-12-4
第 2 楼
收藏
 得分:0 
能否有简便方法？求教大神。
2020-01-19 17:09
分号
Rank: 1
等　级：新手上路
帖　子：156
专家分：0
注　册：2006-12-4
第 3 楼
收藏
 得分:0 
一二本各科人数
2020-01-20 09:07
分号
Rank: 1
等　级：新手上路
帖　子：156
专家分：0
注　册：2006-12-4
第 4 楼
收藏
 得分:0 
回复 3楼 xuminxz
就是 xls 文件里面的。一二本线，各科的。想统计出各班各部的。
2020-01-20 09:10
分号
Rank: 1
等　级：新手上路
帖　子：156
专家分：0
注　册：2006-12-4
第 5 楼
收藏
 得分:0 
bjs 就是班级。四位的。
 bj 我加了一个。
我在上传一个。
理科.rar (167.1 KB)

不好意思啊。麻烦老师了。
2020-01-20 21:57
分号
Rank: 1
等　级：新手上路
帖　子：156
专家分：0
注　册：2006-12-4
第 6 楼
收藏
 得分:0 
我已经测试了。
2020-01-21 21:32
分号
Rank: 1
等　级：新手上路
帖　子：156
专家分：0
注　册：2006-12-4
第 7 楼
收藏
 得分:0 
select bj,count(语文) as 语文一本 from 理科 where 语文 >= 100 group by bj INTO dbf yw1b
select bj,count(语文) as 语文二本 from 理科 where 语文 >= 80 and 语文<100 group by bj INTO dbf yw2b
select bj,count(语文) as 语文本科 from 理科 where 语文 >= 80 group by bj INTO dbf ywbk

貌似输出很多库。然后在合并？很笨吧。
2020-01-21 23:12
分号
Rank: 1
等　级：新手上路
帖　子：156
专家分：0
注　册：2006-12-4
第 8 楼
收藏
 得分:0 
弄了个四不像。。。
也算弄出来了，谢谢各位老大。

图片附件: 游客没有浏览图片的权限，请 登录 或 注册



[此贴子已经被作者于2020-1-22 01:10编辑过]

2020-01-22 01:07
分号
Rank: 1
等　级：新手上路
帖　子：156
专家分：0
注　册：2006-12-4
第 9 楼
收藏
 得分:0 
真不好意思，我原来的BM 弄得乱。
程序代码：
repl all  bm with "英才" for bj="01"
repl all  bm with "英才" for bj="02"
repl all  bm with "英才" for bj="03"
repl all  bm with "英才" for bj="04"
repl all  bm with "英才" for bj="05"
repl all  bm with "1部" for bj="06"
repl all  bm with "1部" for bj="07"
repl all  bm with "1部" for bj="08"
repl all  bm with "1部" for bj="09"
repl all  bm with "1部" for bj="10"
repl all  bm with "1部" for bj="11"
repl all  bm with "1部" for bj="12"
repl all  bm with "1部" for bj="13"
repl all  bm with "1部" for bj="14"
repl all  bm with "1部" for bj="15"
repl all  bm with "1部" for bj="16"
repl all  bm with "1部" for bj="17"
repl all  bm with "1部" for bj="18"
repl all  bm with "1部" for bj="19"
repl all  bm with "2部" for bj="20"
repl all  bm with "2部" for bj="21"
repl all  bm with "2部" for bj="22"
repl all  bm with "2部" for bj="23"
repl all  bm with "2部" for bj="24"
repl all  bm with "2部" for bj="25"
repl all  bm with "2部" for bj="26"
repl all  bm with "2部" for bj="27"
repl all  bm with "2部" for bj="28"
repl all  bm with "2部" for bj="29"
repl all  bm with "2部" for bj="30"
repl all  bm with "2部" for bj="31"
repl all  bm with "2部" for bj="32"
repl all  bm with "2部" for bj="33"
repl all  bm with "3部" for bj="34"
repl all  bm with "3部" for bj="35"
repl all  bm with "3部" for bj="36"
repl all  bm with "3部" for bj="37"
repl all  bm with "3部" for bj="38"
repl all  bm with "3部" for bj="39"
repl all  bm with "3部" for bj="40"
repl all  bm with "3部" for bj="41"
repl all  bm with "3部" for bj="42"
repl all  bm with "3部" for bj="43"
repl all  bm with "3部" for bj="44"
repl all  bm with "3部" for bj="45"
repl all  bm with "3部" for bj="46"
repl all  bm with "3部" for bj="47"
2020-01-22 09:33
分号
Rank: 1
等　级：新手上路
帖　子：156
专家分：0
注　册：2006-12-4
第 10 楼
收藏
 得分:0 
具体代码是：

程序代码：
set talk off
clear all
CLEAR
SET DELETED on

*设定分数线
yw1b=100
yw2b=88
sx1b=93
sx2b=60
yy1b=101
yy2b=66
wl1b=67
wl2b=38
hx1b=73
hx2b=48
sw1b=71
sw2b=49
zf1b=487
zf2b=356


*设定班级对应部
USE 理科

repl all  bm with "英才" for bj="01"
repl all  bm with "英才" for bj="02"
repl all  bm with "英才" for bj="03"
repl all  bm with "英才" for bj="04"
repl all  bm with "英才" for bj="05"
repl all  bm with "1部" for bj="06"
repl all  bm with "1部" for bj="07"
repl all  bm with "1部" for bj="08"
repl all  bm with "1部" for bj="09"
repl all  bm with "1部" for bj="10"
repl all  bm with "1部" for bj="11"
repl all  bm with "1部" for bj="12"
repl all  bm with "1部" for bj="13"
repl all  bm with "1部" for bj="14"
repl all  bm with "1部" for bj="15"
repl all  bm with "1部" for bj="16"
repl all  bm with "1部" for bj="17"
repl all  bm with "1部" for bj="18"
repl all  bm with "1部" for bj="19"
repl all  bm with "2部" for bj="20"
repl all  bm with "2部" for bj="21"
repl all  bm with "2部" for bj="22"
repl all  bm with "2部" for bj="23"
repl all  bm with "2部" for bj="24"
repl all  bm with "2部" for bj="25"
repl all  bm with "2部" for bj="26"
repl all  bm with "2部" for bj="27"
repl all  bm with "2部" for bj="28"
repl all  bm with "2部" for bj="29"
repl all  bm with "2部" for bj="30"
repl all  bm with "2部" for bj="31"
repl all  bm with "2部" for bj="32"
repl all  bm with "2部" for bj="33"
repl all  bm with "3部" for bj="34"
repl all  bm with "3部" for bj="35"
repl all  bm with "3部" for bj="36"
repl all  bm with "3部" for bj="37"
repl all  bm with "3部" for bj="38"
repl all  bm with "3部" for bj="39"
repl all  bm with "3部" for bj="40"
repl all  bm with "3部" for bj="41"
repl all  bm with "3部" for bj="42"
repl all  bm with "3部" for bj="43"
repl all  bm with "3部" for bj="44"
repl all  bm with "3部" for bj="45"
repl all  bm with "3部" for bj="46"
repl all  bm with "3部" for bj="47"



*建统计库


select bj from 理科 group by bj INTO dbf tj
ALTER table tj ADD bm c(4)
ALTER table tj ADD 语文一本 n(6)
ALTER table tj ADD 语文二本 n(6)
ALTER table tj ADD 语文本科 n(6)
ALTER table tj ADD 数学一本 n(6)
ALTER table tj ADD 数学二本 n(6)
ALTER table tj ADD 数学本科 n(6)
ALTER table tj ADD 英语一本 n(6)
ALTER table tj ADD 英语二本 n(6)
ALTER table tj ADD 英语本科 n(6)
ALTER table tj ADD 物理一本 n(6)
ALTER table tj ADD 物理二本 n(6)
ALTER table tj ADD 物理本科 n(6)
ALTER table tj ADD 化学一本 n(6)
ALTER table tj ADD 化学二本 n(6)
ALTER table tj ADD 化学本科 n(6)
ALTER table tj ADD 生物一本 n(6)
ALTER table tj ADD 生物二本 n(6)
ALTER table tj ADD 生物本科 n(6)
ALTER table tj ADD 总分一本 n(6)
ALTER table tj ADD 总分二本 n(6)
ALTER table tj ADD 总分本科 n(6)

CLOSE TABLES

SELECT 2  
USE 理科 
INDEX ON bj TAG bj
SET ORDER TO TAG bj 
SELECT 1   
USE   tj  
SET RELATION TO bj INTO 2 
REPLACE ALL bm WITH b->bm
appe blank 
REPLACE bm WITH "英才" 
appe blank 
REPLACE bm WITH "1部" 
appe blank 
REPLACE bm WITH "2部"
appe blank 
REPLACE bm WITH "3部"
appe blank 
REPLACE bm WITH "总计"
CLOSE TABLES
stor 0 to nrs

sele 1
use 理科
sele 2
use tj
GO top
do while .not.eof()
    xdm=bj
    xbm=bm
    n=RECNO()
    sele 1
    COUNT for bj=xdm to nrs
    COUNT for 语文>=yw1b .and. bj=xdm to yw1
    COUNT for 语文>=yw2b .and. 语文<yw1b .and. bj=xdm to yw2
    COUNT for 语文>=yw2b .and. bj=xdm to yw3    
    
        COUNT for 数学>=sx1b .and. bj=xdm to sx1
    COUNT for 数学>=sx2b .and. 数学<sx1b .and. bj=xdm to sx2
    COUNT for 数学>=sx2b .and. bj=xdm to sx3    
        COUNT for 英语>=yy1b .and. bj=xdm to yy1
    COUNT for 英语>=yy2b .and. 英语<yy1b .and. bj=xdm to yy2
    COUNT for 英语>=yy2b .and. bj=xdm to yy3    
        COUNT for 物理>=wl1b .and. bj=xdm to wl1
    COUNT for 物理>=wl2b .and. 物理<wl1b .and. bj=xdm to wl2
    COUNT for 物理>=wl2b .and. bj=xdm to wl3    
        COUNT for 化学>=hx1b .and. bj=xdm to hx1
    COUNT for 化学>=hx2b .and. 化学<hx1b .and. bj=xdm to hx2
    COUNT for 化学>=hx2b .and. bj=xdm to hx3    
        COUNT for 生物>=sw1b .and. bj=xdm to sw1
    COUNT for 生物>=sw2b .and. 生物<sw1b .and. bj=xdm to sw2
    COUNT for 生物>=sw2b .and. bj=xdm to sw3    
        COUNT for 总分>=zf1b .and. bj=xdm to zf1
    COUNT for 总分>=zf2b .and. 总分<zf1b .and. bj=xdm to zf2
    COUNT for 总分>=zf2b .and. bj=xdm to zf3    
    
    
    SELECT 2
    GO n
    REPLACE 语文一本 with yw1,语文二本 with yw2,语文本科 with yw3
        REPLACE 数学一本 with sx1,数学二本 with sx2,数学本科 with sx3
            REPLACE 英语一本 with yy1,英语二本 with yy2,英语本科 with yy3
                REPLACE 物理一本 with wl1,物理二本 with wl2,物理本科 with wl3
                    REPLACE 化学一本 with hx1,化学二本 with hx2,化学本科 with hx3
                        REPLACE 生物一本 with sw1,生物二本 with sw2,生物本科 with sw3
                            REPLACE 总分一本 with zf1,总分二本 with zf2,总分本科 with zf3
    SKIP
ENDDO

SELECT 1


    COUNT for 语文>=yw1b .and. bm="1部" to ywb1
    COUNT for 语文>=yw2b .and. 语文<yw1b .and. bm="1部" to ywb2
    COUNT for 语文>=yw2b .and. bm="1部" to ywb3    
    
        COUNT for 数学>=sx1b .and. bm="1部" to sxb1
    COUNT for 数学>=sx2b .and. 数学<sx1b .and. bm="1部" to sxb2
    COUNT for 数学>=sx2b .and. bm="1部" to sxb3    
        COUNT for 英语>=yy1b .and. bm="1部" to yyb1
    COUNT for 英语>=yy2b .and. 英语<yy1b .and. bm="1部" to yyb2
    COUNT for 英语>=yy2b .and. bm="1部" to yyb3    
        COUNT for 物理>=wl1b .and. bm="1部" to wlb1
    COUNT for 物理>=wl2b .and. 物理<wl1b .and. bm="1部" to wlb2
    COUNT for 物理>=wl2b .and. bm="1部" to wlb3    
        COUNT for 化学>=hx1b .and. bm="1部" to hxb1
    COUNT for 化学>=hx2b .and. 化学<hx1b .and. bm="1部" to hxb2
    COUNT for 化学>=hx2b .and. bm="1部" to hxb3    
        COUNT for 生物>=sw1b .and. bm="1部" to swb1
    COUNT for 生物>=sw2b .and. 生物<sw1b .and. bm="1部" to swb2
    COUNT for 生物>=sw2b .and. bm="1部" to swb3    
        COUNT for 总分>=zf1b .and. bm="1部" to zfb1
    COUNT for 总分>=zf2b .and. 总分<zf1b .and. bm="1部" to zfb2
    COUNT for 总分>=zf2b .and. bm="1部" to zfb3    
        
    SELECT 2
    GO bott
    SKIP -3
    
    REPLACE 语文一本 with ywb1,语文二本 with ywb2,语文本科 with ywb3
        REPLACE 数学一本 with sxb1,数学二本 with sxb2,数学本科 with sxb3
            REPLACE 英语一本 with yyb1,英语二本 with yyb2,英语本科 with yyb3
                REPLACE 物理一本 with wlb1,物理二本 with wlb2,物理本科 with wlb3
                    REPLACE 化学一本 with hxb1,化学二本 with hxb2,化学本科 with hxb3
                        REPLACE 生物一本 with swb1,生物二本 with swb2,生物本科 with swb3
                            REPLACE 总分一本 with zfb1,总分二本 with zfb2,总分本科 with zfb3
                            
                    SELECT 1


    COUNT for 语文>=yw1b .and. bm="2部" to ywb1
    COUNT for 语文>=yw2b .and. 语文<yw1b .and. bm="2部" to ywb2
    COUNT for 语文>=yw2b .and. bm="2部" to ywb3    
    
        COUNT for 数学>=sx1b .and. bm="2部" to sxb1
    COUNT for 数学>=sx2b .and. 数学<sx1b .and. bm="2部" to sxb2
    COUNT for 数学>=sx2b .and. bm="2部" to sxb3    
        COUNT for 英语>=yy1b .and. bm="2部" to yyb1
    COUNT for 英语>=yy2b .and. 英语<yy1b .and. bm="2部" to yyb2
    COUNT for 英语>=yy2b .and. bm="2部" to yyb3    
        COUNT for 物理>=wl1b .and. bm="2部" to wlb1
    COUNT for 物理>=wl2b .and. 物理<wl1b .and. bm="2部" to wlb2
    COUNT for 物理>=wl2b .and. bm="2部" to wlb3    
        COUNT for 化学>=hx1b .and. bm="2部" to hxb1
    COUNT for 化学>=hx2b .and. 化学<hx1b .and. bm="2部" to hxb2
    COUNT for 化学>=hx2b .and. bm="2部" to hxb3    
        COUNT for 生物>=sw1b .and. bm="2部" to swb1
    COUNT for 生物>=sw2b .and. 生物<sw1b .and. bm="2部" to swb2
    COUNT for 生物>=sw2b .and. bm="2部" to swb3    
        COUNT for 总分>=zf1b .and. bm="2部" to zfb1
    COUNT for 总分>=zf2b .and. 总分<zf1b .and. bm="2部" to zfb2
    COUNT for 总分>=zf2b .and. bm="2部" to zfb3    
        
    SELECT 2
    GO bott
    SKIP -2
    
    REPLACE 语文一本 with ywb1,语文二本 with ywb2,语文本科 with ywb3
        REPLACE 数学一本 with sxb1,数学二本 with sxb2,数学本科 with sxb3
            REPLACE 英语一本 with yyb1,英语二本 with yyb2,英语本科 with yyb3
                REPLACE 物理一本 with wlb1,物理二本 with wlb2,物理本科 with wlb3
                    REPLACE 化学一本 with hxb1,化学二本 with hxb2,化学本科 with hxb3
                        REPLACE 生物一本 with swb1,生物二本 with swb2,生物本科 with swb3
                            REPLACE 总分一本 with zfb1,总分二本 with zfb2,总分本科 with zfb3
                            
                                SELECT 1

    COUNT for 语文>=yw1b .and. bm="3部" to ywb1
    COUNT for 语文>=yw2b .and. 语文<yw1b .and. bm="3部" to ywb2
    COUNT for 语文>=yw2b .and. bm="3部" to ywb3    
    
        COUNT for 数学>=sx1b .and. bm="3部" to sxb1
    COUNT for 数学>=sx2b .and. 数学<sx1b .and. bm="3部" to sxb2
    COUNT for 数学>=sx2b .and. bm="3部" to sxb3    
        COUNT for 英语>=yy1b .and. bm="3部" to yyb1
    COUNT for 英语>=yy2b .and. 英语<yy1b .and. bm="3部" to yyb2
    COUNT for 英语>=yy2b .and. bm="3部" to yyb3    
        COUNT for 物理>=wl1b .and. bm="3部" to wlb1
    COUNT for 物理>=wl2b .and. 物理<wl1b .and. bm="3部" to wlb2
    COUNT for 物理>=wl2b .and. bm="3部" to wlb3    
        COUNT for 化学>=hx1b .and. bm="3部" to hxb1
    COUNT for 化学>=hx2b .and. 化学<hx1b .and. bm="3部" to hxb2
    COUNT for 化学>=hx2b .and. bm="3部" to hxb3    
        COUNT for 生物>=sw1b .and. bm="3部" to swb1
    COUNT for 生物>=sw2b .and. 生物<sw1b .and. bm="3部" to swb2
    COUNT for 生物>=sw2b .and. bm="3部" to swb3    
        COUNT for 总分>=zf1b .and. bm="3部" to zfb1
    COUNT for 总分>=zf2b .and. 总分<zf1b .and. bm="3部" to zfb2
    COUNT for 总分>=zf2b .and. bm="3部" to zfb3    
        
    SELECT 2
    GO bott
        SKIP -1
    REPLACE 语文一本 with ywb1,语文二本 with ywb2,语文本科 with ywb3
        REPLACE 数学一本 with sxb1,数学二本 with sxb2,数学本科 with sxb3
            REPLACE 英语一本 with yyb1,英语二本 with yyb2,英语本科 with yyb3
                REPLACE 物理一本 with wlb1,物理二本 with wlb2,物理本科 with wlb3
                    REPLACE 化学一本 with hxb1,化学二本 with hxb2,化学本科 with hxb3
                        REPLACE 生物一本 with swb1,生物二本 with swb2,生物本科 with swb3
                            REPLACE 总分一本 with zfb1,总分二本 with zfb2,总分本科 with zfb3
                            
                            SELECT 1

    COUNT for 语文>=yw1b .and. bm="英才" to ywb1
    COUNT for 语文>=yw2b .and. 语文<yw1b .and. bm="英才" to ywb2
    COUNT for 语文>=yw2b .and. bm="英才" to ywb3    
    
        COUNT for 数学>=sx1b .and. bm="英才" to sxb1
    COUNT for 数学>=sx2b .and. 数学<sx1b .and. bm="英才" to sxb2
    COUNT for 数学>=sx2b .and. bm="英才" to sxb3    
        COUNT for 英语>=yy1b .and. bm="英才" to yyb1
    COUNT for 英语>=yy2b .and. 英语<yy1b .and. bm="英才" to yyb2
    COUNT for 英语>=yy2b .and. bm="英才" to yyb3    
        COUNT for 物理>=wl1b .and. bm="英才" to wlb1
    COUNT for 物理>=wl2b .and. 物理<wl1b .and. bm="英才" to wlb2
    COUNT for 物理>=wl2b .and. bm="英才" to wlb3    
        COUNT for 化学>=hx1b .and. bm="英才" to hxb1
    COUNT for 化学>=hx2b .and. 化学<hx1b .and. bm="英才" to hxb2
    COUNT for 化学>=hx2b .and. bm="英才" to hxb3    
        COUNT for 生物>=sw1b .and. bm="英才" to swb1
    COUNT for 生物>=sw2b .and. 生物<sw1b .and. bm="英才" to swb2
    COUNT for 生物>=sw2b .and. bm="英才" to swb3    
        COUNT for 总分>=zf1b .and. bm="英才" to zfb1
    COUNT for 总分>=zf2b .and. 总分<zf1b .and. bm="英才" to zfb2
    COUNT for 总分>=zf2b .and. bm="英才" to zfb3    
        
    SELECT 2
    GO bott
    SKIP -4
    
    REPLACE 语文一本 with ywb1,语文二本 with ywb2,语文本科 with ywb3
        REPLACE 数学一本 with sxb1,数学二本 with sxb2,数学本科 with sxb3
            REPLACE 英语一本 with yyb1,英语二本 with yyb2,英语本科 with yyb3
                REPLACE 物理一本 with wlb1,物理二本 with wlb2,物理本科 with wlb3
                    REPLACE 化学一本 with hxb1,化学二本 with hxb2,化学本科 with hxb3
                        REPLACE 生物一本 with swb1,生物二本 with swb2,生物本科 with swb3
                            REPLACE 总分一本 with zfb1,总分二本 with zfb2,总分本科 with zfb3
                            
                    
                            SELECT 1

    COUNT for 语文>=yw1b to ywb1
    COUNT for 语文>=yw2b .and. 语文<yw1b to ywb2
    COUNT for 语文>=yw2b to ywb3    
    
        COUNT for 数学>=sx1b to sxb1
    COUNT for 数学>=sx2b .and. 数学<sx1b to sxb2
    COUNT for 数学>=sx2b to sxb3    
        COUNT for 英语>=yy1b to yyb1
    COUNT for 英语>=yy2b .and. 英语<yy1b to yyb2
    COUNT for 英语>=yy2b to yyb3    
        COUNT for 物理>=wl1b to wlb1
    COUNT for 物理>=wl2b .and. 物理<wl1b to wlb2
    COUNT for 物理>=wl2b to wlb3    
        COUNT for 化学>=hx1b to hxb1
    COUNT for 化学>=hx2b .and. 化学<hx1b to hxb2
    COUNT for 化学>=hx2b to hxb3    
        COUNT for 生物>=sw1b to swb1
    COUNT for 生物>=sw2b .and. 生物<sw1b to swb2
    COUNT for 生物>=sw2b to swb3    
        COUNT for 总分>=zf1b to zfb1
    COUNT for 总分>=zf2b .and. 总分<zf1b to zfb2
    COUNT for 总分>=zf2b to zfb3    
        
    SELECT 2
    GO bott
    
    REPLACE 语文一本 with ywb1,语文二本 with ywb2,语文本科 with ywb3
        REPLACE 数学一本 with sxb1,数学二本 with sxb2,数学本科 with sxb3
            REPLACE 英语一本 with yyb1,英语二本 with yyb2,英语本科 with yyb3
                REPLACE 物理一本 with wlb1,物理二本 with wlb2,物理本科 with wlb3
                    REPLACE 化学一本 with hxb1,化学二本 with hxb2,化学本科 with hxb3
                        REPLACE 生物一本 with swb1,生物二本 with swb2,生物本科 with swb3
                            REPLACE 总分一本 with zfb1,总分二本 with zfb2,总分本科 with zfb3
                    CLOSE TABLES
MESSAGEBOX("计算成功！")
2020-01-22 09:39
快速回复：统计分数线上线求助：统计出按照分数段各科及总分各班各部上线人数。
数据加载中...
 
　　　



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有，并保留所有权利。
Powered by Discuz, Processed in 0.039856 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved