如何对四个或多个数字进行随意组合？

mikewolf2k

你的意思我还是不大明白,是不是指4个数字所能组成的所有四位数?


如果是这样,我那个思路是可以的(具体到你的程序中要作相应的修改)

雪山飞狐_lzh

再给一个 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
For j = 0 To n - 1
If a(j) = n Then
a(j + 1) = a(j + 1) + 1
a(j) = 0
Else
Exit For
End If
Next j
Debug.Print b(a(3)) & b(a(2)) & b(a(1)) & b(a(0))
a(0) = a(0) + 1
Next i

yicol

蝙蝠侠说的是对的，不好意思，是我没有说清楚，我只是说四个，如果是多个，也就是未知的N个数的组合那该怎么写啊

mikewolf2k

N个数的组合方式可有N的N次方个啊,N不会太大吧?你用得着这么多吗?