你把前三句删掉就行，不用判断位置，直接设置 你要输入的自定义的值就行。
（第一句也没用，既然光标在ComboBox里闪动，它当然已经获得了焦点）
Combo1.SelText = "B"
Private Sub Command1_Click()
Me.Combo1.SetFocus
Me.Combo1.SelStart = 1 '光标的位置可以是从0 到 len(combo1.text)
Me.Combo1.SelLength = 0
Me.Combo1.SelText = "B"
End Sub
Private Sub Command1_Click()
Me.Combo1.SetFocus
Combo1.SelStart = 1
Combo1.SelLength = 0
Combo1.Clear
Combo1.SelText = InputBox("请输入你的值", "提示")
End Sub
??你不是自问自答了吗
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024