Cómo escribir un programa en vb (seleccione uno de los dos cuadros de lista para que aparezca en el cuadro de texto)

Agregue 2 controles de cuadro de lista y 1 control de cuadro de texto en el formulario con nombres predeterminados. Utilice el siguiente código para probar el efecto:

Private Sub Form_Load()

List1.AddItem "Beijing"

List1.AddItem "Shanghai"

List2.AddItem "Beijing"

List2.AddItem "Shanghai"

End Sub

Sub lista privada1_Click()

Llamar a showTxt

End Sub

Sub lista privada2_Click()

Llamar a showTxt

End Sub

Privado Sub showTxt ()

Si List2.ListIndex = List1.ListIndex Entonces

Text1.Text = ""

De lo contrario

Text1. Texto = Lista1.Texto & "a" & Lista2.Text

Finalizar si

Fin Sub