这三道题让我很头疼

Question

Private Sub form_activate()
    Dim a
    a = Array(1, 2, 3, 4, 5)
    For i = LBound(a) To UBound(a)
        a(i) = i * a(i)
    Next i
    Print i, LBound(a), UBound(a), a(i)
End Sub和
Private Sub form_activate()
    Dim a
    a = Array(1, 2, 3, 4, 5)
    For i = LBound(a) To UBound(a)
        a(i) = i * a(i)
    Next i
    Print i, LBound(a), UBound(a), a(i-1)
End Sub第一道题答案：程序出错
第二道题答案：5  0  4  20
还有以下这题
for i = 1 to 3
    for j =5 to 1 step -1
                print i*j
      next j
next i
求语句print i*j执行次数、i、j的值 

Answer 1

第一个
 Print i, LBound(a), UBound(a), a(i)i=5,a(i)中i>4 越界

Answer 2

 1 
Print i, LBound(a), UBound(a), a(i)
i=5 a(5) 超过数组的上限
2
print i*j执行次数 15次
i 1 2 3
j 5 4 3 2 1

Answer 3

第二道题答案：5 0 4 20是对的.第二道题,求语句print i*j执行次数、i、j的值:
i=3
j=5

Answer 4

还有以下这题
for i = 1 to 3
  for j =5 to 1 step -1
  print i*j
  next j
next i
求语句print i*j执行次数、i、j的值=====================================================
执行 15 次，i=4, j=0