下面程序：________Option Base 1Private Sub Command1_Click（)Dim a（10) p（3)As IntegerDim i k
程序,正确答案,结果
已帮助 人
下面程序：________Option Base 1Private Sub Command1_Click() Dim a(10)，p(3)As Integer Dim i,k As Integer k=5 For i=1 To 10 a(i)=i Next For i=1 To 3 p(i)=a(i*i) Next For i=1 To 3 k=k+p(i)*2 Next Print kEnd Sub运行后的输出结果为________。
A．33
B．28
C．35
D．37
请帮忙给出正确答案和分析，谢谢！
-
正确答案：A
解析：此题中共定义了两个数组：a(i)，p(i)，共用到三次For循环：
第一个For语句是对数组a(i)赋值，a(1)到a(10)的值分别为1到10；
第二个For语句是对数组p(i)赋值，p(1)=a(1)=1，p(2)=a(4)=4，p(3)=a(9)=9；
第三个For语句是对k的值循环相加，三次循环的结果分别为：7，15，33。