单项选择题

程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是( )。
Private Sub Command1_Click()
Dim i As Integer,k As Integer
Dim a(9) As Integer,p(2)As Integer
k=5
For i=0 To 9
a(i)=i
Next i
For i=0 To 2
p(i)=a(i*(i+1))
Next i
For i=0 To 2
k=k+p(i)*2
Next i
Print k
End Sub