Question

vb中 combobox控件

combobox控件中list属性依次为1987、1988、1989、1990等，例如当选择combo.text=1988是，其实第二个条目，之后打印出1988是list中的第几个条目

Answer 1

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "1987"
Print "这是combo1控件的第" & Combo1.ListIndex + 1 & "条记录"
Case "1988"
Print "这是combo1控件的第" & Combo1.ListIndex + 1 & "条记录"
Case "1989"
Print "这是combo1控件的第" & Combo1.ListIndex + 1 & "条记录"
Case "1990"
Print "这是combo1控件的第" & Combo1.ListIndex + 1 & "条记录"
End Select
End Sub

Private Sub Form_Load()
Combo1.AddItem 1987
Combo1.AddItem 1988
Combo1.AddItem 1989
Combo1.AddItem 1990
Combo1.Text = "1987"
End Sub