7,763
社区成员
发帖
与我相关
我的任务
分享100分救好的算法！
就是彩票的22选5啦。
1到22，5个数字为一组，5个数字相互不重复，共有26334种组合。现在，我想把这26334种组合存到一个txt文件中，一组一行排列。救一个速度最快的算法！各位高手大侠们该出手时就出手，风风火火抱分回家！：）
1到22，5个数字为一组，5个数字相互不重复，共有26334种组合。现在，我想把这26334种组合存到一个txt文件中，一组一行排列。救一个速度最快的算法！各位高手大侠们该出手时就出手，风风火火抱分回家！：）
...全文
请发表友善的回复…
发表回复
inter913 2003-02-28
- 打赏
- 举报
思路我知道，我就是这种思路了，但是这种算法的话在ＶＢ下１０分钟运行完，在Ｃ＃下只要４０多秒，但是Ｃ＃下面一些常规的功能实现需要很大的代码量。ＶＢ速度快。
jintianatxd 2003-02-28
- 打赏
- 举报
这就是vb & c 的区别,vb运行较慢,所以涉及大量运算的 c 是首选.
龙华 2003-02-26
- 打赏
- 举报
不要用文本文件。出错几率太大。
inter913 2003-02-26
- 打赏
- 举报
up
jintianatxd 2003-02-26
- 打赏
- 举报
for a=22 to 5 step -1
for b=a-1 to 4 step -1
for c=b-1 to 3 step -1
for d =c-1 to 2 step -1
for e =d-1 to 1 step -1
put file_num ,, a & b & c &d &e & vbcrlf
next e
next d
next c
next b
next a
思路是这样,具体要改一改.
for b=a-1 to 4 step -1
for c=b-1 to 3 step -1
for d =c-1 to 2 step -1
for e =d-1 to 1 step -1
put file_num ,, a & b & c &d &e & vbcrlf
next e
next d
next c
next b
next a
思路是这样,具体要改一改.
vabug 2003-02-26
- 打赏
- 举报
记事本文件根本就不能存那么多数据
用户 昵称 2003-02-25
- 打赏
- 举报
还是数据库快。
northwolves 2003-02-25
- 打赏
- 举报
超级笨办法：
Sub add5of22()
Dim a, b, c, d, e
For a = 1 To 18
For b = a + 1 To 19
For c = b + 1 To 20
For d = c + 1 To 21
For e = d + 1 To 22
List1.AddItem a & "," & b & "," & c & "," & d & "," & e
Next
Next
Next
Next
Next
MsgBox List1.ListCount
End Sub
Sub add5of22()
Dim a, b, c, d, e
For a = 1 To 18
For b = a + 1 To 19
For c = b + 1 To 20
For d = c + 1 To 21
For e = d + 1 To 22
List1.AddItem a & "," & b & "," & c & "," & d & "," & e
Next
Next
Next
Next
Next
MsgBox List1.ListCount
End Sub
超级大笨狼 2003-02-25
- 打赏
- 举报
速度快！ado+accsess
超级大笨狼 2003-02-25
- 打赏
- 举报
用数据库，排序不用做。
超级大笨狼 2003-02-25
- 打赏
- 举报
好玩！
ahbc123 2003-02-25
- 打赏
- 举报
请给我一个，谢谢！！！
yjgj7122@ah163.com
yjgj7122@ah163.com
inter913 2003-02-25
- 打赏
- 举报
email是zyinter@21cn.com
谢谢：）
谢谢：）
AechoJohn 2003-02-25
- 打赏
- 举报
我这儿有一个比较通用的能实现你所说的功能的一组函数，如要请给我留言并留下Email。
此功能的结果序列样式如下：
组合串 编号
1,2,3,4,5 1
1,2,3,4,6 2
1,2,3,4,7 3
...
此功能的结果序列样式如下：
组合串 编号
1,2,3,4,5 1
1,2,3,4,6 2
1,2,3,4,7 3
...
还想懒够 2003-02-25
- 打赏
- 举报
放一个list控件，设置其sort属性为true
然后将每次得到的5个数字排序，排序后放入list控件中
然后将每次得到的5个数字排序，排序后放入list控件中
