简洁精美源于分析透彻，构思明确、求精，逻辑练达。（11）

    Sub 无限嵌套(ByVal 字符串 As String)
        Dim 输出 = ""
        Dim 量 As Integer = 字符串.Length, 跟 = 量 - 1
        Dim 无限嵌套() = Enumerable.Repeat(0, 量).ToArray()
        Do
            Do While 跟 >= 0
                If 跟 - 1 >= 0 And 无限嵌套(跟) >= 量 Then
                    无限嵌套(跟 - 1) += 1
                    无限嵌套(跟) = 0
                End If
                跟 -= 1
            Loop
            For Each aa As Integer In 无限嵌套
                输出 += 字符串(aa).ToString()
            Next
            If 无限嵌套(0) < 量 Then
                'Console.WriteLine(String.Join(" ", 无限嵌套))
                Console.WriteLine(输出)
            End If
            无限嵌套(量 - 1) += 1
            跟 = 量 - 1
            输出 = ""
        Loop While (无限嵌套(0) < 量)
    End Sub
    无限嵌套("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ")