Imports System

Public Module Module1

     'Global variables accessed by all subroutines

    Dim MaxNoOfStars, NoOfStars, NoOfSpaces As Integer

​

    'Main program starts here

    Sub Main()

        InitialiseNoOfSpacesAndStars()

        Do

            OutputLeadingSpaces()

            OutputLineOfStars()

            AdjustNoOfSpacesAndStars()

        Loop While NoOfStars <= MaxNoOfStars

        Console.ReadLine()

    End Sub

​

    'Set the size of the pyramid of stars

    Sub InitialiseNoOfSpacesAndStars()

        Console.Write("How many stars at the base (1-40)? ")

        MaxNoOfStars = Console.ReadLine()

        'Calculate spaces needed from tip

        NoOfSpaces = MaxNoOfStars / 2

        'Set tip of pyramid to one star

        NoOfStars = 1

    End Sub

​

    'Outputs spaces before stars

    Sub OutputLeadingSpaces()

        Dim count As Integer

        For count = 1 To NoOfSpaces Step 1

            Console.Write(" ")

        Next count

    End Sub

​

    'Outputs stars

    Sub OutputLineOfStars()

        Dim count As Integer

        For count = 1 To NoOfStars

            Console.Write("*")

        Next

        'Move to next line

        Console.WriteLine()

    End Sub

​

    'Adjusts number of stars & spaces after output

    Sub AdjustNoOfSpacesAndStars()

        NoOfSpaces = NoOfSpaces - 1

        NoOfStars = NoOfStars + 2

​

    End Sub

End Module