Действительно борется с подчиненными процедурами при создании программы рисования звезд

Question

Im пытается создать вспомогательную процедуру, которая рисует последовательность пробелов и звезд, а затем выводит результат. Пользователь вводит количество звезд и количество пробелов, которые они хотели бы, а затем выводит звезды и пробелы на экране. Например, 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 

End Module

Answer 1

Необходимо изменить ваше состояние. TotalChars уже Stars + Spaces соответствует Main.

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 

Это не должно быть предназначено как копировать и вставить решения. Это больше пример и то, что я видел с вашим кодом =)

Answer 2

Простейшим случаем было бы создать 2 строки с помощью this constructor overload:

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 

Приведенный выше код не защищен от неверные входные параметры.