[填空题] 在窗体上画一个名称为Combo1的组合框，画两个名称分别Labe11和Labe12及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按(Enter)

[填空题] 在窗体上画一个名称为Combo1的组合框，画两个名称分别Labe11和Labe12及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按(Enter)键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Labe12中给出提示“已成功添加输入项”，如图20-3所示；如果存在，则在Labe12中给出提示“输入项已在组合框中”。请在【8】、【9】和【10】处将程序补充完整。

Private Sub Combo1 【8】 (KeyAscii As Integer)

If KeyAscii=13 Then

For i=0 To Combo1；ListCount-1

If Combo1．Text= 【9】 Then

Labe12．Caption="输入项已在组合框中"

Exit Sub

End If

Next i

Labe12．Caption="已成功添加输入项"

Combo1． 【10】 Combo1．Text

End If

End Sub

[8]KeyPress[9]Comb01．List(i)[10]AddItem

解析：考查对组合框控件的使用，当输入新项后按下＜Enter＞键，要捕捉键盘的ASCII码，应在KeyPress事件中。在Combo1的KeyPress事件过程中通过循环判断用户的输入是否已在列表中，所以第二空因填Comb01．List(i)。如果用户输入的文本为新的内容，就应该添加到组合框中，应使用AddItem方法。