Question

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

我想举例如show aaaa ，然后 aaab 到 aaaz ，然后 aaba 等等到< EM> 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

Answer 1

递归是您在这里寻找的工具。你想重复一定的深度;该深度是用户的输入。在这个例子中，我提供了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

Answer 2

我会建议递归，我对自己的VB技能没有信心，但这是C＃的解决方案

static String[] letters = { "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" };

    static void Main(string[] args)
    {
        Console.Writeline("Enter the amount of characters");
        int count = Int32.Parse( Console.ReadLine() );
        outputStrings("", count);
        Console.ReadLine();
    }

    static public void outputStrings(String startString, int letterCount)
    {
        for (int i = 0; i < letters.Length; i++)
        {
            String temp = startString;
            temp += letters[i];

            if (temp.Length == letterCount)
            {
                Console.WriteLine(temp);
            }
            else
            {
                outputStrings(temp, letterCount);
            }
        }
    }

Answer 3

您可以查看使用输入框。允许用户选择长度。 MSDN InputBox

Dim Length as Object
Message = "Hello"
Title = "Hello"
InputBox(Message, Title, Length)

Console.WriteLine(abc(Length))

这是我的头脑，但我相信一些调整它应该做的伎俩

Answer 4

抱歉，我对VB不太满意。这是一个python代码片段，可以解决这个问题。也许你可以将它作为伪代码并将其转换为VB。

任何人都可以将此更改为VB，请编辑我的帖子。

strlen是输出字符串的长度。 a ** b是b的幂。 a％b是模b。

strlen = 5

for i in range (26 ** strlen):
    output = ''
    for j in range (strlen):
        output = chr ( (i / (26 ** j) ) % 26 + 97) + output
    print output

并且不要使用输出长度过度。例如，长度为10，产生141167095653376字符串。

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

4 个答案: