问题
单项选择题
程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是( )。
Private Sub Command1_Click()
Dim i As Integer,k As Integer
Dim a(9) As Integer,p(2)As Integer
k=5
For i=0 To 9
a(i)=i
Next i
For i=0 To 2
p(i)=a(i*(i+1))
Next i
For i=0 To 2
k=k+p(i)*2
Next i
Print k
End Sub
A．20
B．21
C．22
D．23
答案
参考答案：B
解析： 本题首先定义了两个一维数组a和p，然后通过一个For循环给a数组的元素赋值，通过赋值，使a(0)～a(9)的值分别为0～9。接着再通过一个循环给p数组的各元素赋值，赋值情况为：p(0)＝a(0*1)=0：p(1)=a(1*2)=2；p(2)=a(2*3)=6。接着通过一个循环把p数组的各元素值乘以2加到变量k中，最后k的值为21。