Question

用122234可以组成几个不同的六位数,每个数字都要用上？

Answer 1

解:三个2既可以分开排，也可以连在一起排，(1)分开排的情况，三个2可在1，3，4，形成的2个间隔和它的左右共四个位置上共p4(3)个排列而1，3，4可有p3(3)种排列∴有p3(3)Xp4(3)=6x24=144个(2)三个2联在一起则同上可在1，3，4形成的4个位置上有p4(1)种排法而1，3，4有p3(3)种排法∴有p4(1)Xp3(3)=4X6=24∴综上共有144十24=168个

Answer 2

120个。
Private Sub TSNextArr1()
Dim Arr, k1&, i&, j&, Dic As Object, St$, Ji&, JiMax&
Set Dic = CreateObject("Scripting.Dictionary")
k1 = 0
Arr = Array(1, 2, 2, 2, 3, 4) '升序，得到全排列
Do
i = i + 1
St = Arr(0): For j = 1 To UBound(Arr): St = St & "" & Arr(j): Next j

Dic(St) = i

Call NextArr(Arr, k1)
Loop Until k1 < 0
[c1].Resize(Dic.Count, 2) = _
Application.WorksheetFunction.Transpose(Array(Dic.keys, Dic.items))
Set Dic = Nothing
End Sub