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