执行下面的程序，消息框的输出结果是 【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

后张梁预应力筋预留管道应采用金属螺旋管或（）成孔。