| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1538 人关注过本帖
标题:求助:如何改善这个程序?原来的太长了,小女子我怕啊。
只看楼主 加入收藏
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
结帖率:100%
收藏
已结贴  问题点数:50 回复次数:21 
求助:如何改善这个程序?原来的太长了,小女子我怕啊。
    0—9共10个数字,把这10个数字按组合方式进行罗列共有:10!/5!*5!=120 种情形。0—9这10个数字中(0代表10)如果哪个数字出现了,就在哪个数字的相应格里递增(这个问题已解决),然后在含有“出”字的相应的含有该数字的字段里递增,我编了一个程序如下,但它太冗长了,而且每一个程序最多只能是5000多行,需要很多个程序才能完成从0--9的递增生成,很低级。求大师帮我改善啊。部分截图、原始数据库表,如下:
图片附件: 游客没有浏览图片的权限,请 登录注册



01表.zip (2.16 KB)


我的程序思路如下:

use 01表
go bott
if 一>0

go bott
skip -1
stor 出123 to A1
go bott
repl next 1出123 to A1+1

go bott
skip -1
stor 出124 to A1
go bott
repl next 1出124 to A1+1

go bott
skip -1
stor 出125 to A1
go bott
repl next 1出125 to A1+1
......(按此思路, “出”字段中含有“1”的所有字段都走一遍递增生成,因篇幅有限,这里不全部显示,只列举思路)
......
go bott
skip -1
stor 出189 to A1
go bott
repl next 1出189 to A1+1

go bott
skip -1
stor 出180 to A1
go bott
repl next 1出180 to A1+1

go bott
skip -1
stor 出190 to A1
go bott
repl next 1出190 to A1+1
endif

use 01表
go bott
if 二>0
..........   (同样道理,按此思路,“出”字段中含有“2”的所有字段都走一遍递增生成,因篇幅有限,这里不全部显示,只列举思路)
Endif
......
use 01表
go bott
if 十>0

go bott
skip -1
stor 出120 to A1
go bott
repl next 1出120 to A1+1
......
go bott
skip -1
stor 出890 to A1
go bott
repl next 1出890 to A1+1
endif
搜索更多相关主题的帖子: 数据库表 小女子 如何 而且 
2014-02-13 15:50
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
收藏
得分:0 
对不起!
“repl next 1出”应为:“repl next 1 出”
2014-02-13 15:52
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2202
专家分:3862
注 册:2007-4-27
收藏
得分:20 
这是在研究彩票?

只求每天有一丁点儿的进步就可以了
2014-02-13 16:28
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
看8懂哎
2014-02-13 16:42
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
收藏
得分:0 
    哇,3楼厉害,这的确是彩票研究,我阿姨开了一间体育彩票店(我平时帮她看铺),她见我参加电脑培训班,要求我帮她研究七星彩的走势规律,从而淘汰部分数字,以供客人参考。上述编程就是按她要求做的,但不理想,程序太长了。        

     对4楼的解释与补充说明:“就在哪个数字的相应格里递增”,即是递增数值(次数)。例如,数字“3”出现一次,就在“三”的最后一行相应位置显示1(如果倒数第二行相应位置原来是0即空白,那么最后一行显示1;如果倒数第二行相应位置原来是1,那么最后一行显示2;如果倒数第二行相应位置原来是2,那么最后一行显示3......),并且完成在含有“出”字的相应的含有该数字的字段里递增数值(次数)。在下一期彩票开奖中(每开一期彩票,用程序对“01表”增一行),如果数字“3”接着再次出现,就在“三”的最后一行相应位置显示递增的数值(次数),(如果倒数第二行相应位置原来是1,那么最后一行显示2;如果倒数第二行相应位置原来是2,那么最后一行显示3......),并且完成在含有“出”字的相应的含有该数字的字段里递增数值(次数)。
2014-02-13 17:06
whinda
Rank: 6Rank: 6
等 级:贵宾
威 望:13
帖 子:253
专家分:418
注 册:2012-2-4
收藏
得分:0 
不诚实。你玩的是七星彩吗。3D吧。还组选?!把思路理好先。说的一点都不清楚。
你是要统计出现的频度、热号分析、排除组合、追冷?你没说明白。
2014-02-13 18:11
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
收藏
得分:0 
应该是统计出现的频度吧。

我的问题表达的应该比较清晰呀,不明白哪个字句,或者思路?
2014-02-14 08:51
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9813
专家分:27037
注 册:2012-2-5
收藏
得分:10 
没有原始数据如何统计

坚守VFP最后的阵地
2014-02-15 10:29
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9813
专家分:27037
注 册:2012-2-5
收藏
得分:0 
以下是引用whinda在2014-2-13 18:11:53的发言:

不诚实。你玩的是七星彩吗。3D吧。还组选?!把思路理好先。说的一点都不清楚。
你是要统计出现的频度、热号分析、排除组合、追冷?你没说明白。
体彩有3D?

坚守VFP最后的阵地
2014-02-15 10:30
qingfameng
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:35
帖 子:964
专家分:3019
注 册:2010-2-6
收藏
得分:20 
施舍救助有福报。侥幸获银必上当。
2014-02-15 22:23
快速回复:求助:如何改善这个程序?原来的太长了,小女子我怕啊。
数据加载中...
 
   



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

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