【VB脚本备忘】1-2-3-……-n 的排列组合

Function dgCombinate(n As Integer)
    Dim cFather: cFather = 2 ^ n - 1
    Dim ArrFather: ReDim ArrFather(1 To cFather)
    If n = 1 Then
        ArrFather(n) = "," & n
        dgCombinate = ArrFather
    Else
        Dim cSon: cSon = 2 ^ (n - 1) - 1
        Dim ArrSon: ArrSon = dgCombinate(n - 1)
        Dim j
        For j = 1 To cSon
            ArrFather(j) = ArrSon(j)
            ArrFather(cSon + 1 + j) = ArrSon(j) & "," & n
        Next
        ArrFather(cSon + 1) = "," & n
        dgCombinate = ArrFather
    End If
End Function