![[填空题] 在窗体上画一个名称为Combo1的组合框，然后画两个名称分别为Label1、Label2，标题分别为“城市名称”和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目](http://www.mshxw.com/aiimages/31/256874.png "[填空题] 在窗体上画一个名称为Combo1的组合框，然后画两个名称分别为Label1、Label2，标题分别为“城市名称”和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目")
[填空题] 在窗体上画一个名称为Combo1的组合框，然后画两个名称分别为Label1、Label2，标题分别为“城市名称”和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在Label2中给出提示“已成功添加新输入项。”，如图3所示。如果输入的项目已存在，则在Label2中给出提示“输入项已在组合框中。”。请填空。
![[填空题] 在窗体上画一个名称为Combo1的组合框，然后画两个名称分别为Label1、Label2，标题分别为“城市名称”和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目](/uploadfile/member/20180926/1537963855.jpg "[填空题] 在窗体上画一个名称为Combo1的组合框，然后画两个名称分别为Label1、Label2，标题分别为“城市名称”和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目")
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
For i=0 To Combo1.ListCount-1
If Combo1.Text= (7) Then
Label2.Caption="输入项已在组合框中。"
Exit Sub
End If
Next i
Label2 Caption="已成功添加新输入项。"
Combo1. (8) Combo1.Text
End If
End Sub
参考答案：
(7)Combo1.List(i) (8)AddItem问题解析:
题中语句“if KeyAscii=13 then”用于判断在组框中输入一个新项目后是否按下回车键，因为回车键的ASCII码为13；语句“if Combo1.Text=______ then”用于判断输入的项目在组合框的列表中是否存在，而List()属性保存了组合框列表中所有的项目，因此第[7]空中应填写Combo1.list(i)；如果输入的项目不存在，则需要使用AddItem方法向组合框中加入新项目，所以第[8]空中应填写AddItem。
