单项选择题

以下程序的输出结果是( )。
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 j=1 to 3
p(i)=a(I*j)
Next j
For I=1 to 3
k=k+p(I)*2
Next I
Print k
End Sub