Private Sub Command1_Click()
bbb = Split(Text1.Text, ";")
For i = 0 To UBound(bbb) - 1
For j = 0 To 9
If InStr(bbb(i), CStr(j)) Then kkk = kkk & j
Next j
If InStr(ddd, kkk & " ") = 0 Then
ddd = ddd & kkk & " "
Text2.Text = Text2.Text & kkk & vbCrLf
End If
kkk = ""
Next i
End Sub



[ 本帖最后由 woa 于 2010-5-16 11:11 编辑 ]