把0—9这10个数字排列成4位数的所有组合，可提供算法或直接提供答案的本人会出点辛苦费的（人民币）。电话：***********
參考答案:太简单了吧，就是1000～9999所有的数字呀！
我这个是Vb编写的
先写出算法，一会运算出来给你结果把，你的辛苦费还是自己留着吧
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim R() As Integer
ReDim R(0)
For i = 1 To 9 '因为4位数不可能是0开头，所以从1开头
For j = 0 To 9
For k = 0 To 9
For l = 0 To 9
ReDim Preserve R(UBound(R) + 1)
R(UBound(R)) = Val(Str(i) & Str(j) & Str(k) & Str(l))
Next
Next
Next
Next
'这样R就是保存结果的数组了,R(0)没有数据
百度最多让发1W字以内的回答，所以我发不了所有的结果了，我算了一下，所有的结果连接到一起，还3W6字呢。
结果就是这样的
1000
1001
1002
。。。
1999
。。。
。。。
2999
。。。
3999
。。。
4999
。。。
5999
。。。
6999
。。。
7999
。。。
8999
。。。
9999
