单选题执行以下程序后，在窗体上输出的是______。
Private Sub Command1_Click()
Dim a(20)
For i=1 To 20 Step 2
a(j)=j
Next j
Print a(1)+a(2)+a(3)
End Sub

【正确答案】 A

【答案解析】[解析] 本题考查数组元素的赋值。利用循环对数组a中所有的元素赋值，循环变量的初值为1，步长为2。因此数组a中所有的奇数下标项的值为相应的下标，偶数下标项的值为0。因此a(1)+a(2)+a(3)=1+0+3。