在窗体上画一个名称为Combo1的组合框,画两个名称分别Labe11和Labe12及Caption属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项后按(Enter)键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Labe12中给出提示“已成功添加输入项”,如图20-3所示;如果存在,则在Labe12中给出提示“输入项已在组合框中”。请在【8】、【9】和【10】处将程序补充完整。
Private Sub Combo1 【8】 (KeyAscii As Integer) If KeyAscii=13 ThenFor i=0 To Combo1;ListCount-1If Combo1.Text= 【9】 Then Labe12.Caption="输入项已在组合框中" Exit Sub End IfNext iLabe12.Caption="已成功添加输入项"Combo1. 【10】 Combo1.Text End If End Sub
参考答案:[8]KeyPress[9]Comb01.List(i)[10]AddItem
解析:解析:考查对组合框控件的使用,当输入新项后按下<Enter>键,要捕捉键盘的ASCII码,应在KeyPress事件中。在Combo1的KeyPress事件过程中通过循环判断用户的输入是否已在列表中,所以第二空因填Comb01.List(i)。如果用户输入的文本为新的内容,就应该添加到组合框中,应使用AddItem方法。