[填空題] 在窗體上畫(huà)一個(gè)名稱為Combo1的組合框,然后畫(huà)兩個(gè)名稱分別為L(zhǎng)abe1、Label2,標(biāo)題分別為"城市名稱"和空白的標(biāo)簽。程序運(yùn)行后,在組合框中輸入一個(gè)新項(xiàng)目并按回車鍵,如果輸入的項(xiàng)目在組合框的列表中不存在,則自動(dòng)將其添加到組合框的列表中,并在Label2中給出提示"已成功添加新輸入項(xiàng)。",如圖所示。如果輸入的項(xiàng)目已存在,則在Label2中給出提示"輸入項(xiàng)已在組合框中。"。 請(qǐng)?zhí)羁?。Private Sub Combol_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then For i=0 To Combo1.ListCount-1If Combo1.Text=【 】ThenLabel2.Caption="輸入項(xiàng)已在組合框中。"Exit SubEnd IfNext i Label2.Caption="已成功添加新輸入項(xiàng)。"Combo1.【 】Comb01.TextEnd If End Sub

ComboA.A,ist(i),AddItem

組合框中的List屬性用來(lái)列出表項(xiàng)的內(nèi)容。該屬性保存了列表框中所有數(shù)組的值,可以通過(guò)下標(biāo)訪問(wèn)數(shù)組中的值(下標(biāo)從0開(kāi)始),其格式為：[組合框.]"St(下標(biāo)),特別注意的是"下標(biāo)"相當(dāng)于索引值,指示著表項(xiàng)中某一項(xiàng)表中內(nèi)容的位置,第一項(xiàng)的索引值為0,第二項(xiàng)為1,依此類推,這個(gè)參數(shù)非常重要不可省略。此題循環(huán)變量i從0開(kāi)始循環(huán)直至組合框中總的表項(xiàng)數(shù),不難理解這相當(dāng)于上面提到的下標(biāo)參數(shù)。組合框的AddItem方法用于在組合框中插入一行文本,其格式為：組合框.AddItem項(xiàng)目字符串[,索引值]。