下面程序：________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。