填空题
【说明】
在窗体上画一个名称为Combo1的组合框，画两个名称分别Labe11、Labe12及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键 (ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Labe12中给出提示“已成功添加输入项”；如果存在，则在Labe12中给出提示“输入项已在组合框中”。
【程序】
Private Sub Combo1{{U}} (1) {{/U}}(KeyAscii As Integer)
If KeyAscii={{U}} (2) {{/U}}Then
For i=0 To{{U}} (3) {{/U}}
If Combo1. Text={{U}} (4) {{/U}}Then
Labe12. Caption ="输入项已在组合框中"
Exit Sub
End If
Next i
Label2. Caption ="已成功添加输入项"
Combo1.{{U}} (5) {{/U}}Combo1.Text
End If
End Sub
1、
【正确答案】
1、KeyPress (2) 13 (3) Combol.ListCount-1
【答案解析】(4) Combol. List (i) (5) AddItem
[解析] 根据题意，“在组合框中输入一个新项后按回车键(ASCII码为13)时…”，因此Combol的事件名称应是Combol_KeyPress，即(1)空填"KeyPress”；(2)空判断按键是否是回车键，填“13”；如果是，再穷举组合框的所有列表项(即、(3)空填“Combol．ListCount-1”)，查看是否有等于输入项Combol．Text(即(4)空填“Combol．LisL(i)”)，有则在 Labe12中给出提示“输入项已在组合框中”，否则在Labe12中给出提示“已成功添加输入项”，并将输入项(Combol.Text)添加到组合框中，即 (5)空填"AddItem”。