单选题 运行以下程序，消息框中输出的结果是(    )。
   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