问题
填空题
设窗体上有一个名称为Combo1的组合框，并有下列程序：
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If______=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.Addltem
End If
End If
End Sub
程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除；否则把编辑区中的文本添加到列表的尾部。请填空。
答案
参考答案：KeyAscii Combol.Text
解析： 组合框(CombolBox)将文本框与列表框的特性组合在一起，即可在组合框的文本框部分输入信息。
本题在组合框的KeyPress事件过程中，首先判断当前是否按下Enter键，即参数KeyAscii的值是否等于13，若是则利用For循环语句(K初值为0，终值为Combo1.ListCount-1)，逐一判断组合框列表框中的各项是否与其文本输入框中的内容一致，若一致则清空组合框的文本框，并且退出循环。循环结束后若没有找到相同内容，则通过组合框的AddItem方法将当前文本输入框中的内容(Combo1.Text)添加到组合框的列表框中。