一个用VB实现的对任意字符串进行排列并排序的函数

    说实在的，原本没想到自己要写这个函数，是在看CSDN论坛里的一个贴子时，发现很多回复所给出的代码都非常繁杂。由于我水平有限，不习惯看过于复杂的代码，于是便想能不能有一个简短的。用GOOGLE搜索了一下，结果更头痛，最好的算法也是就了递归，却不知递归的缺点，当需要排列的字符串超过5个时，容易造成栈溢出，自然实现不了对任意字符串进行排列并排序的目的，无奈之下，便硬着头皮写了一个通用函数，代码如下：

Option Explicit

'* ************************************************************ *
'            函数名称：通用排列算法
'            参数说明：sDictionary : 需要进行排列的字典
'                      nDigit : 需要进行排列的位数
'                      bExclude : 是否排除相邻元素相同的情况
'            作者：lyserver
'* ************************************************************ *
Public Function RansackDictionary(ByVal sDictionary As String, ByVal nDigit As Integer, ByVal bExclude As Boolean)
    Dim sValue As String, lVal_1 As String, lVal_2 As String
    Dim i As Long, j As Long, k As Long, nBound As Long, nDictionaryLen As Long
   
    nDictionaryLen = Len(sDictionary)
    If nDigit < 1 Or nDigit > nDictionaryLen Then Exit Function
    nBound = nDictionaryLen ^ nDigit - 1

    For i = 1 To nDigit
        For j = 0 To nDictionaryLen ^ i - 1
            lVal_2 = ""
            sValue = ""
            For k = i To 1 Step -1
                lVal_1 = Mid(sDictionary, Fix(j / (nDictionaryLen ^ (k - 1))) Mod nDictionaryLen + 1, 1)
                If (Not bExclude) Or lVal_1 <> lVal_2 Then  '排除相邻相同的情况
                    lVal_2 = lVal_1
                    sValue = sValue & lVal_1
                End If
            Next
            If Len(sValue) = i Then Debug.Print sValue
            DoEvents
        Next
    Next
End Function

'调用代码：

Sub main()
    RansackDictionary "0123456789", 3, True
End Sub

    补充说明：由于字典数据较多时，排列的结果非常大，故未采用数组，读者可把结果输出到文件中进行验证。