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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/09 12:29:48
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 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