vb数组题

第一个：
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer, p(3) As Integer
k = 5
For i = 1 To 10
a(i) = i
Next i
For i = 1 To 3
p(i) = a(i * i)
Next i
For i = 1 To 3
k = k + p(i) * 2
Next i
Print k
End Sub
为什么输出结果是33啊！看了F8了。。没大看懂。。。各位帮忙给解释一下……
第二个：
Option Base 1
Private Sub Command2_Click()
Dim a
a = Array(1, 2, 3, 4)
j = 1
For i = 4 To 1 Step -1
s = s + a(i) * j
j = j * 10
Next i
Print s
End Sub 输出结果是1234.。为什么啊？
第三个：
Private Sub Command3_Click()
Dim a(5)
For i = 0 To 4
a(i) = i + 1
t = i + 1
If t = 3 Then
Print a(i);
a(t - 1) = a(i - 2)
Else
a(t) = a(i)
End If
If i = 3 Then a(i + 1) = a(t - 4)
a(4) = 1
Print a(i)
Next i
End Sub
vb里根本就运行不了。说下标越界。

关于vb数组题 vb多维数组赋值 vb 关于数组 VB数组的问题!!!!! vb中的数组问题!!!!!!!! VB 文本框数组 VB 6.0 数组问题 VB数组问题： vb数组什么意思 vb数组赋值问题