[填空题] 设窗体上有—个名称为Combo1的组合框,并有以下程序:Privale Sub Combol_ KeyPress(KeyAscii As Integer) If 【9】 =13 Then

26 查阅

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

参考答案:

[9]KeyAscii

[10]Combol.Text[知识点] 键盘与鼠标事件过程[评析] 当按下键盘上的某个键时,将发生KeyPress事件。参数KeyAscii是一个预定义的变量,执行KeyPress事件过程时,KeyAscii是所按键的ASCII码。当按下回车符时,KeyAscii的值是13。本题中程序首先利用一个If语句判断所按下的是否为回车符,如果是,用一个For循环语句检查组合框列表中有无与组合框编辑区中文本相同的项目,如果有则把组合框编辑区中的文本删除。接着再用一个If语句判断组合框编辑区中的文本是否为空,如果不为空,将组合框编辑区中文本添加到组合框列表的尾部。第9个空用来判断所按下的键是否为回车符,即FIKeyAscii的值是否为13,因此第9个空中应填KeyAscii。第10个空用来将组合框编辑区中的文本添加到组合框列表的尾部,因此应填Combo1.Text。

计算机考试