Private Sub Combo1_click()
list   '单击combo1后控件显示为空,如何显示值为 上海
End Sub

Private Sub Form_Load()
Combo1.AddItem "广东"
Combo1.AddItem "山西"
Combo1.Text = "北京"   '这里显示北京
End Sub
Private Sub list()
Combo1.Clear     '删除这句则显示 ,但下拉项重复

Combo1.AddItem "湖南"
Combo1.AddItem "湖北"
Combo1.Text = "上海"   '第一项无法显示上海

End Sub