请教 combo1 传送数据给 Text1 的问题

Question

请教 combo1 传送数据给 Text1 的问题，先谢了。有一Combo1，内容如下：Private Sub form_load()
Combo1.AddItem "小李"
Combo1.AddItem "小王"
Combo1.AddItem "小张"
Combo1.Text = "初2"
End SubPrivate Sub Text1_Change()End Sub当选择“小李”的时候，Text1显示001，选择"小王"的时候，Text1显示002，请问应该任何实现？谢谢。

Answer 1

加个timer.
Private Sub Timer1_Timer()
Text1.Text = Combo1.ListIndex + 1
End Sub
但是运行后显示的是1，如何显示001，楼下回答~~

Answer 2

Text1.Text =format( Combo1.ListIndex + 1 , "000")