[填空题] 在窗体上画一个名称为Combol的组合框，画两个名称分别为Label1和Label2及Caption，属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(A

17 查阅

[填空题] 在窗体上画一个名称为Combol的组合框，画两个名称分别为Label1和Label2及Caption，属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”，如图16-3所示；如果存在，则在Label2中给出提示“输入项已在组合框中”。请在【11】、【12】和【13】处将程序补充完整。

Private Sub Comhel 【11】 (KeyAscii As Integer)

If KeyAseii=13 Then

For i=0 To Combol. ListCount-1

If Combol. Text= 【12】 Then

Label2. Caption="输入项已在组合框中"

Exit Sub

End If

Next i

Label2. Caption="已成功添加输入项"

Combol. 【13】 Combol. Text

End If

End Sub

参考答案:

[11]KeyPress [12]combol. List(i) [13]AddItem解析：[分析]：当KeyAscii为13时，表示按下回车键若要组合框控件接收一个回车事件，则要使用Combol_KeyPress事件。ListCount属性列出组合框中表项的数量；List属性保存了组合框中所有值的数组；Addltem方法用来在列表框中插入一行文本。

计算机考试