VB大虾们请进

VB中怎样把文本文件中每一行的值赋于变量数组中（注：单维数组）

再把固定的字符写在每个变量数组的前面如“这是”，后面为数组值

再另存为一个文本文件。（数组上界不确定）

例：a.txt内容为

张三

李四

赵五

......

得到b.txt 内容为

我是张三

我是李四

我是赵五

.......

Private Sub Command1_Click()
Dim strs() As String, txt As String, s As Integer
If Dir(App.Path & "/a.txt") <> "" Then
Open App.Path & "/a.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, txt
n = n + 1
ReDim Preserve strs(n)
strs(n) = txt
End If
Loop
Close #1
Open App.Path & "/b.txt" For Output As #2
For s = 1 To n
Print #2, "我是" & strs(s)
Next
Close #2
Else
MsgBox "对不起，找不到a.txt文件，请检查磁盘是否存在该文件": Exit Sub
End If
End Sub
以上是代码过程，如果对代码还有什么不明白之处，可以追问！

一行一行的读取文件，并存入数组中。

Option Explicit Const DefaultStr = "我是" Private Sub Form_Activate() Dim temp As String, arr(), i, n On Error GoTo errmsg Open "c:\a.txt" For Input As #1 Do While Not EOF(1) Line Input #1, temp If Trim(temp) > 0 Then n = n + 1 ReDim Preserve arr(1 To n) arr(n) = temp End If Loop Close #1 Open "c:\b.txt" For Output As #1 For i = 1 To n Print #1, DefaultStr & arr(i) Next Close #1 MsgBox "完成!输出文件位置c:\b.txt" Unload Me Exit Sub errmsg: MsgBox "检查c:\a.txt文件是否存在！" End Sub