问题
单项选择题
以下程序的输出结果是( )。 Option Base 1 Private Sub Command1_Click() Dim a(10),p(3) as Integer k=5 For I-1 to 10 a(i)=I Next I For j=1 to3 p(i)=a(I*j) Next j For I=l to 3 k=k+ p (I)*2 Next I Print k End Sub
A．33
B．28
C．35
D．37
答案
参考答案：A
解析：此题中共定义了两个数组：a(0，p(0，共用到了3次For循环。第1个For语句对数组a(i)赋值，a(1)…a(10)=1...10：第2个For语句，对p(1)：1，p(2)：4，p(3)：9；第3个For语句，计算k的值，3次循环分别得到：5，15， 33。答案为A。