Public Class Exam2

 
    Private Sub cbState_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbState.SelectedIndexChanged
        '獲取當前選取的state值以便顯示其Capital
        Dim input As Int16
        input = cbState.SelectedIndex
        Select Case input
            Case 0
                TextBox1.Text = "Choose a state"
            Case 1
                TextBox1.Text = "Montgomery"
            Case 2
                TextBox1.Text = "Denver"
            Case 3
                TextBox1.Text = "Boise"
            Case 4
                TextBox1.Text = "Trenton"
            Case 5
                TextBox1.Text = "Bismarck"

        End Select
    End Sub

    Private Sub cbCapital_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbCapital.SelectedIndexChanged
        '獲取當前選取的capital值以便顯示其state
        Dim input As Int16
        input = cbCapital.SelectedIndex
        Select Case input
            Case 0
                TextBox2.Text = "Choose a Capital"
            Case 1
                TextBox2.Text = "Alabama"
            Case 2
                TextBox2.Text = "Colorado"
            Case 3
                TextBox2.Text = "Idaho"
            Case 4
                TextBox2.Text = "New Jersey"
            Case 5
                TextBox2.Text = "North Dakota"

        End Select
    End Sub
End Class