vb6中的combo控件怎么设置默认值？

设置第一个选项为默认值:
Combo1.ListIndex = 0

当选择第二个的时候弹出2，在选第一个的时候弹出1:

Private Sub Combo1_Click()
If Combo1.ListIndex = 0 Then
MsgBox "1"
ElseIf Combo1.ListIndex = 1 Then
MsgBox "2"
End If
End Sub

实现思路：在Combo1中增加元素，之后放入初始值，然后设置text属性。
参考代码如下：
Private Sub Form_Load()
Combo1.AddItem "test"
Combo1.Text = Combo1.List(0)
End Sub

ListIndex 表示当前选择项的索引，属性 List 是个数组，保存所有选项的内容。List(ListIndex) 就指向当前选择项的内容。
要默认选择某项，在其他事件（通常是 Form_Load）里设置
ListIndex = 0
鼠标选择某项会触发 Click 事件，并把选择项的内容显示在上面的文本框里，并触发 Change 事件，所以如果仅仅要对鼠标选择某项进行反应，还是在 Click 事件里处理的好。

这个不需要设置的，本来就是这样的．
所谓默认值的设置：
Combo1.text=combo1.list(0)