form1.vb

ssd4 exam2的答案 只是参考 大家看看吧

Public Class Exam2
    Dim index As Integer
    Dim state() As String = {"Alaska", "Hawaii", "Kentucky", "Pennsylvania", "Texas"}
    Dim capital() As String = {"Juneau", "Honolulu", "Frankfort", "Harrisburg", "Austin"}
    Dim word As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Text = "Choose a state"
        TextBox1.Text = ""
        ComboBox2.Text = "Choose a capital"
        TextBox2.Text = ""
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        index = ComboBox1.SelectedIndex
        word = CStr(capital(index))
        TextBox1.Text = word
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        index = ComboBox2.SelectedIndex
        word = CStr(state(index))
        TextBox2.Text = word
    End Sub
End Class