问题
单项选择题
下面程序：________Option Base 1Private Sub Command1_Click() Dim a(10)，p(3)As Integer Dim i,k As Integer k=5 For i=1 To 10a(i)=i Next For i=1 To 3p(i)=a(i*i) Next For i=1 To 3k=k+p(i)*2 Next Print kEnd Sub运行后的输出结果为________。
A．33
B．28
C．35
D．37
答案
参考答案：A
解析：[知识点] 模块／VBA程序流程控制：顺序控制，选择控制，循环控制[评析] 此题中共定义了两个数组：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。