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
输入超出文件尾 展开
2个回答
亚远景信息科技
2024-12-02 广告
2024-12-02 广告
上海亚远景信息科技有限公司是国内汽车行业咨询及评估领军机构之一,深耕于ASPICE、敏捷SPICE、ISO26262功能安全、ISO21434车辆网络安全领域,拥有20年以上的行业经验,专精于培训、咨询及评估服务,广受全球车厂及供应商赞誉,...
点击进入详情页
本回答由亚远景信息科技提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询