[填空題] 在窗體上畫一個名稱為Combol的組合框，畫兩個名稱分別為Label1和Label2及Caption，屬性分別為“城市名稱”和空白的標(biāo)簽。程序運(yùn)行后，當(dāng)在組合框中輸入一個新項后按回車鍵(ASCII碼為13)時，如果輸入的項在組合框的列表中不存在，則自動添加到組合框的列表中，并在Label2中給出提示“已成功添加輸入項”，如圖16-3所示；如果存在，則在Label2中給出提示“輸入項已在組合框中”。請在 【11】 、 【12】 和 【13】 處將程序補(bǔ)充完整。

Private Sub Comhel 【11】 (KeyAscii As Integer)

If KeyAseii=13 Then

For i=0 To Combol. ListCount-1

If Combol. Text= 【12】 Then

Label2. Caption="輸入項已在組合框中"

Exit Sub

End If

Next i

Label2. Caption="已成功添加輸入項"

Combol. 【13】 Combol. Text

End If

End Sub

[11]KeyPress [12]combol. List(i) [13]AddItem解析：[分析]： 當(dāng)KeyAscii為13時，表示按下回車鍵若要組合框控件接收一個回車事件，則要使用Combol_KeyPress事件。ListCount屬性列出組合框中表項的數(shù)量；List屬性保存了組合框中所有值的數(shù)組；Addltem方法用來在列表框中插入一行文本。