VB 怎么保存Text(i) 到一个文本

Question

比如说我现在有21组，即Text(0),text(2),text(3)....text(20)我这样写Dim i As Integer
For i = 0 To 20Text2 = Text1(i) 
Nextopen app.path & "\123.txt" For output as #1print #1,text2close #1这样错在什么地方

Answer 1

Dim i As Integer
For i = 0 To 20
    Text2 = Text1(i)  
    open app.path & "\123.txt" For Append as #1
    print #1,text2
    close #1
Next

Answer 2

简便的做法：
Text = Join(Text1,VbCrLf)
open app.path & "\123.txt" For output as #1
print #1,text2
close #1

Answer 3

你错在这行
Text2 = Text1(i) 
Text2永远都是最后一个Text1(i)
Dim aa$, i&
Private Sub Command1_Click()
   '用变量来累加 别用控件来累加 效率问题
   aa = ""
   For i = 0 To 20
      aa = aa & Text1(i).Text
   Next i
   Text2.Text = aa
   Open App.Path & "\123.txt" For Output As #1
   Print #1, Text2.Text
   Close #1
End Sub