请帮忙指出出错原因,非常感谢!

[sopecj_seu]

haulmfile = "G:\articles\1\hauPrj\file\" & StrHaulm & ".txt" '&的作用是连接字符串

Open haulmfile For Input As #1

ReDim HaulmArray(50000, Trail - 1, NParameter - 1)
NHaulm = 0
Do While Not EOF(1)

Input #1, HaulmArray(NHaulm, 0, 0), HaulmArray(NHaulm, 0, 1), HaulmArray(NHaulm, 0, 2), HaulmArray(NHaulm, 0, 3), HaulmArray(NHaulm, 0, 4), HaulmArray(NHaulm, 1, 0), HaulmArray(NHaulm, 1, 1), HaulmArray(NHaulm, 1, 2), HaulmArray(NHaulm, 1, 3), HaulmArray(NHaulm, 1, 4)
NHaulm = NHaulm + 1
Text4.Text = NHaulm

Loop

Close #1

For j = 0 To NHaulm

Picture1.Line (HaulmArray(j, 0, 0), HaulmArray(j, 0, 2))-(HaulmArray(j, 1, 0), HaulmArray(j, 1, 2)), &HFF0000

Next j

编辑器错误显示:实时错误"62",输入超出文件尾