vb 输入超出文件尾怎么解决

我没猜错，你的代码是这样的：
Dim save As String * 15520
Open "C:\XX.TXT " For Input As #1
Do Until EOF(1)
For i = 1 To 100
Line Input #1, save
Next
Loop
Close #1
------------------------------------
在前面加上：
on error resume next
即可！

即：
on error resume next
Dim save As String * 15520

Open "C:\XX.TXT " For Input As #1
Do Until EOF(1)
For i = 1 To 100
Line Input #1, save
Next
Loop
Close #1