求助:如何改善这个程序?原来的太长了,小女子我怕啊。
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