![[填空题] 在窗体上画一个名称为Combo1的组合框，然后画两个名称分别为Label1、Label2，标题分别为“城市名称”和“空白”的标签。程序运行后，在组合框中输入一个新项目并按同车键，如果输入的](http://www.mshxw.com/aiimages/31/252576.png "[填空题] 在窗体上画一个名称为Combo1的组合框，然后画两个名称分别为Label1、Label2，标题分别为“城市名称”和“空白”的标签。程序运行后，在组合框中输入一个新项目并按同车键，如果输入的")
[填空题] 在窗体上画一个名称为Combo1的组合框，然后画两个名称分别为Label1、Label2，标题分别为“城市名称”和“空白”的标签。程序运行后，在组合框中输入一个新项目并按同车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在Label2中给出提示“已成功添加新输入项”，如图所示。如果输入的项目己存在，则在Label2中给出提示“输入项已在组合框中。”。请填空。
![[填空题] 在窗体上画一个名称为Combo1的组合框，然后画两个名称分别为Label1、Label2，标题分别为“城市名称”和“空白”的标签。程序运行后，在组合框中输入一个新项目并按同车键，如果输入的](/uploadfile/member/20180926/1537964721.jpg "[填空题] 在窗体上画一个名称为Combo1的组合框，然后画两个名称分别为Label1、Label2，标题分别为“城市名称”和“空白”的标签。程序运行后，在组合框中输入一个新项目并按同车键，如果输入的")
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If______=13 Then
For i=0 To Combo1.ListCount-1
IfCombo1.Text=______Then
Label2.Caption="输入项已在组合框中。"
Exit Sub
End If
Next i
Label2.Caption="已成功添加新输入项"
Combo1.______Combo1.Text
End If
End Sub
参考答案：
KeyAscii；Combo1.list(i)；AddItem问题解析:
本题考查组合框操作。在组合框的键盘按下事件中，如果按下了回车键，也就是KeyAscii的值为13时，开始扫描整个组合框中现有的列表项信息，如果在组合框的Text属性输入的字符串和Combo1.List(i)相同，则不需受加入到组合框中，否则利用AddItem方法加入到组合框中。
