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

这个还真不行，单步调试发现在Combo1_click未执行完时值还是“上海”，但一执行“End Sub”后就变成空了，可能Combo1_click事件结束该控件还进行了其他操作，是vb内部的，无法控制。

我用数组赋值通过For i=1 to 语句来实现.把我作的粘上，让你参考
Private Sub Form_Load()
dim gan(1 to 10)
gan(1) = "甲": gan(2) = "乙": gan(3) = "丙": gan(4) = "丁": gan(5) = "戊"
gan(6) = "己": gan(7) = "庚": gan(8) = "辛": gan(9) = "壬": gan(10) = "癸"
   For i = 0 To 10
    Combo1.AddItem gan(i)
   Next i
Combo1.text="丁"
End Sub


[ 本帖最后由 chen3523 于 2015-1-5 22:29 编辑 ]

Private Sub Combo1_click()
list
End Sub


Private Sub Form_Load()
Combo1.list(0) = "a"
Combo1.list(1) = "b"
Combo1.Text = "no"
End Sub

Sub list()
Combo1.list(0) = "c"
Combo1.list(1) = "d"
Combo1.Text = "ok"
End Sub

不用AddItem，用list赋值就可以实现。这两种赋值方式是不是有所区别。