单选题下列程序运行后，输出结果为( )。
Dim a()
a＝Array(1,3,5,7,9)
s＝0
For i＝1 To 4
s＝s*10+a(i)
Next i
Print s

【正确答案】 B

【答案解析】[解析] 本题考查数组和循环的知识。在VBA中定义的数组如果没有指明下限一律默认下限为0。本题实际上每次把s*10然后加上数组的某一个元素构成一个新的数字，是从下标为1也就是第二个数组元素开始的。