0_9看成1-9了
用這個(gè)程序
生成p（10,4）-P(9,3)=4536個(gè)
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