Question

VB组合框的问题。。

设计一个利用简单组合框对各省名称进行维护的程序，要求就是，添加不重复的各名称到组合框，对不正确的名称可以进行修改。按拼音顺序有序显示。

其实代码我有，不过我对代码某部分有一些疑问，希望能解答。

Dim pos%

Private Sub Combo1_Click()
pos = Combo1.ListIndex
End Sub

Private Sub Combo1_keypress(keyascii As Integer)
Dim i%, find As Boolean
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

Private Sub Command1_Click()
Combo1.List(pos) = Combo1.Text
End Sub

这是代码
我想问的是 1.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 = ""
为什么当敲击回车时，THEN Find=false啊？ 是首先规定没找到？然后从0项开始查找，如果找到FIND=TRUE。。为什么在第二部首先规定FIDN=FALSE呢？
2.pos=combo1.listindex, 这个listindex， 是什么意思？是指选定项的索引号还是选定项的内容啊。后面有一代码是，Combo1.list(pos)=combo1.text。所以这个listindex是指的选定项的索引号么？

Answer 1

1.就是为了找到后不添加,找不到才添加(If Not find),等于先设置一开关状态,其实不需要了(可以不要这句),因为下面的选择已经很明确了
2..pos=combo1.listindex是给pos变量赋值,这个值是在combo1里选定项的索引号(listindex),以便给按钮事件提供修改的依据,这个依据就是索引号,也就是将要修改第几项,Combo1.list(pos)=combo1.text是指替换选定项的内容,就是在combo1里选定某一项,然后在combo1里输入新的内容,再点击一下按钮,根据之前提供的依据,选定的那一项的内容就被替换成修改后的内容了