求助：用VBA将17个字母进行全排列组合，有多少种组合，就显示多少种组合！

2217918

求助：用VBA将17个字母进行全排列组合，有多少种组合，就显示多少种组合！

opiona

借鉴了 kagawa 香川的 算法  然后加了一个循环

M选N的组合问题_数组内的元素.rar (570.6 KB, 下载次数: 27)

2023-5-4 23:12 上传

点击文件名下载附件

2217918

各位大神老师，帮帮忙啊！

2217918

opiona 发表于 2023-5-4 23:16
借鉴了 kagawa 香川的 算法  然后加了一个循环

谢谢老师，老师能否帮我的附件，弄成我想要的样子啊？我是小白，我自己弄不了，再次感谢！

约定的童话

Sub PermuteAndPrint()    Dim str As String    str = "ABCDEFGHIJKLMNOPQ"    Dim arr() As String    ReDim arr(1 To Len(str))    For i = 1 To Len(str)        arr(i) = Mid(str, i, 1)    Next i    Dim output() As String    ReDim output(1 To WorksheetFunction.Fact(Len(str)))    Permute arr, 1, Len(str), output    Range("A1").Resize(UBound(output)) = Application.Transpose(output)End SubSub Permute(ByVal arr() As String, ByVal l As Long, ByVal r As Long, ByRef output() As String)    If l = r Then        output(UBound(output)) = Join(arr, "")        ReDim Preserve output(1 To UBound(output) + 1)    Else        For i = l To r            Swap arr(l), arr(i)            Permute arr, l + 1, r, output            Swap arr(l), arr(i)        Next i    End IfEnd SubSub Swap(ByRef a As String, ByRef b As String)    Dim temp As String    temp = a    a = b    b = tempEnd Sub

2217918

约定的童话 发表于 2023-5-5 07:37
Sub PermuteAndPrint()    Dim str As String    str = "ABCDEFGHIJKLMNOPQ"    Dim arr() As String    Re ...

老师，您好！能否麻烦你上传个附件啊！

2217918

之前上传的附件有错，重新上传了附件，麻烦老师帮忙下，谢谢！

2217918

各位老师，帮个忙啊