正文

固定數(shù)字排列組合生成器（固定數(shù)字排列組合生成器下載）

發(fā)布時(shí)間：2023-05-23 11:15:14 稿源：創(chuàng)意嶺閱讀： 57

大家好！今天讓創(chuàng)意嶺的小編來(lái)大家介紹下關(guān)于固定數(shù)字排列組合生成器的問(wèn)題，以下是小編對(duì)此問(wèn)題的歸納整理，讓我們一起來(lái)看看吧。

開(kāi)始之前先推薦一個(gè)非常厲害的Ai人工智能工具，一鍵生成原創(chuàng)文章、方案、文案、工作計(jì)劃、工作報(bào)告、論文、代碼、作文、做題和對(duì)話答疑等等

只需要輸入關(guān)鍵詞，就能返回你想要的內(nèi)容，有小程序、在線網(wǎng)頁(yè)版、PC客戶端和批量生成器

官網(wǎng)：https://ai.de1919.com。

本文目錄:

有數(shù)字排列組合生成軟件嗎
求一款軟件用于列舉數(shù)字的排列組合，最好能像excel表格那種格式顯示出來(lái)
四個(gè)數(shù)字排列組合,則有10×10×10×10=10000種,我要的是有什么軟件能把這些排列出來(lái)?
什么軟件可以快速組合數(shù)字

固定數(shù)字排列組合生成器（固定數(shù)字排列組合生成器下載）

有數(shù)字排列組合生成軟件嗎

我這個(gè)可以自定義的第一列是數(shù)據(jù)源第二列是組合個(gè)數(shù)

求一款軟件用于列舉數(shù)字的排列組合，最好能像excel表格那種格式顯示出來(lái)

給你一段VBA代碼吧，放入EXCEL的代碼頁(yè)中（ALT+F11），運(yùn)行主程序MYCMB()就會(huì)把結(jié)果輸出到表格中。
Sub MYCMB()
Const t = 5, Z = 8 '從8個(gè)數(shù)字中取5個(gè)進(jìn)行組合
Dim CNO, q(), CM(), CM2()
st = Timer
'為保證速度，用數(shù)組存儲(chǔ)結(jié)果
ReDim q(1 To t)
ReDim CM(1 To WorksheetFunction.combin(Z, t))
nq 1, 1, t, Z, CNO, q(), CM()
'轉(zhuǎn)二維數(shù)組，以便EXCEL存放
ReDim CM2(1 To CNO, 1 To t)
For i = 1 To CNO
For j = 1 To t
CM2(i, j) = CM(i)(j)
Next j
Next i
'輸出結(jié)果到表格
Cells(1, t + 2) = "組合數(shù)"
Cells(1, t + 3) = CNO
If CNO > 65536 Then CNO = 65536
Range(Cells(1, 1), Cells(CNO, t)) = CM2
Cells(2, t + 2) = "運(yùn)行時(shí)間(秒)"
Cells(2, t + 3) = Timer - st
End Sub
'遞歸函數(shù)
Sub nq(n, s, x, E, CNO, q(), CM())
For i = s To E - x + n
q(n) = i
If n = x Then '當(dāng)前組合的數(shù)字已經(jīng)選完
CNO = CNO + 1
CM(CNO) = q
Else
nq n + 1, i + 1, x, E, CNO, q(), CM()
End If
Next i
End Sub追問(wèn)

雖然懂程序，但沒(méi)用過(guò)這個(gè)，請(qǐng)具體指點(diǎn)怎么操作，我要把16個(gè)數(shù)字按5位組合，不連續(xù)的16個(gè)數(shù)，謝謝

追答

16個(gè)數(shù)字？是包括兩位數(shù)十進(jìn)制數(shù)字，還是十六個(gè)十六進(jìn)制數(shù)字？是16個(gè)數(shù)字選5個(gè)進(jìn)行組合嗎？那就不一定是5位數(shù)了？能否說(shuō)明白一點(diǎn)，最好有舉例說(shuō)明你的要求。

追問(wèn)

都是十進(jìn)制數(shù)字比如：1；3；4；5；9；10；11；13；17；19；25；28；29；32；34；39；組合1 3 4 5 9,1 3 4 5 10,1 3 4 5 11,1 3 4 5 13......依次排列下去，會(huì)有4368種組合，在excel表中一一列舉出來(lái)

追答

直接把第一行的參數(shù)改一下就可以實(shí)際1到16這十六個(gè)數(shù)字選5，Const t = 5, Z = 16
但如果要指定數(shù)字或其它字符串名稱，則需要增加一個(gè)存放這此字符串名稱的數(shù)組。如下：
Sub MYCMB()
Dim Z, t '從Z個(gè)元素中取出t個(gè)進(jìn)行組合
Dim CNO, q(), CM(), CM2(), ID
st = Timer
'設(shè)置元素名稱，及要取出元素的個(gè)數(shù)
ID = Array("1", "3", "4", "5", "9", "10", "11", "13", "17", "19", "25", "28", "29", "32", "34", "39")
Z = UBound(ID) + 1 '總的元素個(gè)數(shù)
t = 5 '要取的元素個(gè)數(shù)
'為保證速度，用數(shù)組存儲(chǔ)結(jié)果
ReDim q(1 To t)
ReDim CM(1 To WorksheetFunction.combin(Z, t))
nq 1, 1, t, Z, CNO, q(), CM(), ID
'轉(zhuǎn)二維數(shù)組，以便EXCEL存放
ReDim CM2(1 To CNO, 1 To t)
For i = 1 To CNO
For j = 1 To t
CM2(i, j) = CM(i)(j)
Next j
Next i
'輸出結(jié)果到表格
Cells(1, t + 2) = "組合數(shù)"
Cells(1, t + 3) = CNO
If CNO > 65536 Then CNO = 65536
Range(Cells(1, 1), Cells(CNO, t)) = CM2
Cells(2, t + 2) = "運(yùn)行時(shí)間(秒)"
Cells(2, t + 3) = Timer - st
End Sub
'遞歸函數(shù)
'n,s:當(dāng)前組合中位置、當(dāng)前要選的數(shù)的開(kāi)始
'e和x：從e個(gè)數(shù)里取x個(gè)進(jìn)行組合
'CNO：組合數(shù)
'CM()：組合結(jié)果
Sub nq(n, s, x, E, CNO, q(), CM(), ID)
For i = s To E - x + n
q(n) = ID(i - 1)
If n = x Then '當(dāng)前組合的數(shù)字已經(jīng)選完
CNO = CNO + 1
'ReDim Preserve CM(1 To CNO)
CM(CNO) = q
Else
nq n + 1, i + 1, x, E, CNO, q(), CM(), ID
End If
Next i
End Sub