Dim n As Integer


Private Sub Command1_Click()
Select Case n
Case 1
Text1 = "01"
Text2 = "小香"
Text3 = "13615143640"
Case 2
Text1 = "02"
Text2.Text = "小吴"
Text3.Text = "13952369752"

End Select

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
n = 1
For i = 1 To 4

Combo1.AddItem n
n = n + 1
Next

End Sub
请看看哪错了啊

Private Sub Command1_Click()
Select Case Combo1.listindex

谢谢，好了，呵呵