求四个字母变换不同位置的组合算法

buciyuan

各位老师：
       求四个字母变换不同位置的组合算法，如

abcd

abdc

acbd

acdb

bacd

bcad

bcda

bdca

cabd

cadb

cbad

cbda

dabc

dabc

dbac

dbca

上面的排列组合可能 不符合逻辑，是手工输入的，供作示范。谢谢各位老师指点！

zopey

举例是 排列，4个数的不同排列有
4！=4*3*2*1 = 24

zopey

二进制排列算法 ：速度慢，可以精确定位。

全排列33.zip (197.29 KB, 下载次数: 24)

2018-8-16 11:05 上传

点击文件名下载附件

buciyuan

谢谢老师指点

buciyuan

老师如何方便，能否再写一个递归算法实现的，谢谢

buciyuan

请问：Len(N2C(i - 1)) 这个是什么意思呢？谢谢！

microyip

方法比较笨，效率不是很高的

1. Private vChr As Variant, vResult As Variant, nResult As Double
   
2. 
   
3. Sub 递归组合()
   
4.     ReDim vResult(1 To 1)
   
5.     vChr = Split("A,B,C,D", ",")
   
6.     GetStr
   
7.     [A1].Resize(nResult) = Application.WorksheetFunction.Transpose(vResult)
   
8. End Sub
   
9. 
   
10. Private Function GetStr(Optional ByVal sStr As String) As String
    
11.     Dim nI As Integer
    
12.     For nI = LBound(vChr) To UBound(vChr)
    
13.         If Not sStr Like "*" & vChr(nI) & "*" Then
    
14.             If Len(sStr) = UBound(vChr) Then
    
15.                 nResult = nResult + 1
    
16.                 ReDim Preserve vResult(1 To nResult)
    
17.                 vResult(nResult) = sStr & vChr(nI)
    
18.                 Exit Function
    
19.             Else
    
20.                 GetStr sStr & vChr(nI)
    
21.             End If
    
22.         End If
    
23.     Next
    
24. End Function

复制代码

zopey

buciyuan 发表于 2018-8-17 08:54
请问：Len(N2C(i - 1)) 这个是什么意思呢？谢谢！

每个排列结果  一一对应 阶乘数。
4！ 就是 4的阶乘
N2C 是计算序号对应 阶乘数的  自定义函数，类似于 十进制转换二进制。

buciyuan

zopey 发表于 2018-8-17 09:38
每个排列结果  一一对应 阶乘数。
4！ 就是 4的阶乘
N2C 是计算序号对应 阶乘数的  自定义函数，类似于 ...

不好意思，没有发现自定义函数，看来学习还要仔细点，谢谢！

buciyuan

经测算，递归算法0.0078， 二进制算法0.0039，非常感谢各位前辈老师的指点