1234567890这几张卡片中能组成四位数的有4536个:
我用EXCEL的VBA穷举的:
Sub 宏1()
l = 1
For i = 1 To 9
For j = 0 To 9
For k = 0 To 9
For h = 0 To 9
If Not (i = j Or i = k Or i = h Or j = k Or j = h Or k = h) Then
Cells(l, 1) = i & j & k & h
l = l + 1
End If
Next h, k, j, i
End Sub