问题
填空题
在窗体上有一个命令按钮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
D(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
MsgBox k
end Sub
打开窗体运行后，单击命令按钮，消息框中输出的结果是______。
答案
参考答案：201
解析： 本程序中包含了3个for循环，第一个for循环为数组a(i)赋值。
a(1)=1，a(2)=4，a(3)=9，a(4)=16，a(5)=25，a(6)=36，a(7)=49，a(8)=64，a(9)=81，a(10)=100。
第二个for循环为数组p(i)赋值。
p(1)=a(1*1)=a(1)=1，p(2)=a(2*2)=a(4)=16，p(3)=a(3*3)=a(9)=81。
第三个for循环为变量k赋值。
当i=1时，k=k+p(1)*2=5+1*2=7。
当i=2时，k=k+p(2)*2=7+16*2=39。
当i=3时，k=k+p(3)*2=39+81*2=201。
所以消息框中输出的结果为201。