Open App.Path + "\1.txt" For Input As #1
ub=-1DoUntilEOF(1)ub=ub+1Input#1,ye(ub),t(ub),q0(ub),qw(ub),np(ub),wp(ub),lp(ub)lp(ub...
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
输入超出文件尾 展开
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
输入超出文件尾 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询