在窗体上画一个名称为Combol的组合框 画两个名称分别为Label1和Label2及Caption
在窗体上画一个名称为Combol的组合框，画两个名称分别为Label1和Label2及Caption，属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”，如图16-3所示；如果存在，则在Label2中给出提示“输入项已在组合框中”。请在【 】、【 】和【 】处将程序补充完整。 Private Sub Comhel【 】(KeyAscii As Integer) If KeyAseii=13 Then For i=0 To Combol. ListCount-1 If Combol. Text=【 】Then LabelCaption="输入项已在组合框中" Exit Sub End If Next i LabelCaption="已成功添加输入项" Combol.【 】Combol. Text End If End Sub 
请帮忙给出正确答案和分析，谢谢！
参考解答
482***265
2023-07-22 17:21:24
正确答案：KeyPress combol. List(i) AddItem
当KeyAscii为13时，表示按下回车键若要组合框控件接收一个回车事件，则要使用Combol_KeyPress事件。ListCount属性列出组合框中表项的数量；List属性保存了组合框中所有值的数组；Addltem方法用来在列表框中插入一行文本。
相似问题
在Visual Basic6.0中 InputBox函数用于产生一个______对话框。请帮忙给出正
在Visual Basic6 0中，InputBox函数用于产生一个______对话框。请帮忙给出正确答案和分析，谢谢！
设有如下程序 Private Sub Fom1_Click( ) Dim s As Integer
设有如下程序 Private Sub Fom1_Click( ) Dim s As Integer，b As Integer a=20：b=50 p1 a，b p2 a，b p3 a，b Print"a="；a，"b=";b
为了提高程序的易读性 同的为减少错误 提高软件开发效率 编码时应注意养成良好的【 】。请帮忙给出正确
为了提高程序的易读性，同的为减少错误，提高软件开发效率，编码时应注意养成良好的【 】。请帮忙给出正确答案和分析，谢谢！
下列程序的功能是：弹出一个对话框询问用户是否输出 如果是 则输出；否则结束。请填空。 Sub Pri
下列程序的功能是：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请填空。 Sub PrintOut() Dim a As Integer a=MsgBox("输出结果?
表达式(7/3+1)*(18/-1)的值是______。请帮忙给出正确答案和分析 谢谢！
表达式(7 3+1)*(18 -1)的值是______。请帮忙给出正确答案和分析，谢谢！
