VB6.0实现逐行读取textbox中文本

Question

用VB6.0如何读取text1中每行的内容并每行内容都与text2中内容（就一行）共同逐行显示在text3中

Answer 1

Private Sub Command2_Click()
Dim str() As String
str = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(str)
Text3.Text = Text3.Text & str(i) & Text2.Text & vbCrLf
Next
End Sub本回答被提问者采纳

Answer 2

楼上正解

Answer 3

Private Sub Command2_Click()
Dim str() As String
str = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(str)
Text3.Text = Text3.Text & str(i) & Text2.Text & vbCrLf
Next
End Sub本回答被提问者采纳

Answer 4

楼上正解