Question

Do While Not EOF(1)

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 EOF(1)是什么意思？str1是什么呢？ "\in5.txt"中为什么要有“\”? 有的时候为什么就没有呢？

Answer 1

写错了。 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去 呵呵，明白了吗？

麻烦采纳，谢谢!