再问一个问题：怎么一行一行的读取文本

n = n + 1 
ReDim Preserve Str(n)
Line Input #1, str(n)

str没有定义数组的下标范围，应该定义成dim str(1000) as string
或者在你需要的地方 redim

哦 这样的哦。。。懂了。。。。。
但有出现了新问题了

现在的源代码
Open App.Path & "\1.txt" For Input As #1
n = 0
Do While Not EOF(1)
ReDim Preserve str(n)
Line Input #1, str(n)
 n = n + 1
Loop
Close #1

str的每项都是最后一行的数据啊。。。这是怎么回事啊？

Dim appdisk$, aa$, tmpstr$(), i&, n& 'str 别把它当变量名称使用
Private Sub Command1_Click()
 appdisk = Trim(App.Path) '你不判断的话qq.txt在c:\时便会出错
 If Right(appdisk, 1) <> "\" Then appdisk = appdisk & "\"
 If Dir(appdisk & "qq.txt") <> "" Then
 Open appdisk & "qq.txt" For Input As #1
 n = 0
 While Not EOF(1)
 ReDim Preserve tmpstr$(n)
 Line Input #1, aa
 tmpstr(n) = aa
 n = n + 1
 Wend
 Close #1
 For i = 0 To n - 1
 Print tmpstr(i)
 Next i
 Else
 MsgBox "无此文件"
 End If
End Sub

Text1.Text = Join(Str, vbCrLf) '显示所有内�

谢谢各位。。。3Q

。。。。问题解决了 烦了几个低级错误。。。谢谢各位。。�

vb源码下载基地提供最新1004个源码，其中
窗体(共210) 多媒体(共136) 游戏(共180) 
字符串(共23) 数据库(共63) 图形(共189) 
API(共40) 网络(共163) 

http://222.136.104.220/soft/vb/VBxilie.htm
http://222.136.104.220