一个粗略的例子.
假设四个数字分别在a,b,c,d四个数组中
for i = 1 to ubound(a)
for j=1 to ubound(b)
for k=1 to ubound(c)
for l=1 to ubound(d)
number=a(i) & b(j) & c(k) & d(l)
next l
next k
next j
next i
Dim a() As Integer, b() As Integer
n = 4
ReDim a(n - 1) As Integer
ReDim b(n - 1) As Integer
b(0) = 1: b(1) = 2: b(2) = 3: b(3) = 4
For i = 0 To n ^ n - 1
m = i
For j = n - 1 To 0 Step -1
a(j) = m \ (n ^ j)
m = m - a(j) * (n ^ j)
Next j
Debug.Print b(a(3)) & b(a(2)) & b(a(1)) & b(a(0))
Next i
置顶卡
