Private Sub Command1_Click()Dim AAAA = Split(Text3, Chr(13))If UBound(AA) > 0 ThenFor i = 0 To UBound(AA)Text4 = Text4 & Text1 & AA(i) & Text2 & vbCrLfNextEnd IfEnd Sub加了一个文本框text4用来保存运行结果。