0 1 2 3 4 5 6 7 8 9 组成不同的四位数 如:1234、2345 .不可重复,要全部.

来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 11:34:49
0 1 2 3 4 5 6 7 8 9 组成不同的四位数 如:1234、2345 .不可重复,要全部.
x)3P0T0R0V0Q0U0S0WPTxYDŽ';zNy>O>A鲦{f]ҫbY/W$l;PQ=:&thXkښ&)ih. :I::) y%EpLtL[C0-H!SW % P1RPSA׼40/r6yv8 /

0 1 2 3 4 5 6 7 8 9 组成不同的四位数 如:1234、2345 .不可重复,要全部.
0 1 2 3 4 5 6 7 8 9 组成不同的四位数 如:1234、2345 .不可重复,要全部.

0 1 2 3 4 5 6 7 8 9 组成不同的四位数 如:1234、2345 .不可重复,要全部.
0_9看成1-9了
用这个程序
生成p(10,4)-P(9,3)=4536个
Sub f()
Dim a,b,c,d As Integer
Dim i As Integer
i = 1
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
For d = 0 To 9
If a = b Or b = c Or a = c Or a = d Or d = c Or d = b Then
Else
Cells(i,1) = a & b & c & d
i = i + 1
End If
Next
Next
Next
Next
End Sub