Option Base 1
Private Sub Command1_Click()
       Dim a(10),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
_______________________________________________________________________
请问循环结果是怎么样算出来的.

看懂了,非常感谢!!!