如何创建未定义的循环数

问题描述

| 我正在尝试创建一个程序，该程序将遍历所有字母。 例如，我想显示aaaa，然后将aaab显示给aaaz，然后将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

    ,我建议递归，我对自己的VB技能不自信，但这是C＃中的解决方案

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

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

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

Console.WriteLine(abc(Length))

这已经超出我的脑海了，但我相信通过一些调整它应该可以解决问题     ,抱歉，但是我对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字符串。