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

yicol

大家可不可以给我一个思路啊

mikewolf2k

不就是排列组合的问题么?

yicol

是啊是啊，


请帮忙

mikewolf2k

具体的讲讲你的要求吧


12,13,14,23,24,34 和数字反过来

yicol

比如说1、2、3、4


可以组成1231、1223、1233、1234、1241、1242。。。。。。


等等

雪山飞狐_lzh

用随机数做

mikewolf2k

一个粗略的例子.


假设四个数字分别在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

efan2000

四个数，是不是算24点。

yicol

蝙蝠侠说的不行啊

雪山飞狐_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
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