如果是无序的应该为排列的吧,计算了一下排列数共有:20533695436800,不一定正确供参考。
字母与数字组合会有一定的规则的,比如编码起始一般为字符,还有字符的长度等都要去作限定的。如果没有限定条件那二个集合中按暴力随机取数即可。限定条件:数字或字符至少存在一个,长度为10。如果条件明确这问题估计就解决了的。
Option Explicit
Sub 二个集合指定个数排列()
Dim i, n(2)
For i = 0 To 2
n(i) = CDec(0)
Next
For i = 1 To 9
Call p(n(1), 10, i)
Call p(n(2), 26, 10 - i)
n(0) = n(0) + n(1) * n(2)
Next
Debug.Print n(0)
End Sub
Function p(n, a, b)
Dim i, k
k = CDec(1)
For i = a To a - b + 1 Step -1
k = k * i
Next
n = k
End Function