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

练达。（11）"/>

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

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