五个数字有多少种组合？怎么将组合全部打印出来？

[trymain]

有五个数1,2,3,4,5
要算出所有不同组合，比如 1 2 3 4 5是第一个， 1 2 3 5 4 是第二个，1 2 5 4 3是第三个，当然顺序无所谓，就是想求出所有的组合将其打印出来即可，个人的数学功底实在尴尬，希望各位高手能不吝赐教啊，谢谢

[「已注销」]

数学中的排列啊，例如五个数1,2,3,4,5，就是5的阶乘 5！=120，算法我相信你会的

[「已注销」]

可以尝试多重循环foreach( int i in list){int i in list{……} }
子层的集合排除父层以及父父层中的i

[trymain]

楼上高看我了，我折腾一下午了，始终没有搞懂这里面的原理，先谢谢楼上

[jiantheone]

Dim shu() As String
Dim s As Integer
For a = 1 To 5

For b = 1 To 5
If b <> a Then
For c = 1 To 5
If c <> b And c <> a Then
For d = 1 To 5
If d <> b And d <> a And d <> c Then
For f = 1 To 5
If f <> b And f <> a And f <> c And f <> d Then
s += 1
ReDim Preserve shu(s)
shu(s) = a & "," & b & "," & c & "," & d & "," & f
MsgBox(shu(s))
End If
Next
End If
Next
End If
Next
End If
Next
Next

[jiantheone]

Dim shu() As String
Dim s As Integer
For a = 1 To 5

For b = 1 To 5
If b <> a Then
For c = 1 To 5
If c <> b And c <> a Then
For d = 1 To 5
If d <> b And d <> a And d <> c Then
For f = 1 To 5
If f <> b And f <> a And f <> c And f <> d Then
s += 1
ReDim Preserve shu(s)
shu(s) = a & "," & b & "," & c & "," & d & "," & f
MsgBox(shu(s))
End If
Next
End If
Next
End If
Next
End If
Next
Next

[ccccffff]

吐血啊。。。
高中的知识都没学好，就来学编程啊？？？
还是早点改行把
或者去补下数学

[trymain]

7楼的话让我脸红啊，编了八年多程序基本上玩算法的很少，我基本的都是在做逻辑分析的一些东西，算一数学基本光了，什么都想不起来了，这玩意叫排列，我也是很长时间才想起来，7楼可以提供些帮助么

[threenewbee]

http://topic.csdn.net/u/20110616/13/1958e017-f132-4f26-90cb-3da8c0b4eed5.html

[ccccffff]

算法与结构等等

[deepmist]

傻一点的方法：5个位置循环5次，每次取一个字符，5次的话就5个，然后组合，最后输出。

[trymain]

9l我用http://www.developerfusion.com/tools/convert/csharp-to-vb/转换完提示rjion未声明，请问这个rjion事什么呢？谢谢

[苦苦的潜行者]

[Quote=引用 9 楼 caozhy 的回复:]

http://topic.csdn.net/u/20110616/13/1958e017-f132-4f26-90cb-3da8c0b4eed5.html
[/Quote]

膜拜大版,

[以专业开发人员为伍]

我前几天写过一个demo：http://dotnet.wgets.com/thread/247644

[以专业开发人员为伍]

[Quote=引用 11 楼 deepmist 的回复:]

傻一点的方法：5个位置循环5次，每次取一个字符，5次的话就5个，然后组合，最后输出。
[/Quote]

嗯。基本上这类题目是假设n个位置，这个n是一个可变的数字。楼主的问题可能有些简单了。