单选题 下列程序运行时输出的结果是
Option Base 1

Private Sub Form_Click()

Dim x(10) As Integer，y(5) As Integer

For i=1 to 10

x(i) =10-i+1

Next

For i=1 to 5

y(i)=x(2*i-1)+x(2*i)

Next

For i=1 to 5

Print y(i)

Next

End Sub

【正确答案】 B
【答案解析】[解析] 本题考查数组的定义和赋值。题中定义了数组x(10)和y(5)，并通过For循环给每个数组成员赋值。