合并两个Textbox中的内容 vb6.0

Question

例：把Textbox1和Textbox2的数据合并在一起放在Textbox3中
Textbox1: 123
          789
          abc
textbox2: 456
          000
          efg
textbox3: 123456
          789000
          abcefg 

Answer 1

DIm UU1() as String
DIm UU2() as String
UU1=Split(Textbox1.Text,VbCrLf)
UU2=Split(textbox2.Text,VbCrLf)
If Ubound(UU1)<>Ubound(UU2) THen
   Msgbox "文本行数不一致，不能合并"
   Exit Sub
End IFFor X=0 To Ubound(UU1)
   If X=0 Then
      textbox3.Text = UU1(X) & UU2(X)
   Else
      textbox3.Text = textbox3.Text & VbCrLf & UU1(X) & UU2(X)
   End If
Next X

Answer 2

Dim UU1() As String 
Dim UU2() As String 
Dim i As LongUU1 = Split(Text1, VbCrLf) 
UU2 = Split(Text2, VbCrLf) If Ubound(UU1) > Ubound(UU2) THen 
  Redim Preserve UU2(Ubound(UU1))
End IF If Ubound(UU1) < Ubound(UU2) THen 
  Redim Preserve UU1(Ubound(UU2))
End IF Text3 = ""
For i = 0 To Ubound(UU1) 
  Text3 = Text3 & IIf(Text3 = "", "", VbCrLf) & UU1(X) & UU2(X) 
Next i