运行以下程序，消息框中输出的结果是（)。 Private Sub Command1_Click（) Dim a（10)，P（3)As Integer K=

运行以下程序，消息框中输出的结果是( )。

Private Sub Command1_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

A．28 B．33 C．35 D．37