分数段的统计

作者在 2019-07-02 23:25:01 发布以下内容
CLOSE DATABASES ALL 
USE hz1 IN 0
nRecc=RECCOUNT()
CALCULATE Max(bj) TO nMax
CREATE CURSOR tt (bj c(2),lb c(20),rs n(4))
cField="班级 c(2)"
FOR i=1 TO INT(0.85/0.05) STEP 2
    SELECT Hz1
    CALCULATE MIN(Smzf) TO nMin FOR Smzfjm<=nRecc*0.05*i
    cField=cField+","+"F"+TRANSFORM(INT(nMin))+"分以上"+" n(4)"
    INSERT INTO tt ;
    SELECT PADL(bj,2,"0"),"F"+TRANSFORM(INT(nMin))+"以上" ,;
        SUM(IIF(smzfjm<=INT(nRecc*0.05*i),1,0)) ; 
        FROM hz1 GROUP BY bj
ENDFOR
CREATE CURSOR ttt (&cField)
SELECT rs FROM tt ORDER BY bj INTO ARRAY Array_Rs
DIMENSION Array_Rs[ALEN(Array_Rs,1)+nMax,1]
FOR i=1 TO nMax
    Num_ber=(i-1)*10+1
    =AINS(Array_Rs,Num_ber)
    Array_Rs[Num_ber,1]=PADL(i,2,"0")
ENDFOR
DIMENSION Array_Rs[nMax,FCOUNT("ttt")]
INSERT INTO ttt FROM ARRAY Array_Rs
SELECT ttt
BROWSE 
默认分类 | 阅读 1044 次
文章评论,共0条
游客请输入验证码
浏览4996次
文章分类
最新评论