| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 5108 人关注过本帖
标题:初学者的困惑(分数段的统计)
只看楼主 加入收藏
z220501043z
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2018-9-2
收藏
得分:0 
回复 20楼 sdta
好像不行 出错啊
2018-09-03 13:49
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9806
专家分:26967
注 册:2012-2-5
收藏
得分:0 
use hz1
CALCULATE MIN(smzf) TO x FOR smzfjm<=INT(626*0.05)
?x

坚守VFP最后的阵地
2018-09-03 13:52
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9806
专家分:26967
注 册:2012-2-5
收藏
得分:0 
你代码如何写的

坚守VFP最后的阵地
2018-09-03 13:52
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9806
专家分:26967
注 册:2012-2-5
收藏
得分:0 
fd1=337.71
SELECT bj  as 人数,sum(iif(smzfjm<=INT(626*0.05),1,0)) as ("F"+transform(int(FD1))+"以上") from hz1 GROUP BY bj
图片附件: 游客没有浏览图片的权限,请 登录注册

坚守VFP最后的阵地
2018-09-03 14:03
z220501043z
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2018-9-2
收藏
得分:0 
回复 24楼 sdta
谢谢了 少了一对括号
2018-09-03 14:04
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9806
专家分:26967
注 册:2012-2-5
收藏
得分:0 
回复 25楼 z220501043z
括号是我后加的
你那种代码运行效率不高,只能算出一个指标。

坚守VFP最后的阵地
2018-09-03 14:08
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9806
专家分:26967
注 册:2012-2-5
收藏
得分:0 
百分比有几个段:
0.05,0.1,。。。。。。。后面都是多少

坚守VFP最后的阵地
2018-09-03 14:15
z220501043z
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2018-9-2
收藏
得分:0 
回复 27楼 sdta
是0.05 0.15 0.25 到0.85
2018-09-03 14:29
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9806
专家分:26967
注 册:2012-2-5
收藏
得分:0 
VFP9 代码
程序代码:
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 tt
FOR i=1 TO nMax
    LOCAL aa[10,1]
    COPY TO ARRAY aa FIELDS rs FOR bj==PADL(i,2,"0")
    =AINS(aa,1)
    aa[1,1]=PADL(i,2,"0")
    DIMENSION aa[1,ALEN(aa,1)]
    INSERT INTO ttt FROM ARRAY aa
    RELEASE aa 
ENDFOR 
SELECT ttt
BROWSE 

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

坚守VFP最后的阵地
2018-09-03 17:17
z220501043z
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2018-9-2
收藏
得分:0 
回复 29楼 sdta
谢谢你 大神
2018-09-03 22:07
快速回复:初学者的困惑(分数段的统计)
数据加载中...
 
   



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

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