Question

关于vb的一道题

dim a
a=array（1,2,3,4,5,6,7）
for i=Lbound（a）To Ubound（a）
a（i）=a（i）*a（i）
next i
print a（i）
输出的结果是 程序出错（下标越界）。为什么呢？求 高手能帮我详细讲解？感激不尽

Answer 1

Lbound（a）=0，陪滚Ubound（a）=6，第七次执芦带余行a（6）=a（6）*a（6）之后执行next i，则相当于i=i+1，即此时i=7，而之后print a（i），即a(7)，但是数行迅组最后一个是a（6），所以下标越界。

追问

“第七次执行a（6）=a（6）*a（6）之后执行next i，则相当于i=i+1 “ 这句话怎么理解？是i 总比a（i)多1的意思吗？ i 是什么意思？a(i)又是什么意思呢？

追答

next i 的作用相当于i=i+步长，这里步长是1，即相当于i=i+1。
例如for i = 1 to 5 step 2……next i，第一次执行时，i=1，第二次循环时，i=3，这里i的变化就是next在起作用，（此处i=i+2）
所以在你的代码中，最后i=Ubound（a）+1=7，所以下标越界。
我表达能力有点差，如果不明白请继续追问。

追问

为什么 最后i=Ubound（a）+1=7 呢？？还有如果把这题改成下标不要越界的要怎么改呢？？谢了

追答

因为代码中不是for i=Lbound（a）To Ubound（a）吗？所以最后一次循环时i=Ubound（a）。而Ubound（a）就是数组a的上界，a=array（1,2,3,4,5,6,7）这句就是说a（）的数组元素是a(0)、a(1)……a(6)，所以a的上界是6，即Ubound（a）=6，那么最后一次循环时i就是6，经过next i 后i=i+1=6+1=7.
修改如下就行了：
dim a
a=array（1,2,3,4,5,6,7）
for i=Lbound（a）To Ubound（a）
a（i）=a（i）*a（i）
print a（i）
next i

Answer 2

你在
for i=Lbound（a）To Ubound（a）

前面输入掘颤尺print Lbound（a）
print Ubound（a）
就会判高知洞首道为什么了

追问

输出了
0
6
但是是什么意思呢？是下表上界为0，下界为6的意思吗？i 是什么意思呢？a(i)又是什么意思呢？

追答

是，i经过

for i=Lbound（a）To Ubound（a）
a（i）=a（i）*a（i）
next i
后i=7了，那么print a（i），实际上就是print a(7)，下标超界了