填空题
请填空。
Private Sub Combol_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
For i=0 To Combo1.ListCount-1
If Combo1.Text=【 】Then
Label2.Caption="输入项已在组合框中。"
Exit Sub
End If
Next i
Label2.Caption="已成功添加新输入项。"
Combo1.【 】Comb01.Text
End If
End Sub