Private Sub Form_Load()Dim Do While Not EOF(1) As StringText1.Text = ""Open App.Path & "\in5.txt" For Input As #1Do While Not EOF(1)Text1.Text = Text1.Text + str1LoopEnd Sub这些代码中Do While Not str1是什么呢?"\in5.txt"中为什么要有“\

Private Sub Form_Load()
Dim Do While Not EOF(1) As String
Text1.Text = ""
Open App.Path & "\in5.txt" For Input As #1
Do While Not EOF(1)
Text1.Text = Text1.Text + str1
Loop
End Sub
这些代码中Do While Not str1是什么呢?
"\in5.txt"中为什么要有“\”?有的时候为什么就没有呢?

写错了.
eof（n)是用来检查是否读到了代号为n的文件的结尾
如果是则返回true不是返回false
do while not eof(1)的意思是：
一只执行直到读到文件末尾
循环里面没有读文件命令
（get……,Input……,Lineinput）
显而易见
这样会死循环
所以是写错了
我想这个源代码的意思是想读整个文件进text1
这样的话就应该在Text1.Text = Text1.Text + str1 前面加一个读语句
Input #1, str1 '读取数据给str1
然后Text1.Text = Text1.Text + str1 就不难理解了,就是把str1加进text1去
呵呵,明白了吗?