Dim a(2)
Dim b(4)
For i = 1 To 5
For k = 1 To 3
j = j + i + k
c = c + j
a(k - 1) = j
Next
b(i - 1) = c
next

请问这段代码运行时怎样防止数组下标越界?
拜托各位了！！！

Dim a(2) As Integer
Dim b(4) As Integer
Dim i As Integer, k As Integer, j As Integer
Dim c As Integer

For i = 1 To 5
For k = 1 To 3
j = j + i + k
c = c + j
a(k - 1) = j
Next
b(i - 1) = c
Next


我试了..没有出现下标越界..

PURANA是做什麼工作的```怎么着麼有空閑呢````

目前短时间失业中...

比如i＝2，内部循环完成时，跳出后,这时k=4，数组下标越界了，可以解决吗？

跳出内循环之后..你的外循环..都没有用到K...怎么会下标越界呢?.....
我在VB试了..没有问题的说..