如何创建未定义的循环计数

我正在尝试创建一个程序，它将循环遍历所有字母。

我想要例如显示aaaa, then aaab to aaaz, then aaba依此类推zzzz.

问题是：如何让用户输入字母计数？

这是我的代码，只有 3 个字母：

Dim abc() As String = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", _
    "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}
Console.ReadLine()
Dim indx As Integer = 0
For a = 0 To 25
    For b = 0 To 25
         For c = 0 To 25
              Console.WriteLine("{0}{1}{2}", abc(a), abc(b), abc(c))           
         Next
    Next
Next

递归是您在这里寻找的工具。你想要重复到一定的深度；该深度是来自用户的输入。在此示例中，我提供了 3 的深度（意味着所有具有三个字母的排列，如您在问题中所述）。您可以将该值更改为您想要的任何值，或者更好的是读取用户的输入。

Dim abc() As String = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}

Sub Main()
    Dim depth As Integer
    depth = 3
    IterateAlphabet("", depth)
    Console.ReadKey()

End Sub

Sub IterateAlphabet(ByVal currentLetters As String, ByVal currentDepth As Integer)
    For letter = 0 To 25
        Dim newLetters As String
        newLetters = currentLetters + abc(letter)
        If (currentDepth = 1) Then
            Console.WriteLine("{0}", newLetters)
        Else
            IterateAlphabet(newLetters, currentDepth - 1)
        End If
    Next

End Sub