问题 填空题

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

答案

参考答案:Combo1.Text

解析: 判断输入键是否为回车键,就是判断键盘输入的KeyAscii值是否等于13;For循环是从组合框的第一项往最后一项查找,用ListCount属性返回组合框中项目的个数,List-Count-1表示组合框的最后一项;如果Combo1.Text不为空,则添加组合框的编辑文本,也就是Combo1.Text。

双选题
单项选择题