单项选择题

下面程序：________
Option Base 1
Private Sub Command1_Click()
Dim a(10)，p(3)As Integer
Dim i,k As Integer
k=5
For i=1 To 10
a(i)=i
Next
For i=1 To 3
p(i)=a(i*i)
Next
For i=1 To 3
k=k+p(i)*2
Next
Print k
End Sub
运行后的输出结果为________。