在制作星星绘图程序时真的很挣扎子程序

Question

我正在尝试创建一个绘制一系列空格和星号的子过程，然后输出结果。用户输入他们想要的星星数量和空间数量，然后输出在屏幕上绘制的星星和空间。例如，DrawStars(4,5) 将输出 ----*****。

到目前为止，这是我的代码：

Module Module1

Sub Main()
    Dim Spaces As Integer = 0
    Dim Stars As Integer = 0
    Dim TotalChars As Integer = 0

    Console.WriteLine("Enter the number of spaces you want to enter")
    Spaces = Console.ReadLine

    Console.WriteLine("Enter the number of stars you want to enter")
    Stars = Console.ReadLine

    TotalChars = Spaces + Stars

    DrawStars(Spaces, Stars, TotalChars)

    Console.WriteLine("")

    Console.ReadLine()
End Sub

Sub DrawStars(ByVal Spaces As Integer, ByVal Stars As Integer, ByVal TotalChars As Integer)
    Dim Output As String

    Do Until TotalChars = Stars + Spaces
        If Spaces > 0 The
            Output = Console.ReadLine
        Else
            Console.WriteLine("*")
        End If
    Loop

End Sub

结束模块

Answer 1

最简单的情况是使用 this constructor overload 创建 2 个字符串：

Sub DrawStars(ByVal Spaces As Integer, ByVal Stars As Integer, ByVal TotalChars As Integer)
    Console.Write(new String(" "C, Spaces))
    Console.Write(new String("*"C, Stars))
End Sub

上述代码不受无效输入参数的保护。

Answer 2

你必须改变你的条件。根据Main，TotalChars 已经是Stars + Spaces。

Do Until TotalChars = Stars + Spaces  '<-- Already True!
    If Spaces > 0 The
        Output = Console.ReadLine
    Else
        Console.WriteLine("*")
    End If
Loop

你也没有增加TotalChars，所以让我们换成2个For循环，因为@dotnetom已经展示了一种创建带有空格和星号的字符串的简单方法。

For i As Integer = 1 To Spaces
    Console.Write(" ")
Next
For i As Integer = 1 To Stars
    Console.Write("*")
Next

这不应该是一种复制和粘贴解决方案。这更像是一个示例，以及我在您的代码中看到的问题 =)