Squared

Public Class frmSquare
    Dim intStarting As Integer
    Dim intEnding As Integer
    Dim intNumber As Integer
    Dim intTotalNumber As Integer
    Dim intLast As Integer

    Private Sub btnQuit_Click(sender As Object, e As EventArgs) Handles btnQuit.Click
        End
    End Sub

    Private Sub txtStarting_TextChanged(sender As Object, e As EventArgs) Handles txtStarting.TextChanged
        lblNumber.Text = ""
        lblNumber.Text = "X"
        lblSquared.Text = ""
        lblSquared.Text = "X Squared"
        lblCubed.Text = ""
        lblCubed.Text = "X Cubed"
    End Sub

    Private Sub btnCalc_Click(sender As Object, e As EventArgs) Handles btnCalc.Click
        intStarting = txtStarting.Text
        intEnding = txtEnding.Text

        If IsNumeric(txtStarting.Text) And Val(txtStarting.Text) > 0 And IsNumeric(txtEnding.Text) And Val(txtEnding.Text) > 0 Then

            For intNumber = intStarting To intEnding
                lblNumber.Text = lblNumber.Text & vbCrLf & intNumber & " "
            Next intNumber

            For intNumber = intStarting To intEnding
                lblSquared.Text = lblSquared.Text & vbCrLf & (intNumber * intNumber)
            Next intNumber

            For intNumber = intStarting To intEnding
                lblCubed.Text = lblCubed.Text & vbCrLf & (intNumber * intNumber * intNumber)
            Next intNumber

            For intNumber = intStarting To intEnding Step -1
                lblNumber.Text = lblNumber.Text & vbCrLf & intNumber & " "
            Next intNumber

            For intNumber = intStarting To intEnding Step -1
                lblSquared.Text = lblSquared.Text & vbCrLf & (intNumber * intNumber) & " "
            Next intNumber

            For intNumber = intStarting To intEnding Step -1
                lblCubed.Text = lblCubed.Text & vbCrLf & (intNumber * intNumber * intNumber) & " "
            Next intNumber

        Else
            MessageBox.Show("Please enter a valid number.")
            txtStarting.Focus()
        End If
    End Sub

    Private Sub txtEnding_TextChanged(sender As Object, e As EventArgs) Handles txtEnding.TextChanged
        lblNumber.Text = ""
        lblNumber.Text = "X"
        lblSquared.Text = ""
        lblSquared.Text = "X Squared"
        lblCubed.Text = ""
        lblCubed.Text = "X Cubed"
    End Sub
End Class