yicol 发表于 2004-3-30 14:13:00

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

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

mikewolf2k 发表于 2004-3-30 18:48:00

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

yicol 发表于 2004-4-1 11:03:00

是啊是啊，


请帮忙

mikewolf2k 发表于 2004-4-1 20:36:00

具体的讲讲你的要求吧


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

yicol 发表于 2004-4-2 20:58:00

比如说1、2、3、4


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


等等

雪山飞狐_lzh 发表于 2004-4-2 23:17:00

用随机数做

mikewolf2k 发表于 2004-4-3 17:10:00

一个粗略的例子.


假设四个数字分别在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 发表于 2004-4-4 15:13:00

四个数，是不是算24点。

yicol 发表于 2004-4-5 10:09:00

蝙蝠侠说的不行啊

雪山飞狐_lzh 发表于 2004-4-5 21:22:00

Dim a() As Integer, b() As Integer<BR>n = 4<BR>ReDim a(n - 1) As Integer<BR>ReDim b(n - 1) As Integer<BR>b(0) = 1: b(1) = 2: b(2) = 3: b(3) = 4<BR>For i = 0 To n ^ n - 1<BR>m = i<BR>For j = n - 1 To 0 Step -1<BR>a(j) = m \ (n ^ j)<BR>m = m - a(j) * (n ^ j)<BR>Next j<BR>Debug.Print b(a(3)) &amp; b(a(2)) &amp; b(a(1)) &amp; b(a(0))<BR>Next i
页: [1] 2
查看完整版本: 如何对四个或多个数字进行随意组合？