简洁精美源于分析透彻，构思明确、求精，逻辑练达。（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")