这两句代码，在运行的时候为什么总是会提示“下标越界”呢？

Question

Open fn For Binary Access Read Lock Write As #1
            ReDim Bytes1(LOF(1) - 1) As Byte一个程序有一大段代码，上面是其中的两句，在程序运行的时候，总是会提示“下标越界”，然后错误指向“ReDim Bytes1(LOF(1) - 1) As Byte”这一句，请问前辈，这是怎么一回事啊？

Answer 1

你测试一下 LOF(1)是不是为0 不就知道了。

Answer 2

楼主是刚学VB？为0还要别人解释？
为0就是你的文件是空的（一般是新文件）。你判断一下LOF(1)，如果为0就不要往下做，转去别的语句就行了。

Answer 3

比如：For n = 1 To rs.RecordCount
  ...
  ...
  if xxx then
  exit for
  end if
  ...
  ...
next n
语句A“exit for”是跳出本次循环而进入下一次循环呢？还是跳出整个循环语句而去执行“语句A”呢？

Answer 4

if LOF(1)<>0 then
  ReDim Bytes1(LOF(1) - 1) As Byte
endif

Answer 5

“exit for”是是跳出整个循环语句而去执行“语句A”呢？单步调试和设断点调试是程序员必须掌握的技能之一。