Private Sub Combo1_Change()
Select Case Combo1.Text
Case "cet"
 Combo2.AddItem "cet 考分查询"
 Combo2.AddItem "12月28日新考分预订"
 Combo2.AddItem "cet 无法回答"
 End Select
End Sub

解决方案 »

  1.   

    Private Sub Combo1_click() Combo2.AddItem "cet 考分查询"
     Combo2.AddItem "12月28日新考分预订"
     Combo2.AddItem "cet 无法回答"
     End Sub
      

  2.   

    我帮你试了一下,可以啊!不过,你是要手动输入"cet"后才触发的,而且combobox2也加载的。如果你的意思是让用户选择后再调用的话,就应该调click事件或lostfocus事件