填空题
Private Sub Combo1_Click( )
Call ShowItem(Combo1, Label1)
End Sub
Private Sub Combo2_Click()
Call ShowItem(Combo2, Label2)
End Sub
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
【 】.Caption =【 】.Text
End Sub