[填空题] 设窗体上有一个名称为Combo1的组合框，并有以下程序： Private Sub Combo1

[填空题] 设窗体上有一个名称为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。