[填空題] 在窗體上畫一個(gè)名稱為Combo1的組合框，然后畫兩個(gè)名稱分別為Label1、Label2，標(biāo)題分別為“城市名稱”和空白的標(biāo)簽。程序運(yùn)行后，在組合框中輸入一個(gè)新項(xiàng)目并按回車鍵，如果輸入的項(xiàng)目在組合框的列表中不存在，則自動(dòng)將其添加到組合框的列表中，并在Label2中給出提示“已成功添加新輸入項(xiàng)?！保鐖D3所示。如果輸入的項(xiàng)目已存在，則在Label2中給出提示“輸入項(xiàng)已在組合框中?！?。請?zhí)羁铡?/p>

Private Sub Combo1_KeyPress(KeyAscii As Integer)

If KeyAscii=13 Then

For i=0 To Combo1.ListCount-1

If Combo1.Text= (7) Then

Label2.Caption="輸入項(xiàng)已在組合框中。"

Exit Sub

End If

Next i

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

Combo1. (8) Combo1.Text

End If

End Sub

(7)Combo1.List(i) (8)AddItem

題中語句“if KeyAscii=13 then”用于判斷在組框中輸入一個(gè)新項(xiàng)目后是否按下回車鍵，因?yàn)榛剀囨I的ASCII碼為13；語句“if Combo1.Text=______ then”用于判斷輸入的項(xiàng)目在組合框的列表中是否存在，而List()屬性保存了組合框列表中所有的項(xiàng)目，因此第[7]空中應(yīng)填寫Combo1.list(i)；如果輸入的項(xiàng)目不存在，則需要使用AddItem方法向組合框中加入新項(xiàng)目，所以第[8]空中應(yīng)填寫AddItem。