Chapter 4, Problem 1E

Explanation of Solution

Program

Public Class frmMain

'declaring variables of string type

Dim capital As String

Dim state As String

'display button click

Private Sub btnDisplay_Click(sender As Object, e As EventArgs) Handles btnDisplay.Click

'display state and capital on label

lblCapital.Text = String.Format(" State : {0} , Capital is : {1}", state, capital)

'change forecolor of label

lblCapital.ForeColor = Color.Maroon

'change backcolor of label

lblCapital.BackColor = Color.Yellow

End Sub

'Exit button click

Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click

'when this button clicked close the application

Application.Exit()

End Sub

'checkChanged event for radio button texas

Private Sub rbtTaxas_CheckedChanged(sender As Object, e As EventArgs) Handles rbtTaxas.CheckedChanged

'clear text on label

lblCapital.Text = ""

'if radio button texas is checked

If rbtTaxas.Checked = True Then

'set the value of variable capital

capital = "Austin"

'set the state name as radio button text

state = rbtTaxas.Text

End If

End Sub

'checkChanged event for radio button washington

Private Sub rbtWashington_CheckedChanged(sender As Object, e As EventArgs) Handles rbtWashington.CheckedChanged

'clear text on label

lblCapital.Text = ""

'if radio button washington is checked

If rbtWashington.Checked = True Then

'set the value of variable capital

capital = "Olympia"

'set the state name as radio button text

state = rbtWashington...