问题
填空题
执行下面的程序，消息框的输出结果是______。 Dim a(1 To 10),b(1 To 5)As Integer sum=0 For i=1 To 10 a(i)=i Next i For i=1 To 5 b(i)=a(i*2) Next i For i=1 To 5 sum=sum+b(i)^2 Next i MsgBox sum
答案
参考答案：220
解析： 本题考查数组和循环的知识。在本题中出现了两个数组，要注意两个数组的值和下标的对应关系。第一个循环为数组a赋值，每个数组元素值等于其下标值；第二个循环为数组b赋值，分别使b(1)=a(2)=2，b(2)=a(4)=4，b(3)=a(6)=6，b(4)=a(8)=8，b(5)=a(10)=10；第三个循环把b数组的每一个元素平方以后累加起来，最后结果为220。