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
_______________________________________________________________________
请问循环结果是怎么样算出来的.

先是设置
a(1)=1;
a(2)=2;
……
a(10)=10,

然后
p(1)=a(1*1)=a(1)=1;
p(2)=a(2*2)=a(4)=4;
p(3)=a(3*3)=a(9)=9

第一次: k=5+p(1)*2=5+1*2=7
第二次: k=7+p(2)*2=7+4*2=15
第三次: k=15+p(3)*2=15+9*2=33

最后： print  出k的值 为 33

看懂了,非常感谢!!!