vb中的一段简单代码

Private Sub Combo1_KeyPress(KeyAscii As Integer)
Dim i%, find&
If KeyAscii = 13 Then
find = False
For i = 0 To Combo1.ListCount - 1
If Combo1.Text = Combo1.List(i) Then find = True
Next i
If Not find Then Combo1.AddItem Combo1.Text'这句我就是搞不懂
Combo1.Text = ""
End If
End Sub
解释：如果按下回车，则执行下面的命令：
Find为False
开始在列表中搜寻这些字符，如果找到，那么Find设为True
你搞不懂的一句：如果没有找到（Not Find 表示把布尔变量Find的值颠倒[False变为True，或者True变为False]），也就是当Find为False时，条件成立，执行下面的命令：
把当前Combo1中用户输入的文本加入到Combo1的列表中
判断的执行结束
Combo1按下键的结束

Private Sub Form_Load()
Combo1.Text = ""
End Sub
这段代码是让加载窗体时把Combo1的文本设为空

If Not find Then Combo1.AddItem Combo1.Text
完全等效于:
If find=False Then Combo1.AddItem Combo1.Text
如果在下列的列表项中找不到与输入相同的内容(find=False),把输入内容Combo1.Text添加到组合框的下拉列表项中.

如果 在combo1中没有找到输入的字符串 那么 在combo1中加入这个字符串

hmkikikaki对了
那句
If Not fin