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

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
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

查看完整版本: 如何对四个或多个数字进行随意组合？