Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement