新建一個空白表格

按下alt+f11,插入-模組,複製下面程式碼到程式碼框中.按下f5執行.

這樣a1:a720就是6個數字的組合.

suborder()

range("a1").select

fora=2to7

forb=2to7

forc=2to7

ford=2to7

fore=2to7

ifabandacandadandaeandbcandbdandbeandcdandceanddethen

activecell.value=a&b&c&d&e

activecell.offset(1,0).select

endif

next

next

next

next

next

endsub

1-9共有5個奇數，4個偶數 選擇時，可為1偶和2奇，或3偶 1偶和2奇，4*5*4/2=40,(去掉重複的，因為只有兩個奇數會，所以要除以2) 3偶,4*3*2/3=8,(因為3個偶數都會發生順序不同的重複，所以要除以3) 最後得數為48種

1)數字可重複首位只有9種排法,其餘各位都有10種排法,所以有9×10×10×10×10×10×10×10×10=900000000(種)(2)數字不可重複首位只有9種排法,其餘各位從剩餘9個數中任選8個排列即可,所以有9×9×8×7×6×5×4×3×2=3265920(種)

這個好計算。

四個數第一個，1、2、3、、、8共8種可能， 四個數第二個，1、2、3、、、8共8種可能， 四個數第三個，1、2、3、、、8共8種可能， 四個數第四個，1、2、3、、、8共8種可能， 所以一共有8*8*8*8=4096種可能