Private Sub C1_Click()
'Dim flag As Boolean
'题目：
'For i = 0 To ?
'    If Cb1.List(i) = ? Then
'        flag = True
'    Else
'        flag = False
'    End If
'Next
'If flag Then
'    MsgBox "已有此项"
'    Cb1.Text = ""
'Else
'    Cb1.  ?  Cb1.Text
'End If