jd = 110000
pt0(0) = 300
pt0(1) = 25 * tkscale
pt0(2) = 0
‘ 从文件中读入高空线原始数据文件
n = 0
Do While Not EOF(1)
n = n + 1
Input #1, dmx(n, 1), dmx(n, 2), dmx(n, 3)
Loop
Close #1
‘ 从文件中读入变坡点原始数据文件
Dim nn As Integer
nn = 0
Do While Not EOF(2)
nn = nn + 1
Input #2, bpd(nn, 1), bpd(nn, 2)
Loop
Close #2
前面的程序都差不多，因为是给的程序所以不太会 VB，之前是门路谬误，我批改完门路后又报 53 号谬误，我不太明确是哪里没有敞开文件，请大佬们教教！！！万分感激！[url]https://www.douban.com/doulis…[/url]
[url]https://m.douban.com/doulist/…[/url]
[url]https://book.douban.com/douli…[/url]
[url]https://movie.douban.com/doul…[/url]
[url]https://www.douban.com/doulis…[/url]
[url]https://m.douban.com/doulist/…[/url]
[url]https://book.douban.com/douli…[/url]
[url]https://movie.douban.com/doul…[/url]
[url]https://www.douban.com/doulis…[/url]
[url]https://m.douban.com/doulist/…[/url]
[url]https://book.douban.com/douli…[/url]
[url]https://movie.douban.com/doul…[/url]
[url]https://www.douban.com/doulis…[/url]
[url]https://m.douban.com/doulist/…[/url]
[url]https://book.douban.com/douli…[/url]
[url]https://movie.douban.com/doul…[/url]
[url]https://www.douban.com/doulis…[/url]
[url]https://m.douban.com/doulist/…[/url]
[url]https://book.douban.com/douli…[/url]
[url]https://movie.douban.com/doul…[/url]
[url]https://www.douban.com/doulis…[/url]
[url]https://m.douban.com/doulist/…[/url]
[url]https://book.douban.com/douli…[/url]
[url]https://movie.douban.com/doul…[/url]
[url]https://www.douban.com/doulis…[/url]
[url]https://m.douban.com/doulist/…[/url]
[url]https://book.douban.com/douli…[/url]
[url]https://movie.douban.com/doul…[/url]
[url]https://www.douban.com/doulis…[/url]
[url]https://m.douban.com/doulist/…[/url]