执行下面的程序，消息框的输出结果是【15】。
Option Basel
Private Sub Commandl 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(ii)
Next i
For i=1 To 3
k=k+p(i)2
Next i
MsgBox k
End sub

【参考答案】

33

执行下面的程序，消息框的输出结果是 【15】 。 Option Basel Private Sub Commandl 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