vb组合框练习题在线等。急!急 （简明电话号码簿 ）

Question

简明电话号码簿
功能要求：
简明电话号码簿，只要在左边的组合框中输入姓名，在右边的组合框中输入电话号码，再按新增按钮，就可将姓名与电话加入组合框中；而按删除按钮，则可将当前项目（包括姓名和电话号码）删除。若要查询某人的电话号码，只要在左边组合框中选定姓名，在右边组合框中自动出现对应的电话号码，反之亦然。
n

Answer 1

Private Sub Combo1_Click()
Combo2.ListIndex = Combo1.ListIndex
End Sub
Private Sub Combo2_Click()
Combo1.ListIndex = Combo2.ListIndex
End Sub
Private Sub Command1_Click()
Combo1.AddItem (Combo1.Text)
Combo2.AddItem (Combo2.Text)
Combo1.Text = ""
Combo2.Text = ""
'以上2行使保存后清零,避免重复保存,同时方便下次输入
End Sub
Private Sub Command2_Click()
Combo1.RemoveItem (Combo1.ListIndex)
Combo2.RemoveItem (Combo2.ListIndex)
Combo1.Text = ""
Combo2.Text = ""
End Sub

另外可以加一些在保存前避免保存零长度文本（内容空白）之类的代码，恕不赘述。