执行下面的程序，消息框的输出结果是【15】。Option Base1Privat

问题填空题

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

答案

参考答案：33

解析：本题考查VBA中的数组与循环结构。题目中有3个循环，但相互之间并没有嵌套。第一个For循环实现向数组a赋初值，第二个For循环实现对数组a进行相关运算，然后赋给数组p，p(1)=a(1)=1，p(2)=a(4)=4， p(3)=a(9)=9。第三个For循环进行相关计算，然后把结果交给k，i=1时k=5+p(1)*2=7，i=2时k=7+p(2)*2=15，i=3时k=15+p(3)*2=33最后由MsgBox将结果输出。