1234567890这几张卡片中能组成四位数的是哪些？

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