mikewolf2k 发表于 2004-4-5 22:00:00

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


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

雪山飞狐_lzh 发表于 2004-4-6 08:48: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>                       For j = 0 To n - 1<BR>                                                       If a(j) = n Then<BR>                                                       a(j + 1) = a(j + 1) + 1<BR>                                                       a(j) = 0<BR>                                                       Else<BR>                                                       Exit For<BR>                                                       End If<BR>                       Next j<BR>                       Debug.Print b(a(3)) &amp; b(a(2)) &amp; b(a(1)) &amp; b(a(0))<BR>                       a(0) = a(0) + 1<BR>Next i<BR>

yicol 发表于 2004-4-6 14:32:00

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

mikewolf2k 发表于 2004-4-6 19:01:00

N个数的组合方式可有N的N次方个啊,N不会太大吧?你用得着这么多吗?
页: 1 [2]
查看完整版本: 如何对四个或多个数字进行随意组合？