正文

數(shù)字排列組合軟件app（數(shù)字排列組合軟件）

發(fā)布時(shí)間：2023-05-23 22:30:08 稿源：創(chuàng)意嶺閱讀： 86

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

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

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

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

本文目錄:

求一款軟件用于列舉數(shù)字的排列組合，最好能像excel表格那種格式顯示出來
什么軟件可以自動(dòng)排列組合abc
四位數(shù)的排列組合軟件有哪些

數(shù)字排列組合軟件app（數(shù)字排列組合軟件）

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

給你一段VBA代碼吧，放入EXCEL的代碼頁中（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追問

雖然懂程序，但沒用過這個(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ù)了？能否說明白一點(diǎ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表中一一列舉出來

追答

直接把第一行的參數(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ù)的開始
'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

追問

哈哈哈，剛才沒刷新網(wǎng)頁，要的就是這個(gè)，非常感謝.....100分你的了

追答

做了個(gè)完整的帶界面的，排列和組合都可以做。見附件！

數(shù)字排列組合軟件app（數(shù)字排列組合軟件）

什么軟件可以自動(dòng)排列組合abc

有很多軟件可以用于自動(dòng)排列組合abc。你可以嘗試使用Excel，它可以幫助你快速排列組合abc。同時(shí)，還有一些其他的軟件可以用于復(fù)雜的排列組合，比如Permutations Generator或QROSS等。不過，如果你只想簡(jiǎn)單的排列組合abc，使用Excel就可以了。

四位數(shù)的排列組合軟件有哪些

《數(shù)學(xué)思維》、排列組合計(jì)算器。
1、《數(shù)學(xué)思維》的功能非常的強(qiáng)大，各個(gè)不同學(xué)習(xí)階段都能夠利用它來幫助大家去進(jìn)行公式的求解，同時(shí)還提供了各種公式的合集，自動(dòng)去繪制圖形等，是能夠排列四位數(shù)組合的軟件。
2、排列組合計(jì)算器是一款簡(jiǎn)單實(shí)用的數(shù)學(xué)公式計(jì)算器，軟件方便簡(jiǎn)單，只要用戶錄入四位數(shù)的數(shù)值，它就能夠幫助用戶快速計(jì)算出所有結(jié)果。

以上就是關(guān)于數(shù)字排列組合軟件app相關(guān)問題的回答。希望能幫到你，如有更多相關(guān)問題，您也可以聯(lián)系我們的客服進(jìn)行咨詢，客服也會(huì)為您講解更多精彩的知識(shí)和內(nèi)容。