VB为什么会出现实时错误62，超出文件尾，该怎么处理？

Question

Private Sub Command1_Click()
Dim mc As String, lb As String, pp As String
Dim kc As Integer
Open "C:\Users\Administrator\Desktop\kucun.txt" For Input As #1
Open "C:\Users\Administrator\Desktop\xxx.txt" For Output As #2
Do While Not EOF(1)
Input #1, mc, lb, pp, kc
If kc <> 0 Then
Write #2, mc, lb, pp, kc
End If
Loop
Close
Kill "C:\Users\Administrator\Desktop\kucun.txt"
Name "C:\Users\Administrator\Desktop\xxx.txt" As "C:\Users\Administrator\Desktop\kucun.txt"
End Sub
在Input #1, mc, lb, pp, kc出现实时错误62，超出文件尾

Answer 1

Input #1, mc, lb, pp, kc
'修改为：
    Input #1, mc
    If Eof(1) Exit Do
    Input #1, lb, pp, kc

追问

这就达不到题目的要求了

追答

为什么达不到要求呢？发你的程序给我看看吧。

追问

追答

发工程文件给我吧，要我重新一遍太麻烦了吧。我的Q 58507961

追问

已发

Answer 2

string 已经读完了整个文件?追问

该怎么处理