问题
单项选择题
下面程序：________
Option Base 1
Private 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 k
End 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。