填空题在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a(1 To 10)
Dim p(1 To 3)
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
Print k
End Sub
程序运行后，单击命令按钮，输出结果是【13】。

1、

【正确答案】 1、[13]33

【答案解析】[评析] 观察程序，通过第一个以i为循环变量的循环，给数组a()进行赋值，数组a()中的各个元素的值就是其下标值。
通过第二个以i为循环变量的循环。给数组p()进行赋值：
i=1,p(i)=a(i*i),p(1)=a(1)=1
i=2,p(i)=a(i*i),p(2)=a(4)=4
i=3,p(i)=a(i*i),p(3)=a(9)=9
通过第三个以i为循环变量的循环，得到变量k的值：
i=1,k=k+p(i)*2=5+p(1)*2=7
i=2,k=k+p(i)*2=7+p(2)*2=15
i=3,k=k+p(i)*2=15+p(3)*2=33
最终输出结果是：33。