[填空題] 在窗體上畫一個(gè)名稱為Combol的組合框，畫兩個(gè)名稱分別為L(zhǎng)abel1和Label2及Caption，屬性分別為“城市名稱”和空白的標(biāo)簽。程序運(yùn)行后，當(dāng)在組合框中輸入一個(gè)新項(xiàng)后按回車鍵(ASCII碼為13)時(shí)，如果輸入的項(xiàng)在組合框的列表中不存在，則自動(dòng)添加到組合框的列表中，并在Label2中給出提示“已成功添加輸入項(xiàng)”，如圖16-3所示；如果存在，則在Label2中給出提示“輸入項(xiàng)已在組合框中”。請(qǐng)?jiān)?u> 【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="輸入項(xiàng)已在組合框中"

Exit Sub

End If

Next i

Label2. Caption="已成功添加輸入項(xiàng)"

Combol. 【13】 Combol. Text

End If

End Sub

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