' Michael Freeland Exersice 5.7 10/19/17
' Displays triangels one below the other
Public Class Triangels
    'display triangels made form asterisks using nested for .. next statments.
    Private Sub Triangles_load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' first triangle
        For row 1 to 10
            For star = 1 To row
                outputTextBox.AppendText("*")
            Next star

            outputTextBox.AppendText(vbCrLf)
        Next row

        outputTextBox.AppendText(vbCrLf) ' skip a line

        ' second triangle
        For row = 1 To 10
            For star = 0 To (10 - row)
                outputTextBox.AppendText("*")
            Next star

            outputTextBox.AppendText(vbCrLf)
        Next row

        outputTextBox.AppendText(vbCrLf) 'skip line

        ' third triangle
        For row = 1 To 10
            For spaces = 1 To (row - 1)
                outputTextBox.AppendText(" ")
            Next spaces

            For star = 0 To (10 - row)
                outputTextBox.AppendText("*")
            Next star

            outputTextBox.AppendText(vbCrLf)
        Next row

        outputTextBox.AppendText(vbCrLf) ' skip a line

        'fourth triangle
        For row = 1 To 10
            For spaces = 1 To (10 - row)
                outputTextBox.AppendText(" ")
            Next spaces

            For star = 1 To row
                outputTextBox.AppendText("*")
            Next star

            outputTextBox.AppendText(vbCrLf)
        Next row
    End Sub ' trangles_load
End Class ' triangles