执行下面的程序，消息框的输出结果是______。 Option Base 1 P

问题填空题

执行下面的程序，消息框的输出结果是______。
Option Base 1
Private Sub Command1_Click()
Dim a(10),p(3) As Integer
k=0
For i=1 To 10
a(i)=i
Next i
For i=1 To 5
p(i)=a(i*2)
Next i
For i=1 To 5
k=k+p(i)*a(i)
Next i
MsgBox k
End Sub

答案

参考答案：110

解析：本题考查VBA程序中循环和数组的知识。本题中的第一个for循环先给数组a赋值，将数字1～10分别赋给a(1)～a(10)，再通过第二个fof循环语句给p(1)～p(5)赋值，其中p(1)=a(1*2)=a(2)=2，p(2)=a(2*20=a(4)=4，p(3)=a(3*2)=a(6)=6，p(4)=a(4*2)=a(8)=8，p(5)=a(5*2)=a(10)=10。第三个for循环语句计算k的值，当i=1时，k=k+p(1)*a(1)=0+2*1=2；当i=2时，k=2+p(2)*a(2)=2+4*2=10；当i=3时，k=10+p(3)*a(3)=10+6*3=28，当i=4时，k=28+p(4)*af4)=28+8*4=60；当i=5时，k=60+p(5)*a(5)=60+10*5=110，即消息框的输出结果是110。