可以把0—9排列成4位数的所有组合？算法或直接提供答案（提供辛苦费）

把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