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
转载声明:本站发布文章及版权归原作者所有,转载本站文章请注明文章来源!
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