9楼的代码思路好强，一定要加分。
慢慢分释下这段代码.
慢慢分释下这段代码.
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [共同参与][挑战思路] 求一列数所有不同组合的和
精华I
查看 12,299 回复 21
精华I
查看 12,299 回复 21
第 16 楼
发表于 2007-01-05 15:20 · 中国 广东 湛江 电信
第 17 楼
发表于 2007-01-05 23:55 · 中国 湖北 武汉 电信
15楼的代码运行的效率的确比9楼的高不少，两个都值得学习，加分。
第 18 楼
发表于 2007-01-07 13:13 · 中国 湖南 娄底 新化县 电信
好久没来, 原来这个问题已经完美解决了, 9楼qzwqzw兄的递归确实是解决此问题的最好算法, 而15楼tao0610兄的改进代码效率大为提高, 兴奋中, 一个字强...
最初和namejm兄讨论时也写过一段, 不过丢失了一些组合项, 后来也想过不少算法, 最终发现只有递归才能很好的解决丢失项的问题. 递归要用到一种数据结构栈. 批处理不可能实现这种栈的数据结构, 最后对这种算法也就不了了之.
qzwqzw兄对算法的研究确实够深的, 佩服, 刚来没仔细看代码, 有时间好好消化一下.
最初和namejm兄讨论时也写过一段, 不过丢失了一些组合项, 后来也想过不少算法, 最终发现只有递归才能很好的解决丢失项的问题. 递归要用到一种数据结构栈. 批处理不可能实现这种栈的数据结构, 最后对这种算法也就不了了之.
qzwqzw兄对算法的研究确实够深的, 佩服, 刚来没仔细看代码, 有时间好好消化一下.
业精于勤而荒于嬉，形成于思而毁于随。
第 19 楼
发表于 2007-01-08 00:01 · 中国 辽宁 联通
不知道哪位高手能不能用VBS写一个出来，谢谢！
第 20 楼
VBS也来捧场
发表于 2007-01-26 07:40 · 中国 江苏 南京 电信
dim msg,ss,ans
ss="12345"
For k=2 to len(ss)
Combine ss,k,""
next
arr=split(left(msg,Len(msg)-1),";")
for j=0 to ubound(arr)
rep="":res=0
for k=1 to len(arr(j))
rep=rep&mid(arr(j),k,1)&"+"
res=res + Cstr(mid(arr(j),k,1))
next
ans=ans&Cstr(j+1)&":"&Left(rep,Len(rep)-1)&"="&CStr(res)&vbCrLf
next
msgbox ans,0,"结果"
Sub Combine(sar,num,str)
If num=0 Then
msg=msg&str&";"
Else
For i=1 To Len(sar)
Call Combine(Right(sar,Len(sar)-i),num-1,str&Mid(sar,i,1))
Next
End If
End Sub
ss="12345"
For k=2 to len(ss)
Combine ss,k,""
next
arr=split(left(msg,Len(msg)-1),";")
for j=0 to ubound(arr)
rep="":res=0
for k=1 to len(arr(j))
rep=rep&mid(arr(j),k,1)&"+"
res=res + Cstr(mid(arr(j),k,1))
next
ans=ans&Cstr(j+1)&":"&Left(rep,Len(rep)-1)&"="&CStr(res)&vbCrLf
next
msgbox ans,0,"结果"
Sub Combine(sar,num,str)
If num=0 Then
msg=msg&str&";"
Else
For i=1 To Len(sar)
Call Combine(Right(sar,Len(sar)-i),num-1,str&Mid(sar,i,1))
Next
End If
End Sub
本帖最近评分记录
（共 1 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| jmz573515 | +4 | 2007-01-26 07:51 |
第 21 楼
发表于 2007-01-26 07:51 · 中国 辽宁 本溪 联通
好，学习了。
第 22 楼
发表于 2007-02-01 02:54 · 中国 湖南 长沙 联通
高
小弟要开始消化了
小弟要开始消化了
:cool:
论坛跳转: