作业帮求一款软件用于列举数字的排列组合,最好能像excel表格那种格式显示出来
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/17 07:06:06
求一款软件用于列举数字的排列组合,最好能像excel表格那种格式显示出来
比如给出8个数字,选取其中5个进行组合,共有多少种组合,能一一列举出来,最好能由大到小或者由小到大依次排列,功能越多越好.如果Excel能做到也行,但我不知道怎么用,财富值之类的都小事儿,你要喜欢咱都给你
比如给出8个数字,选取其中5个进行组合,共有多少种组合,能一一列举出来,最好能由大到小或者由小到大依次排列,功能越多越好.如果Excel能做到也行,但我不知道怎么用,财富值之类的都小事儿,你要喜欢咱都给你
给你一段VBA代码吧,放入EXCEL的代码页中（ALT+F11）,运行主程序MYCMB()就会把结果输出到表格中.
Sub MYCMB()
Const t = 5,Z = 8 '从8个数字中取5个进行组合
Dim CNO,q(),CM(),CM2()
st = Timer
'为保证速度,用数组存储结果
ReDim q(1 To t)
ReDim CM(1 To WorksheetFunction.combin(Z,t))
nq 1,1,t,Z,CNO,q(),CM()
'转二维数组,以便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
'输出结果到表格
Cells(1,t + 2) = "组合数"
Cells(1,t + 3) = CNO
If CNO > 65536 Then CNO = 65536
Range(Cells(1,1),Cells(CNO,t)) = CM2
Cells(2,t + 2) = "运行时间(秒)"
Cells(2,t + 3) = Timer - st
End Sub
'递归函数
Sub nq(n,s,x,E,CNO,q(),CM())
For i = s To E - x + n
q(n) = i
If n = x Then '当前组合的数字已经选完
CNO = CNO + 1
CM(CNO) = q
Else
nq n + 1,i + 1,x,E,CNO,q(),CM()
End If
Next i
End Sub
再问： 虽然懂程序，但没用过这个，请具体指点怎么操作，我要把16个数字按5位组合，不连续的16个数，谢谢
再答： 16个数字？是包括两位数十进制数字，还是十六个十六进制数字？是16个数字选5个进行组合吗？那就不一定是5位数了？能否说明白一点，最好有举例说明你的要求。
再问： 都是十进制数字比如：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......依次排列下去，会有4368种组合，在excel表中一一列举出来
再答： 直接把第一行的参数改一下就可以，如下 Const t = 5, Z = 16
再问： 哈哈哈，刚才没刷新网页，要的就是这个，非常感谢.....100分你的了
再答： 做了个完整的带界面的，排列和组合都可以做。见附件！
Sub MYCMB()
Const t = 5,Z = 8 '从8个数字中取5个进行组合
Dim CNO,q(),CM(),CM2()
st = Timer
'为保证速度,用数组存储结果
ReDim q(1 To t)
ReDim CM(1 To WorksheetFunction.combin(Z,t))
nq 1,1,t,Z,CNO,q(),CM()
'转二维数组,以便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
'输出结果到表格
Cells(1,t + 2) = "组合数"
Cells(1,t + 3) = CNO
If CNO > 65536 Then CNO = 65536
Range(Cells(1,1),Cells(CNO,t)) = CM2
Cells(2,t + 2) = "运行时间(秒)"
Cells(2,t + 3) = Timer - st
End Sub
'递归函数
Sub nq(n,s,x,E,CNO,q(),CM())
For i = s To E - x + n
q(n) = i
If n = x Then '当前组合的数字已经选完
CNO = CNO + 1
CM(CNO) = q
Else
nq n + 1,i + 1,x,E,CNO,q(),CM()
End If
Next i
End Sub
再问： 虽然懂程序，但没用过这个，请具体指点怎么操作，我要把16个数字按5位组合，不连续的16个数，谢谢
再答： 16个数字？是包括两位数十进制数字，还是十六个十六进制数字？是16个数字选5个进行组合吗？那就不一定是5位数了？能否说明白一点，最好有举例说明你的要求。
再问： 都是十进制数字比如：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......依次排列下去，会有4368种组合，在excel表中一一列举出来
再答： 直接把第一行的参数改一下就可以，如下 Const t = 5, Z = 16
再问： 哈哈哈，刚才没刷新网页，要的就是这个，非常感谢.....100分你的了
再答： 做了个完整的带界面的，排列和组合都可以做。见附件！
求一款软件用于列举数字的排列组合,最好能像excel表格那种格式显示出来
求能自动排列组合数字的软件
打印excel表格的时候怎么只显示出表格内的数字,而表格显示不出来呀?怎么就把格子也显示出来了/谢谢
用excel制作表格,输入的数字太多就显示不出来,怎么办?
求一款学英文的软件.最好是带中英文发音的那种.
excel 小数 如何保留2位有效数字?最好能通过单元格格式使小于1的小数可以正确显示2位有效数字.
求一款天文模拟软件就像宇宙沙盘那样的,但最好免费
用数字0-9和字母A-Z任意排列组合成6位 求显示各组合的软件
求excel三位数字排列组合
求英语音词同步软件.就像天天动听歌词显示一下可以随时调节的那种,最好是手机软件本人安卓2.3.当初电脑软件也可以,毕竟还
急求任意字母和数字的排列组合软件
英语翻译是那种鼠标移到单词时 它就把翻译显示出来的那种最好是软件比较小但翻译的很 好的