Private Sub Text1_Change()
Dim i As Integer, j As Integer
Dim zf As String, zz As String
zz = Trim(Text1.Text)
j = 1
Do Until zz = ""
i = InStr(zz, ",")
If i = 0 Then
zf = zz
zz = ""
Else
zf = Mid(zz, 1, i - 1)
zz = Mid(zz, i + 1)
End If
'用控件数组最好
Select Case j
Case 1
Text2.Text = zf
Case 2
Text3.Text = zf
Case 3
Text4.Text = zf
Case Else
Exit Do
End Select
j = j + 1
Loop
End Sub
