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

Private Sub Combol_KeyPress(KeyAscii As Integer)

If KeyAscii=13 Then

For i=0 To Combol.ListCount-1

If Combol.Text= 【2】 Then

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

Exit Sub

End If

Next i

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

Combol. 【3】 Combol. Text

End If

End Sub

Combol. List(i) AddItem

考查對組合框控件的使用，當(dāng)輸入新項后按下＜Enter＞鍵，要捕捉鍵盤的ASCII碼應(yīng)在KeyPress事件中。在Combol的KeyPress事件過程中通過循環(huán)判斷用戶的輸入是否已在列表中，所以第二空因填Combol.List(i)。如果用戶輸入的文本為新的內(nèi)容，就應(yīng)該添加到組合框中，應(yīng)使用AddItem方法。