Question

Open App.Path + "\1.txt" For Input As #1

ub = -1
Do Until EOF(1)
ub = ub + 1
Input #1, ye(ub), t(ub), q0(ub), qw(ub), np(ub), wp(ub), lp(ub)
lp(ub) = Log(lp(ub)) / Log(10)
Loop
Close #1
输入超出文件尾

Answer 1

OPEN是打开文件的方法
App.Path是当前程序所在的绝对路径
& "\in.txt" 连接前边的路径，使之成为当前程序路径下的IN。TXT文件
#1是输入错误时报错。
整句话的解释就是：
打开当前程序路径下的in.txt文件，
如果出错的话，报出#1的错。

Answer 2

文件内没有内容会出现“输入超出文件尾”