请教一个ComboBox的问题

Question

有两个ComboBox,Combo1和Combo2,譬如Combo1有A,B,C,D四个选项,Combo2有A,B,C,D,E,F,G,H,I,J,K十一个选项,当在Combo1中选择A,在Combo2中依次选择A,B,C,D,E,F,G,H,I,J,K,并在选择一项后将其删除,这时再删除Combo1中的A,当在Combo1中选择B时,又将A,B,C,D,E,F,G,H,I,J,K重新添入Combo2的选项中,请问用代码怎样实现?

Answer 1

private sub form_load()
Combo1.additem "A"
Combo1.additem "B"
Combo1.additem "C"
Combo1.additem "D"Combo2.additem "A"
Combo2.additem "B"
Combo2.additem "C"
Combo2.additem "D"
Combo2.additem "E"
Combo2.additem "F"
Combo2.additem "G"
Combo2.additem "H"
Combo2.additem "I"
Combo2.additem "J"
Combo2.additem "K"
end sub我现在的机器上没有装VB ，不好给你写代码。很简单的。我回头帮你搞顶

Answer 2

Private Sub Combo1_Click()
    additem
End SubPrivate Sub Combo2_Click()
    Combo2.RemoveItem Combo2.ListIndex
    If Combo2.ListCount = 0 Then
        Combo1.RemoveItem Combo1.ListIndex
    End If
End SubPrivate Sub Form_Load()
    Combo1.additem "A"
    Combo1.additem "B"
    Combo1.additem "C"
    Combo1.additem "D"
End SubPublic Sub additem()
    Combo2.additem "A"
    Combo2.additem "B"
    Combo2.additem "C"
    Combo2.additem "D"
    Combo2.additem "E"
    Combo2.additem "F"
    Combo2.additem "G"
    Combo2.additem "H"
    Combo2.additem "I"
    Combo2.additem "J"
    Combo2.additem "K"
End Sub