VB 实时错误 ’62‘ 读入文件超过文件尾。（10元红包求帮忙）！！！！！（10元红包求帮忙）作答谢！！！

Question

----------鄙人在写一个小程序时，有两个地方遇到同一问题，其中一个错误如图（如有指教请 球球399852302）'这是一个MSFlexGrid数据表的赋值语句，放在窗体加载事件中'首次打开窗体不会出现问题，但关闭再打开时，读取文件就会出现问题，文件超过文件尾 For i = 1 To n '1显示NO值 MSFlexGrid1.TextMatrix(i, 0) = i Next i Open cyangPath & "\unnecessary savefiles1\line_area.txt" For Input As #4 '读取面积文本文件的数据 Do While Not EOF(4) For i = 1 To n Input #4, s '读取面积???????问题就出在这种地方???????黄色指针指在此处 MSFlexGrid1.TextMatrix(i, 3) = Round(s, 1) '4显示面积一列的值 MSFlexGrid1.TextMatrix(i, 2) = Round(2 * Sqr(Val(MSFlexGrid1.TextMatrix(i, 3)) / pi), 1) '3显示等效粒径一列的值 Next i Loop Close #4 Open cyangPath & "\unnecessary savefiles1\line_perimeter.txt" For Input As #5 '读取周长文本文件的数据 Do While Not EOF(5) For i = 1 To n Input #5, p MSFlexGrid1.TextMatrix(i, 4) = Round(p, 1) '5显示周长一列的值 Next i Loop Close #5 '6显示形状因子列的值 Open cyangPath & "\unnecessary savefiles1\particle_shape.txt" For Input As #65 '读取形状因子文本文件的数据 shape0 = 0 Do While Not EOF(65) For i = 1 To n Input #65, shape MSFlexGrid1.TextMatrix(i, 5) = shape '6显示形状因子一列的值 shape0 = shape + shape0 Next i Loop Close #65 Open cyangPath & "\unnecessary savefiles1\particle_biggest.txt" For Input As #99 '这儿需要读取最大粒径文本文件的数据 Do While Not EOF(99) For i = 1 To n Input #99, maxxy MSFlexGrid1.TextMatrix(i, 1) = Round(maxxy, 1) '2显示最大粒径一列的值 Next i Loop Close #99 Open cyangPath & "\unnecessary savefiles1\line_perimeter.txt" For Input As #5 '读取周长文本文件的数据 Do While Not EOF(5) For i = 1 To n Input #5, p MSFlexGrid1.TextMatrix(i, 4) = Round(p, 1) '5显示周长一列的值 Next i Loop Close #5

Answer 1

读面积代码段如下修改试试。
m=1
Do While Not EOF(4)
Input #4, s '读取面积???????问题就出在这种地方???????黄色指针指在此处

MSFlexGrid1.TextMatrix(m, 3) = Round(s, 1) '4显示面积一列的值
MSFlexGrid1.TextMatrix(m, 2) = Round(2 * Sqr(Val(MSFlexGrid1.TextMatrix(i, 3)) / pi), 1) '3显示等效粒径一列的值
m=m+1
Loop

Close #4