在窗体上有一个命令按钮Command1,编写事件代码如下：PrivateSubCommand1Click()Dima(10),p(3)AsIntegerk=5fori=1to10a(i)=i﹡inextifori=1to3p(i)=a(i﹡i)nextifori=1to3k=k+p(i)﹡2nextimsgboxkendsub打开窗体运行

Question

在窗体上有一个命令按钮Command1,编写事件代码如下：
Private Sub Command1_Click()
Dim a(10),p(3)As Integer
k=5
for i=1 to 10
a(i)=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
打开窗体运行后,单击命令按钮,消息框中的输出结果是__.
我算的结果是167,但正确答案是201,我怎么也搞不懂,
不好意思我没分了.

Answer 1

a(i)是1到10的平方表.p(1)=1;p(2)=16;p(3)=81;
i=1,k=5+1*2=7;i=2,k=7+16*2=39;i=3,k=39+81*2=201