栏目分类:
子分类:
返回
名师互学网用户登录
快速导航关闭
当前搜索
当前分类
子分类
实用工具
热门搜索
名师互学网 > IT > 面试经验

[填空题] 设窗体上有一个名称为Combo1的组合框,并有以下程序: Private Sub Combo1_KeyPress(KeyAscii As Integer) If (9) =13 Th

面试经验 更新时间: 发布时间: IT归档 最新发布 模块sitemap 名妆网 法律咨询 聚返吧 英语巴士网 伯小乐 网商动力

[填空题] 设窗体上有一个名称为Combo1的组合框,并有以下程序:  Private Sub Combo1_KeyPress(KeyAscii As Integer)  If  (9) =13 Th

[填空题] 设窗体上有一个名称为Combo1的组合框,并有以下程序:
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If (9) =13 Then ’回车符的ASCII码是13
For k=0 To Combo1.ListCount-1
If Combo1.Text=Combo1.List(k) Then
combo1.Text=""
Exit For
End If
Next k
If Combo1.Text<> "" Then
Combo1.AddItem (10)
End If
End If
End Sub
程序的功能是:在组合框的编辑区中输入文本后按回车键,则检查列表中有无与此文本相同的项目,若有,则把编辑区中的文本删除,否则把编辑区中文本添加到列表的尾部,请填空。


参考答案:

(9)KeyAscii (10)Combo1.Text

问题解析:

当在组合框中输入字符时将产生KeyPress事件,只有当输入回车键时才检查选项,所以第[9]空应填KeyAscii,表示当按键的ASCII码为13(回车键)时进行检查;检查时,通过For循环用组合框的每一个选项Combo1.List(k)与输入的值Combo1.Text比较,如果相等(选项已存在)则删除编辑区的内容(Combo1.Text=""),等到循环结束,如果Combo1.Text<>"",则说明选项中不存在输入的内容,应添加该内容到列表项尾部。添加选项的方法AddItem有两个参数:第一个表示添加的内容,第二个表示添加的位置,默认将把选项添加到尾部,所以这里只需填第一个参数:Combo1.Text。
转载请注明:文章转载自 www.mshxw.com
本文地址:https://www.mshxw.com/it/258352.html
我们一直用心在做
关于我们 文章归档 网站地图 联系我们

版权所有 (c)2021-2022 MSHXW.COM

ICP备案号:晋ICP备2021003244-6号