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 NextEnd Sub
楼上正解
