![[填空题] 在窗体上画一个名称为Combol的组合框，画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASC](http://www.mshxw.com/aiimages/31/257274.png "[填空题] 在窗体上画一个名称为Combol的组合框，画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASC")
[填空题] 在窗体上画一个名称为Combol的组合框，画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示：如果存在，则在Label2中给出提示“输入项已在组合框中”。请在 【12】 、 【13】 和 【14】 处将程序补充完整。![[填空题] 在窗体上画一个名称为Combol的组合框，画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASC](/uploadfile/member/20180926/1537964946.jpg "[填空题] 在窗体上画一个名称为Combol的组合框，画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASC")
Private Sub Combo1 【12】 (Key Ascii As Integer) If Key Ascii=13 Then For i=0 TO Comb01.ListCount-1If Combo1.Text= 【13】 Then Label2.Caption=“输入项已在组合框中” Exit Sub End If Next i Label2.Caption=“已成功添加输入项” Combo1. 【14】 Combo1.TextEnd IfEnd Sub
参考答案：
[12] KeyPress问题解析:
[13] Comb01.List(i) [14] Addltem 当按回车键，即触发组合框的KeyPress文件，故[12]中填KeyPress。 List属性返回组合框的表项，可以通过下标来访问，[13]中填Combo1.list(i)即指组合框中所有表项。 对于[14]，Additem方法为组合框添加表项。
