执行下面的程序,消息框的输出结果是______________。 Dim a(1 To 10),b(1 To 5)As Integer sum=0 For i=1 To 10

admin2012-09-03  36

问题 执行下面的程序,消息框的输出结果是______________。
           Dim a(1 To 10),b(1 To 5)As Integer
           sum=0
           For i=1 To 10
             a(i)=i
           Nexti
           Fori=1 To 5
             b(i)=a(i*2)
           Next i
           For i=1 To 5
             sum=sum+b(i)^2
           Nexti
           MsgBox  sum

选项

答案220

解析 本题考查数组和循环的知识。在本题中出现了两个数组,要注意两个数组的值和下标的对应关系。第一个循环为数组a赋值,每个数组元素值等于其下标值;第二个循环为数组b赋值,分别使b(1)=a(2)=2,b(2)=a(4)=4,b(3)=a(6)=6,b(4)=at8)=8,b(5)=a(10)=10;第三个循环把b数组的每一个元索平方以后累加起来,最后结果为220。
转载请注明原文地址:https://jikaoti.com/ti/sIw0FFFM
0

最新回复(0)