Imports System

Imports Microsoft.VisualBasic

​

​

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 need 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