标题:求助:如何改善这个程序?原来的太长了,小女子我怕啊。
取消只看楼主
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
结帖率:100%
已结贴  问题点数:50 回复次数:7 
求助:如何改善这个程序?原来的太长了,小女子我怕啊。
    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
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
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
得分:0 
应该是统计出现的频度吧。

我的问题表达的应该比较清晰呀,不明白哪个字句,或者思路?
2014-02-14 08:51
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
得分:0 
没有人帮,自己又不懂简化,难啊。
2014-02-17 10:15
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
得分:0 
看来没人明白我的心,
2014-02-19 20:41
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
得分:0 
非常感谢ktliaobo,我今天才看到您给我的回帖,谢谢您对我的帮助。
2014-02-27 08:30
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
得分:0 
回复 16楼 ktliaobo
啊,有不完善的地方:从第11列到130列,符合条件的每一列最后一个数值递增应是在该列倒数第二行的基础上递增,而不是该列的所有累积递增。比如说:最后一行的“一”>0;第11列“出123”的倒数第二行是1,那么第11列“出123”的最后第一行应是2;如果第11列“出123”的倒数第二行是6,那么第11列“出123”的最后第一行应是7;第11列“出123”的倒数第二行是空白,那么第11列“出123”的最后第一行应是1。

我只会提问题,却解决不了问题,我是不是很笨?麻烦您再帮帮我。
2014-02-27 12:30



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-427268-1-1.html




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

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