vb组合框的使用问题

Private Sub C1_Click()

    If Cb1.ListCount = 0 Then

      MsgBox "当前的项目为0！没有要被查找的内容！", "36", "项目为空？？"

      Exit Sub

    End If

    For s = 0 To Cb1.ListCount - 1

        sintem = Cb1.List(s)

        If sintem = Cb1.Text Then

          Cb1.RemoveItem (s)

          MsgBox "已查找到符合要求的项，并已经移除", "48", "提示"

          Exit For

        Else

          If s = Cb1.ListCount - 1 Then

            MsgBox "没有查找到符合的项,将把这值添加到项目", "16", "没有搜索到"

            Cb1.AddItem (Cb1.Text)

          End If

        End If

    Next

End Sub

Private Sub Form_Load()

    C1.Caption = "搜索"

    For i = 0 To 10

      Cb1.AddItem i

    Next

End Sub

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