如何将剩余的字符显示在文本框3 (如图)

Question

将剩余的字符显示在文本框3 
如图 http://hiphotos.baidu.com/%CC%EC%B7%E7%BA%A3%CB%AE/pic/item/625b1db3d6a048a5d9335af5.jpg

Answer 1

晕,哪个帖子没有结啊,这哥们有意思.hjker007() 帮我看看啊

Answer 2

text3中显示出在text1中不在text2中字符Dim SStart As Integer
Dim SEnd As Integer
Dim length As Integer
Dim tempStr As String
Text3.Text = ""
SStart = 1
Do While SStart <= Len(Text2.Text)
   SEnd = InStr(SStart, Text1.Text, ",")
   If SEnd = 0 Then Exit Do
   length = SEnd - SStart + 1
   tempStr = Mid(Text1.Text, SStart, length)
   SStart = SEnd + 1
   Debug.Print InStr(1, Text2.Text, tempStr)
   If InStr(1, Text2.Text, tempStr) = 0 Then
      Text3.Text = Text3.Text & tempStr
   End If
Loop
运行结果：
T,e,x,t1,T,e,x,t2,t1,
给分！！

Answer 3

Dim SStart As Integer
Dim SEnd As Integer
循环条件写错了Do While SStart <= Len(Text2.Text)，
更正为：Do While SStart <= Len(Text1.Text)Dim length As Integer
Dim tempStr As String
Text3.Text = ""
SStart = 1
Do While SStart <= Len(Text1.Text)
   SEnd = InStr(SStart, Text1.Text, ",")
   If SEnd = 0 Then Exit Do
   length = SEnd - SStart + 1
   tempStr = Mid(Text1.Text, SStart, length)
   SStart = SEnd + 1
   If InStr(1, Text2.Text, tempStr) = 0 Then
      Text3.Text = Text3.Text & tempStr
   End If
Loop

Answer 4

循环条件写错了Do While SStart <= Len(Text2.Text)
更正为：Do While SStart <= Len(Text1.Text)