执行下面的程序，消息框的输出结果是 【15】 。
Option Basel
Private Sub Commandl 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
MsgBox k
End sub

活塞径向呈椭圆形，椭圆的长轴与活塞销轴线同向。